読者です 読者をやめる 読者になる 読者になる

ExcelVBAでコントロールキーを押されているかチェック

#If Win64 Then
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long
#Else
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long
#End If

...

If 0 <> GetAsyncKeyState(vbKeyControl) Then

    'コントロールキーを押されてる

End If

ネタ元