Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13371 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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の状態を把握することは無視にしているので
無謀かなとも思いますが、解除状態から１度だけ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で検索してみてね。

ではではぁ
# 参考ＵＲＬを張りたかったんですけど、出張中＋検索の調子が悪くて^^;
【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の状態を取得する方法がわからなかったので（＾＾；。

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

また、いい情報ありましたら、よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13371 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free