Excel VBA質問箱 IV

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

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


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

556 / 76735

←次へ　｜　前へ→


	【81845】Re:素人ですいません

山内 - 21/6/24(木) 10:16 -


	引用なし

	パスワード

選択ではなくフォーカスする場合フォームコントロールではなくActiveXコントロールじゃないとダメみたいなので注意

'標準モジュール
Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
Function testkey() As Boolean 'エンターキーが押されたか判定する関数
　　Const keypressed = -32768
　　testkey = (GetAsyncKeyState(vbKeyReturn) And keypressed) = keypressed
End Function
Sub testmove() 'ボタンをフォーカスする
　　Worksheets("Sheet1").CommandButton1.Activate
End Sub
Sub testmsg() 'ボタンを押したときに実行するマクロ
　　MsgBox "成功"
End Sub

'ワークシートイベント
Private Sub CommandButton1_Click() 'ボタンをクリックしたときのイベント
　　Call testmsg
End Sub

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'ボタンをフォーカス中にキーを離したときのイベント
　　If KeyAscii = vbKeyReturn Then
　　　　CommandButton1_Click
　　End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'ワークシートの値を変えたときのイベント
　　If Target = Worksheets("Sheet1").Range("A1") Then
　　　　If testkey Then
　　　　　　Call testmove
　　　　End If
　　End If
End Sub

9 hits

▼

【81843】素人ですいません papa 21/6/23(水) 21:39