1、vba插件中提供了菜单栏自定义命令功能。
2、使用ComandBar对象的Controls属性获取所有的命令按钮集合。
3、最后用新增集合元素的方法添加新的菜单命令。
4、下方的代码可以单元格快捷菜单中添加自定义的菜单命令。
Sub xyf()
Dim objCB As CommandBar
’获取单元格右键快捷菜单命令栏
Set objCB= Excel.Application.CommandBars("Cell")
Dim oCBC As CommandBarControl
With objCB
.Reset
’往单元格右键快捷菜单中新增菜单命令
Set oCBC = .Controls.Add(before:=1)With oCBC
'指定单击新增的命令时执行的子过程名称
.OnAction = "lyq"
.Caption ="测试""End With
End With
End Sub
Sub lyq()
MsgBox 1
End Sub
5、点击新增的“测试”时,将会执行“lyq”子过程。
相关
文章安卓 | V0.9.54.529
简体中文 | 1.6 GB
9.0
安卓 | v1.0
简体中文 | 22.8 MB
7.4
安卓 | V3.1.3
简体中文 | 121.6 MB
9.0
安卓 | v1.0.56
简体中文 | 296 MB
7.5
安卓 | V1.0.1
简体中文 | 0 Bytes
8.5
安卓 | v5.0.81
简体中文 | 667.2 MB
7.2
安卓 | V1.0.0
简体中文 | 55.4 MB
7.1
安卓 | V2023178.0.35513
简体中文 | 522.2 MB
8.2
本站为非营利性个人网站,本站所有游戏来自于互联网,版权属原著所有。如有侵犯你的版权,请发邮件给wishdown2023@163.com
湘ICP备2021017279号-3 公安部备案号:13092602000101
Copyright©2006-2019 www.wishdown.com All rights reserved