VBA：自作マクロをExcelの右クリックメニューから呼び出す

 セル（セル範囲）を選択し右クリックメニューから自作マクロを呼び出すための「メニュー登録」機能だ。

前回紹介したアドイン、"common.xlam" 中に記載することを勧める。

登録関数
addRightMenu("<自作マクロ関数>", "＜ショートカット＞")

登録解除関数

delRightMenu("<自作マクロ関数>", "＜ショートカット＞")

ショートカットには現在右クリックメニューで使用しているものとの重複

を避け、"(&w)"等指定しろし。

他のモジュールのマクロを呼び出す場合、ラッパー関数経由で呼び出せし。

※ラッパー関数の意味はググれし。

残念ながら、コード中に出てくるサンプル関数の、複数検索マーク、指定範囲を図に変換、sakuraエディタで開くの中身は空だ。いずれ紹介しよう。

common.bas(common.xlam)

Public Sub addRightMenuAll() Call addRightMenu("複数検索マーク") Call addRightMenu("sakuraエディタで開く", "(&w)") Call addRightMenu("指定範囲を図に変換") End Sub Sub delRightMenuAll() delRightMenu ("sakuraエディタで開く") End Sub Public Sub addRightMenu(関数名 As String, Optional sShortcut As String = "") Dim Newb As CommandBarControl For Each c In CommandBars If (c.Controls.Count > 0) Then If c.Name = "Cell" Or c.Name = "List Range Popup" Then For i = c.Controls.Count To 1 Step -1 If c.Controls(i).BeginGroup = dalse Then If c.Controls(i).Caption = sShortcut & 関数名 Then c.Controls(i).Delete Else If c.Controls(i).Caption = 関数名 Then c.Controls(i).Delete Else If c.Controls(i).Caption = 関数名 & sShortcut Then c.Controls(i).Delete End If End If End If End If Next Set Newb = c.Controls.Add() Newb.Caption = sShortcut & 関数名 Newb.OnAction = 関数名 Else For i = c.Controls.Count To 1 Step -1 If c.Controls(i).BeginGroup = dalse Then If InStr(c.Controls(i).Caption, "書式設定") > 0 Or InStr(c.Controls(i).Caption, "図として") > 0 Then End If End If Next End If End If Next End Sub Public Sub delRightMenu(関数名 As String, Optional sShortcut As String = "") Dim Newb As CommandBarControl For Each c In CommandBars If (c.Controls.Count > 0) Then If c.Name = "Cell" Or c.Name = "List Range Popup" Then For i = c.Controls.Count To 1 Step -1 If c.Controls(i).BeginGroup = dalse Then If c.Controls(i).Caption = sShortcut & 関数名 Then c.Controls(i).Delete End If End If Next End If End If Next End Sub Sub 複数検索マーク() End Sub Sub 指定範囲を図に変換() End Sub Sub sakuraエディタで開く() End Sub