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”子过程。
相关
文章安卓 | v1.0.0
简体中文 | 52.9 MB
9.8
安卓 | V2.1
简体中文 | 33.2 MB
7.5
安卓 | v4.2.8
简体中文 | 238 MB
9.2
安卓 | V2.30
简体中文 | 47.6 MB
9.2
安卓 | v1.1.3
简体中文 | 169 MB
8.1
安卓 | V0.9.54.529
简体中文 | 1.6 GB
7.6
安卓 | v1.0
简体中文 | 22.8 MB
9.2
安卓 | V0.5
简体中文 | 121.6 MB
7.4
本站为非营利性个人网站,本站所有游戏来自于互联网,版权属原著所有。如有侵犯你的版权,请发邮件给wishdown2023@163.com
湘ICP备2021017279号-3 公安部备案号:13092602000101
Copyright©2006-2019 www.wishdown.com All rights reserved