[[20050902144058]]　『ショートカットキーのマクロ自作』（大魔神）　ページの最後に飛ぶ

『ショートカットキーのマクロ自作』（大魔神）

シートに入力する際、○・◎・△をショートカットキーでできないかと考えています。
そこで、左手側にある、Ctrl＋Zを○に、Ctrl＋Ｘを◎、Ctrl＋Ｃを△　となるようにし、使い終わったら元のショートカットキー操作へ戻すようなマクロを組みたいのですが、その方法がわかりません。
どなたか作成方法を教えてくださるようお願いします。

 例えばこんな塩梅でっか？
 '----------------
 Sub 大魔神()
    Application.OnKey "^{z}", "maru"
    Application.OnKey "^{x}", "maru2"
    Application.OnKey "^{c}", "sankaku"
 End Sub
 '----------------
 Sub maru()
    ActiveCell = "○"
 End Sub
 '-----------------
 Sub maru2()
    ActiveCell = "◎"
 End Sub
 '--------------------
 Sub sankaku()
    ActiveCell = "△"
 End Sub
 '------------------
 Sub 小魔神()
    Application.OnKey "^{z}", ""
    Application.OnKey "^{x}", ""
    Application.OnKey "^{c}", ""
 End Sub

 大魔神を実行すればそれぞれのキーにマクロが割り当てられます。
 元へ戻すときは小魔神を実行。
 詳しゅうはヘルプを参考にしておくんなはれ。
 　　　（弥太郎）

実行はできたのですが、小魔神を実行するとショートカットが無効になるようです。
Ctrl＋Ｃはコピーのように元に戻す方法をすみませんが、お願いします。

 え～っ！！、それはえらいことでんがな・・・！
 っとまあ驚いてみせて・・・（笑
 Application.OnKey "^{z}", ""→Application.OnKey "^{z}" にしたらOKデス。
 ヘルプにちゃんと載ってまっせ。
 　　　　（弥太郎）

弥太郎さん、ありがとうございました。実行できました。

コメント返信：

[ 一覧(最新更新順) ]

[[20050902144058]] 『ショートカットキーのマクロ自作』（大魔神） ページの最後に飛ぶ

[[20050902144058]]　『ショートカットキーのマクロ自作』（大魔神）　ページの最後に飛ぶ