excel鼠标右键菜单是怎么设置

学习啦在线学习网 　　使用ECXEL表做事的时候，特别是当有一大堆数据处理，除了快捷键使用。鼠标右键菜单还可以设置的呀。下面学习啦小编整理了excel鼠标右键菜单怎么设置的知识，希望能帮到大家O(∩_∩)O哈哈~

　　excel鼠标右键菜单怎么设置

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

　　1234567891011121314151617181920212223242526272829303132333435363738394041424344454647Private Sub Workbook_Open()

　　删除右键菜单

　　添加右键菜单

　　End Sub

学习啦在线学习网 　　2.新建一个模块，输入如下代码：

学习啦在线学习网 　　'------------------------------------------------------------------------分割线

学习啦在线学习网 　　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

　　'------------------------------------------------------------------------分割线

　　3.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以后，关闭重新打开，右键即可看到效果。

学习啦在线学习网 　　完成以上步骤，相信小编整理的知识一定能解决你的问题啦。获取更多，上学习啦。