(1)EXCEL VBAで、シートの右クリックメニューへの追加方法が下記の通り、ある本に載っていたので試してみましたが、うまく動作しません。
どこが間違っているか教えて下さい。
Sub シートの右クリックメニュー追加()
With CommandBars("Ply").Controls.Add
.Caption = "AAA(メニューの表示文字)"
.OnAction = "BBB(実行するマクロ名)"
.BeginGroup = True
End With
End Sub
(2)上記「シートの右クリックメニュー追加」+BBBマクロをアドインへ組み込み、皆さんへ配布して、右クリックメニューで動作させたいのですが、やり方を教えて下さい。
宜しく、お願いします。
No.2ベストアンサー
- 回答日時:
>シートの右クリックメニューへの追加方法が下記の通り
>With CommandBars("Ply").Controls.Add
セルを右クリックをした時に表示されるショートカットメニューを操作するにはCommandBars("Cell")です。
CommandBars("Ply")は、シート見出しを右クリックした時に表示されるショートカットメニューです。
回答有難うございました。
シート見出しを右クリックしたら、表示されてました。
また、CommandBars("Cell")に変更したら、セルを右クリックで表示されました。
(2)について、再度質問しますので、ご存じなら回答お願いします。
No.3
- 回答日時:
Plyにおかしいなと思い
下記を標準モジュールにおいて実行する
Sub シートの右クリックメニュー追加()
With CommandBars("Cell").Controls.Add
.Caption = "AAA(メニューの表示文字)"
.OnAction = "BBB" '実行するマクロ
.BeginGroup = True
End With
End Sub
ーーーー
Sub bbb()
MsgBox "AAA"
End Sub
上記を実行すると、シートで右クリックすると一番下に
AAA(メニューの表示文字)"、が出てクリックすると、Msgbox でAAAが出ました。
これらをAuto_Openなどに入れてブックを開くときに、「シートの右クリックメニュー追加()」を実行させるようにしたら。
回答有難うございました。
シート見出しを右クリックしたら、表示されてました。
また、CommandBars("Cell")に変更したら、セルを右クリックで表示されました。
Auto_Openの件、有難うございます。
しかし、アドインへの組み込みに拘っていますので、(2)について、再度質問します。
ご存じなら回答お願いします。
No.1
- 回答日時:
>うまく動作しません。
どこまで動作を確認しているのでしょうか?
シートを右クリックしても追加したメニューが表示されないのか。
それともメニューをクリックしてもマクロが実行されないのか。
エラーメッセージは出ないのか。
「シートの右クリックメニュー追加」のマクロは実行しましたか?
「BBB」のマクロは標準モジュールに追加しましたか?
回答有難うございました。
シート見出しを右クリックしたら、表示されてました。
(回答番号:No.2の通りで、勘違いしてました。)
(2)について、再度質問しますので、ご存じなら回答お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
実行時エラー'1004': WorkSheet...
-
エクセル・マクロ シートの非...
-
【Excel VBA】Worksheets().Act...
-
特定の文字を含むシートだけマ...
-
実行時エラー1004「Select メソ...
-
【VBA】特定の文字で改行(次の...
-
ブック名、シート名を他のモジ...
-
Access エクセルシート名変更
-
エクセルのシート名変更で重複...
-
Excelマクロのエラーを解決した...
-
エクセルのマクロでアクティブ...
-
XL:BeforeDoubleClickが動かない
-
エクセルVBA 変数への代入がう...
-
コマンドボタンをクリックでシ...
-
Excel VBA 複数行を数の分だけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報