Excelの右クリック/コンテキストメニューにカスタムボタンを追加するにはどうすればよいですか？

以下のスクリーンショットに示すように、多くの人は、頻繁に使用する機能をExcelの右クリックメニューに追加して、将来ワンクリックでこれらの機能をすばやく使用する傾向があります。 この記事では、Excelの右クリックメニューにカスタムコードボタンを追加する方法について説明します。

VBAコードを使用してExcelのコンテキストメニューにカスタムボタンを追加する

VBAコードを使用してExcelのコンテキストメニューにカスタムボタンを追加する

ExcelでMyMacroという名前のVBAスクリプトを作成し、コードをクリックするだけでコードを実行するために、この関数をコンテキストメニューに追加する必要があるとします。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このワークブック 左側で プロジェクト ペイン。 次に、以下のVBAコードをコピーしてに貼り付けます ThisWorkbook（コード） 窓。

VBAコード：Excelのコンテキストメニューにカスタムボタンを追加します

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

Note：コード内で、すべてを置き換えてください 「MyMacro」 Excelで作成したマクロ名を使用します。

3。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic 窓。

ここでExcelインターフェイスに戻り、セルを右クリックすると、下のスクリーンショットに示すように、指定した名前の新しいボタンが右クリックメニューに追加されます。 ボタンをクリックすると、対応するマクロがすぐにトリガーされます。

関連記事:

• HExcelのコマンドボタンで空白の新しい行を自動的に挿入する方法はありますか？
• コマンドボタンを使用してアクティブなワークシートをExcelでPDFファイルとして保存するにはどうすればよいですか？
• Excelのコマンドボタンでプロンプトを表示せずにアクティブなブックを保存して閉じるにはどうすればよいですか？
• Excelのコマンドボタンで（現在の）日付と時刻を更新または挿入するにはどうすればよいですか？
• ExcelでXNUMX回クリックした後にボタンを無効にする方法は？