我用vba添加了一个右键菜单合并单元格,右击合并单元格也可正常使用,想用vba再添加一个菜单“单元格赋值,代码如下:
Sub fsddl()
With Application.CommandBars("cell")
.Reset
With .conrtols.Add(Type:=msoControlButton)
.Caption = "单元格赋值"
.BeginGroup = True
.OnAction = "单元格赋值"
End Sub
Sub 单元格赋值()
Range("b1:c5") = 443
End Sub
但我执行如上的代码以后,我的单元格赋值的菜单可正常使用,但我原来增加的合并单元格的右键菜单不见了,是不是用vba右键添加菜单的时候还有一个参数,用来指定右键菜单的位置,我在上表中没有输入。或者有什么办法我可以用vba增加多个右键菜单而不致于后一个添加的菜单覆盖前一个菜单。请高手指教 ,谢谢了。