excel鼠标右键菜单怎样设置

已举报 回答 关注
excel鼠标右键菜单怎样设置
问在线客服
扫码问在线客服
  • 回答数

    5

  • 浏览数

    10,453

5个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
在宏编辑器下。选中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").ResetEnd SubSub mymacro1() Application.Run "PERSONAL.xls!功能1"End SubSub mymacro2() Application.Run "PERSONAL.xls!功能2"End SubPublic Sub 功能1()'输入功能1的代码End SubPublic Sub 功能1()'输入功能2的代码End Sub 保存excel以后,关闭重新打开,右键即可看到效果。
取消 评论
安装了EXCEL程序包就会有
取消 评论
鼠标右键点菜单(或工具栏)—自定义—命令—重排命令—“菜单栏”,选择“文件”
—点重新设置—确定—关闭—关闭。
取消 评论
安装excel之后,就会有相关功能
不过可以通过vba对鼠标右键进行修改
增加或者删除相关功能
取消 评论
Sub xq()
Sheet1.Shapes("tb").Copy '复制图标图片
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True) '添加右键菜单
.Caption = "MyCommand" '设置标题
.OnAction = "msg" '指定宏
.PasteFace '黏贴标签
End With
End Sub
取消 评论
ZOL问答 > 鼠标 > 其他 > excel鼠标右键菜单怎样设置

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?