Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75471 / 76732 ←次へ | 前へ→

【5697】Re:Sendkeys "{NumLock}",1について
お礼  kawata  - 03/5/28(水) 9:52 -

引用なし
パスワード
   kawataです、おはようございます。

JuJuさん、ありがとうございました。

Sub nomlock_onoff()
Dim WshShell
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "{NUMLOCK}"
  Set WshShell = Nothing
End Sub

これでNumLockのon/offの切替が出来るようになりました。
(教えていただいたURLからの情報です)

いろいろWshのサイトを検索して調べてみました。
このWshも習得したほうがいいですね、ひとつ気合入れて(^^;。
頑張ってみます、よろしくお願いします。

※ただし、現在の仕様は、上のnomlock_onoffを、一連のsendkeys
を走らせる前に実行して強制的にoffにしてます。で、最後に、
もういとど走らせて復活・・・・という、これも情けないですけど。
nomlock_onoffの状態を取得する方法がわからなかったので(^^;。

とりあえずは望む動作をしております。
ありがとうございました。

また、いい情報ありましたら、よろしくお願いします。
2 hits

【5568】Sendkeys "{NumLock}",1について kawata 03/5/20(火) 16:09 質問
【5569】Re:Sendkeys "{NumLock}",1につい... kawata 03/5/20(火) 16:11 発言
【5662】Re:Sendkeys "{NumLock}",1につい... JuJu 03/5/24(土) 8:14 発言
【5694】Re:Sendkeys "{NumLock}",1につい... kawata 03/5/28(水) 8:09 回答
【5697】Re:Sendkeys "{NumLock}",1につい... kawata 03/5/28(水) 9:52 お礼

75471 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free