如何在excel2007中添加一个新的右键选项并关联指定宏?

发布网友发布时间：2022-05-10 03:14

共1个回答

热心网友时间：2023-10-26 12:06

Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Application.CommandBars("cell")
.Reset
End With
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "保存工程(&S) Ctrl+S" '此处定义的是显示在菜单上的字符
.OnAction = "保存" '此处定义的就是指定的宏的名称
.FaceId = 3 '显示的图标
End With
Application.CommandBars("CELL").ShowPopup
End Sub

我也被这个问题困扰，我自己解决的办法是:
不用右键菜单里面的粘贴
复制数据后直接按CTRL+V粘贴，然后EXCEL会自动出现一个粘贴选项，再在里面选择自定义粘贴的方式