keybd_eventでキーボード操作【ExcelVBA × WindowsAPI】

※誤って押されたままになったりした場合はキーボード事態を一体外すことで直ることも有り

'Windowsの機能のkeybd_eventを使用する宣言コード
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

実際に使用する際

'〇〇のキーを押す
keybd_event 〇〇, 0, 1, 0

'〇〇のキーを離す
keybd_event 〇〇, 0, 1 Or 2, 0

この〇〇の部分に下記keybd_eventコードの値を入れてあげることで実行

keybd_eventコード一覧

左マウス ボタン 1 右マウス ボタン 2 Cancel キー 3 マウスの中央ボタン 4 Backspace 8 Tab キー 9 Clear 12 Enter 13 Shift キー 16 Ctrl キー 17 メニ […]

VBACompany