excel鼠标右键菜单怎么设置

发布网友发布时间：2022-04-21 18:09

共2个回答

热心网友时间：2022-04-28 04:48

在宏编辑器下。选中ThisWorkbook，输入如下代码。

Private Sub Workbook_Open()

删除右键菜单
添加右键菜单
End Sub

新建一个模块，输入如下代码：
'------------------------------------------------------------------------分割线
Sub 添加右键菜单()
        With Application.CommandBars("cell").Controls _
            .Add(Type:=msoControlButton, _
                temporary:=True)
            .Caption = "功能1"
            .FaceId = 986
            .OnAction = "MyMacro1"
        End With
'------------------------------------------------------------------------分割线
        With Application.CommandBars("cell").Controls _
            .Add(Type:=msoControlButton, _
                temporary:=True)
            .Caption = "功能2"
            .FaceId = 931
            .OnAction = "MyMacro2"
        End With
'------------------------------------------------------------------------分割线
End Sub
'------------------------------------------------------------------------分割线
Sub 删除右键菜单()
'删除右键菜单,重置
Application.CommandBars("cell").Reset
End Sub

Sub mymacro1()
Application.Run "PERSONAL.xls!功能1"
End Sub
Sub mymacro2()
Application.Run "PERSONAL.xls!功能2"
End Sub

Public Sub 功能1()
'输入功能1的代码
End Sub

Public Sub 功能1()
'输入功能2的代码
End Sub

保存excel以后，关闭重新打开，右键即可看到效果。

热心网友时间：2022-04-28 06:06

怎么在右键菜单中添加word、Excel.、powerpoint_百度经验 http://jingyan.baidu.com/article/d621e8da04f31b2865913fd1.html