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