Excel VBA質問箱 IV

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

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


13370 / 13645 ツリー ←次へ | 前へ→

【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 お礼

【5568】Sendkeys "{NumLock}",1について
質問  kawata  - 03/5/20(火) 16:09 -

引用なし
パスワード
   kawataです、よろしくお願いします。
(Windows2000/Excel2000)

※先日はありがとうございました。もう思い込んでしまって・・・、
自力ではさっぱりでした。

さらに、次に進んで行って・・・・・・、
現在作成しているコードを走らせるとNumLockが解除されるようになりました。
で、SendkeysのHelpにも、"{NumLock}" は存在するし、使えないとも書いて
なかったので適当な位置に、Sendkeys "{NumLock}",1を書いたのですが・・。

もっとも、現在のNumLockの状態を把握することは無視にしているので
無謀かなとも思いますが、解除状態から1度だけSendkeysを飛ばそうと、
と考えている次第です。

ぜひ、よろしくお願いします。

【5569】Re:Sendkeys "{NumLock}",1につ...
発言  kawata  - 03/5/20(火) 16:11 -

引用なし
パスワード
   すいません、kawataです。

追記です。

何がわからないかを書くのを忘れていました(^^;。

この
Sendkeys "{NumLock}",1
が機能しないのです。

よろしくお願いします。

【5662】Re:Sendkeys "{NumLock}",1につ...
発言  JuJu E-MAIL  - 03/5/24(土) 8:14 -

引用なし
パスワード
   kawataさん、こんにちはぁ

Sendkeysには連続で送信するとNumLockが外れるというバグがあります。
(VBAは2000(VBは6)までしか持っていないので、最近は治ってるのかな)
Micrsoftの検索から、Sendkeys+NumLockで検索してみてね。

Sendkeys "{NumLock}" もバグで機能しません。

バグの少ないWSHのSendkeysなら動くかも。
使い方はGoogleの検索から、WSH+Sendkeysで検索してみてね。

ではではぁ
# 参考URLを張りたかったんですけど、出張中+検索の調子が悪くて^^;

【5694】Re:Sendkeys "{NumLock}",1につ...
回答  kawata  - 03/5/28(水) 8:09 -

引用なし
パスワード
   kawataです、おはようございます。
(お返事遅くなって申し訳ございません:しばらく書込みできなかったような?)

JuJuさん、ありがとうございました。
変な質問したのかなぁ?と悩んでおりました。何も手がかりがない状態でした
ので大助かりです、ありがとうございました。

>Sendkeysには連続で送信するとNumLockが外れるというバグがあります。

なんと、Excel(というよりVBA?)のバグだったんですか!?。
とすると代替案を探さないとダメなですね(キツイ作業になりそうな予感(^^;)

>Micrsoftの検索から、Sendkeys+NumLockで検索してみてね。
>使い方はGoogleの検索から、WSH+Sendkeysで検索してみてね。

早速、調べてみます、情報ありがとうございました!!。
※WSHってまったく使ったことなくて(^^;、これを機会にコーディングの
幅が広がると嬉しいですけども・・・・大変かな?(^^;。

とりあえずお礼まで、ありがとうございました。

【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の状態を取得する方法がわからなかったので(^^;。

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

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

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