- 88 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 23:17:29.91 ]
- お知恵を拝借させてください。
下のように右クリックメニューから選択範囲のセルを塗りつぶす、みたいなことがしたいのですが、
「引数は省略できません。」のエラーになります。
どうすれば引数（例：34）を渡せますでしょうか？
Sub addMenu()
Dim CB
Set CB = Application.CommandBars("Cell").Controls.Add()
With CB
.Caption = "塗りつぶし"
.OnAction = "setColor(34)"
End With
End Sub
Sub setColor(col As Long)
With Selection.Interior
.ColorIndex = col
End With
End Sub
