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

ネタ元

• http://www.happy2-island.com/excelsmile/smile04/capter00301.shtml