[[20070914010538]]　『パーソナルマクロ』（PPP02）　ページの最後に飛ぶ

『パーソナルマクロ』（PPP02）

 パーソナルマクロについての質問なのですが
 どうやったらそのブックのみでなくパーソナルマクロに登録できますか？
 また自動記録を行わないでショートカットを設定できますか？

 どなたか教えて下さい。下記のすごく単純な構文を自動記録でなくパーソナルマクロとして
 登録したいのですが・・・よろしくお願いします。

 Sub オートフィルタ()
    Selection.AutoFilter
 End Sub

 右クリックで行う方法ですが参考までに。
 下記を標準モジュールに貼り付けて、パーソナルマクロ追加を実行し
 エクセルを上書き保存して一度閉じて下さい。
 再度エクセルを開くとブックを問わず使用できるはずです。(mitsu)

 Sub パーソナルマクロ追加()
    Dim Newbar
    Set Newbar = Application.CommandBars("Cell").Controls.Add()
    With Newbar
        .Caption = "パーソナルマクロ"
        .OnAction = "オートフィルタ"
        .BeginGroup = False
    End With
 End Sub

 Sub オートフィルタ()
    Selection.AutoFilter
 End Sub

 Sub パーソナルマクロ削除()
    Application.CommandBars("Cell").Controls("パーソナルマクロ").Delete
 End Sub

 早速の回答ありがとうございます。

 ２点質問があるのですが、
　①ショートカットは後付けできますか？
 　 それと右クリックとはどのタイミング＆どこで行うのですか？
  ②上記は標準モジュールはVBAProject(Book1)に貼り付けるのでしょうか？
　　それともVBAProject(PERSONAL_XLS)の標準モジュールに貼り付けるのでしょうか？

 （PPP02）

 1.(仮に)後付けが、複数個追加出来るかとの問であれば可能です。
   また、現在作成されているファイルでも実行できます。
 2.右クリックとは「マウスの右クリック」の事ですよ！
   タイミングはエクセルを開いている時で、場所はセルが並んでいる白い所？
 3.貼り付けるのは、VBAProject(PERSONAL_XLS)の標準モジュールです。
 (mitsu)

 ＞どうやったらそのブックのみでなくパーソナルマクロに登録できますか？
 これは、記録を取る時の話しですかね？
 でしたら、マクロの記録を開始する時に
 マクロ名を入力すると思いますが、同じ所に
 「マクロの保存先(I)」があります。
 これを「個人用マクロブック」に変更すると
 PERSONAL.XLSの標準モジュールにコードが作成されます。
http://www.excel.studio-kazu.jp/lib/e4b/e4b.html
 こちらの（２）の図で、
  　　 マクロの保存先(I)
　　　[作業中のブック　▼]
 となっている部分です。

 現在あるコードを、パーソナルマクロとして使用したい場合は
 そのコードを、PERSONAL.XLSの標準モジュールに貼り付けてください。

 ＞自動記録を行わないでショートカットを設定できますか？
 メニューのツール→マクロ　→マクロ
 で、マクロを実行すると思いますが、同じ所に
 「オプション(O)」があります。
 ショートカットキーを設定したいマクロを選択した状態で
 オプションを開き、キーを設定してください。

 (HANA)

 良く分かりました。皆さんありがとうございます。』（PPP02）

コメント返信：

[ 一覧(最新更新順) ]

[[20070914010538]] 『パーソナルマクロ』（PPP02） ページの最後に飛ぶ

[[20070914010538]]　『パーソナルマクロ』（PPP02）　ページの最後に飛ぶ