Excel-VBA Workbook開いたらキー割り当て

割り当てたいファイル(Workbook)のmicrosoftexcelobjectのThisWorkBookのOpenに追加する。

Private Sub Workbook_Open()

'キーに割り当て

Application.OnKey "^+D", "celcolorset"

MsgBox "「　CTRL+SHIFT+D　」で選択セルに水色をつけます。" & vbCrLf & "色がついている場合は色を消します。", vbInformation, " キー割り当て"

End Sub

キーは、SendKeyと同じ表記方法。

キー コード
Del または Delete {DELETE} または {DEL}
↓ {DOWN}
End {END}
Enter {ENTER}または {~}

Esc {ESC}
← {LEFT}
PageDown {PGDN}
PageUp {PGUP}
→ {RIGHT}
Tab {TAB}
↑ {UP}
F1 {F1}

Shift キー、Ctrl キー、または Alt キーと他のキーとの組み合わせを指定するには、
通常のキー コードの前に次のコードを単独、または組み合わせて記述。

キー
Shift +
Ctrl ^
Alt %


同じキー ストロークの繰り返しを指定するには、{key number} という形式