【Excel】ショートカット割り当て

Excelで自作マクロの起動をショートカットで行います。

Sub AssignShortCutKey()
'
' AssignShortCutKye Macro
'
' ショートカットを割り当てる。
    
    ' F1：何もしない
    Application.OnKey "{F1}", ""

    ' CTRL+ALT+l：メニューオープン
    Application.OnKey "^%{l}", "MenuOpen"

    ' CTRL+t：カーソルトップ
    Application.OnKey "^{t}", "TopCursor"

    ' CTRL+r：赤い太枠四角線
    Application.OnKey "^{r}", "RedBox"

    ' CTRL+ALT+s：SELECT文作成
    Application.OnKey "^%{s}", "SqlSelectCreateYoko"
End Sub