Excel VBA質問箱 IV

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

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


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

23497 / 76732

←次へ　｜　前へ→


	【58601】Re:キー入力

りん

- 08/10/31(金) 1:12 -


	引用なし

	パスワード

ＲPG好きさん、こんばんわ。

>Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
>Sub test()
　Dim buf As Range
　 If GetAsyncKeyState(39) <> 0 Then
>　　 Set buf = Range("A1:G13").Find("キャラ")
　　　With buf
　　　　 .Cut destination:= .Offset(0, 1)
　　 End With
　 End If
>End Sub

>上のようなマクロを作ったのですが、Ifの部分をコメントじゃないようにすると、
>→を押しても機能しなくなります。
>→を押したら機能するようにするには、どうすればよいでしょうか。

キーを押しっぱなしの状態でこのコードをCallしないと分岐しないようですが、どのように呼び出していますか？

1 hits

▼

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