Excel ショートカットキーにマクロを割り当てる

メルマガ発行内容

＜Excel ショートカットキーにマクロを割り当てる＞
どうも、三流プログラマーのＫｅｎ３です。
最近、質問もらうけど、
なかなか、解答できてない三流プログラマーのＫｅｎ３です。
※私のレベルで手に余る高度な質問が多くて。

http://www.ken3.org/p/h/office-028.lzh
に今回のサンプル保存されてます。
CTRL+CでAAAのマクロが起動します。
普通に動かして、少し驚いてね（テストしてみてね。）
※通常Ctrl+Cはコピーだけど、横取りして使ってます。

/*
 * １. 今回のキッカケ
*/

読者から、シートにボタンを設置する、
ダブルクリックや右ボタンで、マクロの起動方法はわかったが、
CTRL+Cでコピーのように、キーにマクロを割り当てられないか？
と質問をもらいました。

マクロの起動をCTRL+キーで行う方法を探ってみます。

/*
 * ２．やりたいことをまとめる、実現可能か探ってみる
*/

キーのクリックやチェンジを探ろうと考えて、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "aa"
End Sub
とするが、これでは処理は横取りできなかった。
何かのタイミングで処理しようと試みるが、
ダメなことに気が付く。

何かないかなぁと探ってみると、
.OnKeyメソッドが見つかる。
^^^^^^^^^^^^^^

Application.OnKeyを使用すると、ショートカットキーにマクロを割り当てられます。
ヘルプのサンプルを見ると、

使用例
^^^^^^
次の使用例は、InsertProc を Ctrl + a キーに、
SpecialPrintProc を Shift + Ctrl + → キーに登録します。

Application.OnKey "^{a}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

次の使用例は、Shift + Ctrl + → キーを通常の機能に戻します。
Application.OnKey "+^{RIGHT}"

次の使用例は、Shift + Ctrl + → キーを無効にします。
Application.OnKey "+^{RIGHT}", ""

設定方法、戻す方法、無効にする方法の例が出てます。

/*
 * ３．単体でテストを行う（プロパティ）を探る
*/

ヘルプで、使えそうな関数を見つけたら、
短いプログラムを作って、テストしてみるのが一番確認しやすい方法だと思います。
※タイミングや関数の起動を見たいときは、
　MsgBox "XXX"なんて手抜きで入れるのも１つの手です。

引数を変えたり、自分で実行したりして、動きを確認して、
自分のやりたいことに応用します。
※いきなり自分のシステムに組み込まないで、
　シンプルな機能・関数として、テストしてみます。

ブックのオープン時に、
Application.OnKey
で、Ctrl+Cキーに関数aaaを割り当ててみます。

Private Sub Workbook_Open()
    'プロシージャーの登録
    Application.OnKey "^{c}", "aaa"
    'CTRL+Cをつぶすと（横取りすると問題あるが・・）
End Sub

.OnKeyのヘルプを見ると、設定可能なキーの組み合わせが書いてあります。
半信半疑で、CTRL+Cを設定する場合は、
"^{c}"
と、＾がコントロールキーです。
, "aaa"これが、起動されるマクロのプログラムです。

テスト関数aaaは、下記のように現在選択位置Selectionを塗りつぶす関数です。

Sub aaa()

    '選択位置を黄色で塗りつぶす
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With

End Sub

実際に使う時も、ブックのオープンのタイミングで走る、
Workbook_Open()
のイベントで、
    'プロシージャーの登録
    Application.OnKey "^{c}", "aaa"
    'CTRL+Cをつぶすと（横取りすると問題あるが・・）
みたいに、セットすると、便利だと思います。

/*
 * ４．終わりの挨拶
*/

今回は、
キーにマクロを割り当てる方法を探ってみました。
便利関数を作った人は、
空いているキーに割り当てて（Ctrl+CやV以外の人気の無いキー）
使ってみてください。
※例題のように、CTRL+Cを横取りすると、操作者からクレーム来ると思います。

http://www.ken3.org/p/h/office-028.lzh
に今回のサンプル保存されてます。
CTRL+CでAAAのマクロが起動します。
普通に動かして、少し驚いてね（テストしてみてね。）
※通常Ctrl+Cはコピーだけど、横取りして使ってます。

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック