Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23472 / 76732

←次へ　｜　前へ→


	【58626】Re:キー入力

ichinose - 08/11/1(土) 7:31 -


	引用なし

	パスワード

おはようございます
>返答ありがとうございます。
>
>>キーを押しっぱなしの状態でこのコードをCallしないと分岐しないようですが、どのように呼び出していますか？
>上についてはボタンを作ってそれにマクロを登録しています。

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Sub test()
　Dim FoundCell, buf
　Do Until GetAsyncKeyState(39) <> 0
　　 DoEvents
　　 Loop
　Set buf = Range("A1:G13").Find("キャラ")
　If Not buf Is Nothing Then
　　 buf.Select
　　 ActiveCell.Cut
　　 ActiveCell.Offset(0, 1).Activate
　　 ActiveSheet.Paste
　　 End If
End Sub

これで試してみてください。
但し、上記のコードは→キーが押されるまで上記のプロシジャーは、
終了しませんので注意してください。

2 hits

▼

【58597】キー入力 ＲPG好き 08/10/30(木) 21:47