メニューバーのイベントが２回実行される

質問

CommandBarControlでメニューバーを作成し、イベントを実行していますが、何故か２回実行されてしまいます。
具体的には、
　Set myMenu = Application.CommandBars("Worksheet Menu Bar"). _
Controls.Add(Type:=msoControlPopup, before:=11)
With myMenu
.Caption = "User's MenuBar(xx)"
With .Controls.Add
.Caption = "フォームを開く"
.OnAction = "OpenForm(2)"
End With

上記で「フォームを開く」メニューバーを作成して、これを選択すると、UserForm1.Show というロジックが書かれているSubプロシジャーが実行されます。
これにより、フォームが開くのですが、どうもこのプロシジャーが２回実行されており、フォームが２つ開いているのです。
しかし、原因がわかりません。

対策としては、
１．２回実行される原因を調べる。
２．UserForm1が既に開いていたら開かないようにロジックを変更す　　　る。
１は皆無ですし、２はUserForm1が既に開いているかをチェックするロジックが分かりません。
どなたか教えて下さい。
よろしくお願いします m(_ _)m

回答No.2

end-u · ベストアンサー

>何故か２回実行されてしまいます。
引数を　( )　付きで渡してるからですね。

OnActionプロパティに引数付きマクロ名を設定する時はシングルクォーテーションで囲みます。
.OnAction = "'OpenForm 2'"

他に、ParameterプロパティやTagプロパティを使ったりする方法もあります。
：
With .Controls.Add
　　.Caption = "フォームを開く1"
　　.OnAction = "test"
　　.Parameter = 1
End With
With .Controls.Add
　　.Caption = "フォームを開く2"
　　.OnAction = "test"
　　.Parameter = 2
End With
：

Sub test()
　　Dim i As Long

　　i = Application.CommandBars.ActionControl.Parameter
　　MsgBox i
　　UserForm1.Show 0
End Sub

#http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=42;id=FAQ

お礼

end-uさん：
どうもありがとうございました。
引数を　( )　付きで渡してはダメなんて初めて知りました。
勉強不足でした。
即直したところバッチリでした。m(_ _)m

回答No.1

joqr

＞１は皆無ですし

デバッグモードでトレースして、わからないのかな？

＞２はUserForm1が既に開いているかをチェックするロジックが分かりません。

意味無いでしょ？
バグってるんですよ？
あなたのプログラムは…

小手先のコーディングで回避するのは？？？です