No.1ベストアンサー
- 回答日時:
エクセルVBAの経験ありますか。
多分操作による、どこかの設定では難しいと思います。
http://officetanaka.net/excel/vba/tips/tips61.htm
を使わせてもらって
エクセル標準モジュールに
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
If WD.Tasks.Exists("スクリーン キーボード") Then
MsgBox "スクリーン キーボードを終了"
WD.Tasks("スクリーン キーボード").Close
End If
WD.Quit
Set WD = Nothing
End Sub
を入れて、実行すると、終了します。
「スクリーン キーボード」の2語の間は半角スペースでした。
ファイル名を指定して実行で、osk.exeでスクリーンキーボードをhらいておいて、実行して見ました。
エクセルを閉じるときなので
エクセルのThisWorkbookのBeforeCloseイベントに
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
に上記のコードを挟む
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sample2
End Sub
こういうのが判らなければ、断念せざるをえない。
たまたまワードにTasks.Existsガあったから簡単なコードでできそうですが。
コンピュター関連では、素人でも簡単に思いつく課題が、解決には、大変な勉強が必要なものが多いですよ。
書込み有難う御座いました。
今、内容はよく理解できていないのですが、ThisWorkbookにマクロを記述しています。
Private Sub Workbook_Open()
~省略~
End Sub
この下に
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
If WD.Tasks.Exists("スクリーン キーボード") Then
MsgBox "スクリーン キーボードを終了"
WD.Tasks("スクリーン キーボード").Close
End If
WD.Quit
Set WD = Nothing
End Sub
とコピーさせていただいたのですがうまく動作しません。
どう記述したらよいでしょうか?
Sample2
End Sub
No.2
- 回答日時:
#1です。
違います。Sub Endをネストさせるのではありません。
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
略
Set WD = Nothing
End Sub
はイベントプロの中に直接入れるなら
最初の Sub Sample2()
最後の End Sub
の2行だけを除きます。
ーー
独立させるなら
イベントプロの外へ置いて、
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sample2
End Sub
で一まとまり
外に別に
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
略
Set WD = Nothing
End Sub
で1まとまりとして、それらを書きます。今回はコピペですが。
ーーー
上記ガうまくいったとして
スクリーンキーボードを使用してないときエクセルを
閉じるとエラーになるでしょう。
開いているかどうか調べる方法は、上記WEB記事に載っています。
本当はこれも入れないといけないが、質問者の補足のレベルでは、ゆっくり勉強してからやってください。
書込み有難う御座いました。
イベントプロの中に直接入れる為
Dim WD
Set WD = CreateObject("Word.Application")
If WD.Tasks.Exists("スクリーン キーボード") Then
MsgBox "スクリーン キーボードを終了"
WD.Tasks("スクリーン キーボード").Close
End If
WD.Quit
Set WD = Nothing
と記述させていただきましたが
ダイアログBOXで"スクリーン キーボードを終了"が出て
それをOKしないと閉じないのですが
Excel右上の[×]で閉じたらスクリーン キーボードが閉じるようにしたいのですがどう記述したら良いでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン ノートパソコンをモニターに繋いで画面を見ているためノートパソコンは閉じたままにしています。 毎回、電 5 2023/05/12 23:27
- その他(コンピューター・テクノロジー) ノートパソコンを閉じてる状態で強く力がかかったらキーボードが画面を傷つけてしまいますよね? 1 2023/08/22 21:57
- ノートパソコン surface pro8シャットダウンせず発熱する 1 2022/08/20 02:55
- その他(ブラウザ) Excel VBA seleniumのedge操作について 業務上、分からないことがございまして、先 1 2022/06/20 16:59
- Windows 10 ノートPCをスリープにするとアプリが閉じてしまう。 3 2022/04/14 18:33
- システム Excel 閉じたDATAの復元はできますか。 5 2023/04/25 21:24
- Excel(エクセル) Excelのウィンドウが少し小さく、ズレて立ち上がります 1 2022/06/27 16:25
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Excel(エクセル) ①Excel シートに、「=」を入力したいのですが、shift+「ほ」を押すと、「_」と入力されます 2 2022/04/28 12:59
- Excel(エクセル) Excelの読み取り専用について質問です。 最初に開いてる人が編集しているデータは、読み取り専用を開 2 2022/06/16 21:59
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBAでスクリーンキーボードを起動
Excel(エクセル)
-
【タブレットPC】フォーム画面にキーボードを作成して入力したい
Access(アクセス)
-
【VBAユーザーフォームで閉じるボタンを表示したくない】
Visual Basic(VBA)
-
-
4
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
5
エクセルVBAからIMEのソフトキーボード起動
Excel(エクセル)
-
6
UserForm1.Showでエラーになります。
工学
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について教えて...
-
Excelカスタム関数(アドイン登...
-
Excelデータをコピペして、ペー...
-
Excel関数-文字列で自動作成さ...
-
スプレッドシート、Excelでの数...
-
Excelで50個のセルに同じ文字を...
-
Microsoft Officeの中古は信用...
-
スプレッドシートで使う数式を...
-
エクセルVBA、別ブックへ転記す...
-
エクセルで会社の従業員のデー...
-
エクセルで不等号記号(≠)が上に...
-
エクセルの表で1年間の曜日を...
-
A列とB列を参照してC列に連番を...
-
エクセルの空欄をつめて、次の...
-
エクセルでの特別な文字を上に...
-
エクセルでセルに標準で入力さ...
-
エクセル日付 文字列の関数がエ...
-
エクセル2013で月間勤務表から...
-
エクセルの日付を編集する
-
EXCELの質問です 119から足した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelを閉じたらスクリーンキー...
-
非常に初歩的なロシア語文法の...
-
Excelのテーマのフォントが変わ...
-
スリープ中でもOSのアップデー...
-
印刷が片寄る…
-
Wordの印刷設定をファイルごと...
-
WORDにてA4・2枚分がA3・1枚で...
-
カラーで印刷されない。
-
Caps Lockが自動でONになって困...
-
windows10にてスリ~ぷ解除の原...
-
Windows10がスリープ中に、3分...
-
カラー用紙に白い文字をプリン...
-
スリープまでの時間設定のレジ...
-
[Windows10] Bluetoothの「バッ...
-
ネットワーク2の「2」の意味...
-
macで同じ画像を均等に一枚の紙...
-
ps4コントローラについて
-
差込印刷設定がプリンターに送...
-
差し込み印刷で封筒に文字が上...
-
iPhone標準メールで相手に同メ...
おすすめ情報