taka
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
マクロをショートカットで実行する方法
どうも、takaです(^^♪
今回は【マクロをショートカットで実行する方法】ということで、例えば【F11】を押すとグラフシートを作成するショートカットですが、このショートカットにマクロを振り分けることができれば便利だと思いませんか？
今日はそんなショートカットにマクロを割り当てる方法をご紹介します(^^♪
ショートカットにマクロを割り振るコード
ショートカットにマクロを割り振るには【Applicationオブジェクト】の【OnKeyメソッド】を使用します。
Application.OnKeyの書式は以下の通りです。
1 | Application.OnKey キーor文字列, マクロのプロジェクト名 |
| 引数 | 説明 |
|---|---|
| キー | ショートカットに設定するキーまたはキーの組み合わせなどを【文字列】で指定します。キーは【””や{}・()で囲む必要があります。】 |
| マクロのプロジェクト名 | 実行するプロシージャ名の文字列を指定します。空欄にするとなにも起きない設定にできます。 |
キー指定一覧
Application.OnKeyのキー指定は基本的にはSendKeysのキーの指定方法と同じです。ですがSendKeysでは指定できたキーもOnKeyではできないものがありますのでご注意ください。
| キー | コード |
|---|---|
| SHIFT キー | + ※他のキーと組み合わせで使います。下記に使用例あり |
| CTRL キー | ^ ※上記に同じ |
| ALT キー | % ※上記に同じ |
| BackSpace | {BACKSPACE} または {BS} |
| Break | {BREAK} |
| CapsLock | {CAPSLOCK} |
| Clear | {CLEAR} |
| Delete または Del | {DELETE} または {DEL} |
| ↓ | {DOWN} |
| End | {END} |
| Enter (テンキー) | {ENTER} |
| Enter | ~ (ティルダ) |
| Esc | {ESCAPE} または {ESC} |
| Help | {HELP} |
| Home | {HOME} |
| Ins | {INSERT} |
| ← | {LEFT} |
| NumLock | {NUMLOCK} |
| PageDown | {PGDN} |
| PageUp | {PGUP} |
| Return | {RETURN} |
| → | {RIGHT} |
| ScrollLock | {SCROLLLOCK} |
| Tab | {TAB} |
| ↑ | {UP} |
| F1 ～ F15 | {F1} ～ {F15} |
Application.OnKeyの使い方
Application.OnKeyの使い方ご紹介します(^^)/
私の場合はWorkbook_Openで割り振る方法をとります、下記のコードは【F1】キーを押すと【sample1】、【F2】キーを押すと【sample2】というプロシージャーを実行するコードです。
1 2 3 4 | Private Sub Workbook_Open() Application.OnKey "{F1}", "sample1" Application.OnKey "{F2}", "sample2" End Sub |
標準モジュールには下記のように記述してあります。
1 2 3 4 5 6 7 8 9 10 | Sub sample1() MsgBox "F1が押されました" End Sub Sub sample2() MsgBox "F2が押されました" End Sub |
この状態で【F１】を押すと「F1が押されました」というメッセージボックスが表示されるはずです！
Application.OnKeyの注意点
Application.OnKeyは便利ですが、一つ注意点があります(´・ω・`)
1 | Application.OnKey "^{UP}", "" |
このコードは【Ctrlキーを押しながら↑キーを押した場合のコード】です。普通でしたらこのショートカットはデータがあるところまでカーソルを上に移動させるショートカットです。
ですが上記のコードで割り振るマクロ（プロシージャー）を空白にしているので、この【Ctrl+↑】というショートカットは起動しないショートカットとなってしまうのです(;^ω^)
このようにExcelでデフォルトで指定されているショートカットキーに【新たにOnKeyで指定すると設定の上書きがされデフォルトのショートカットは使用できなくなります。】
逆に起動させたくないショートカットがある場合は効果的ですが( ^ω^ )
※コードを削除してファイルを開きなおせば設定は元に戻ります。
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
使用OS：
コメントを残す