如何用vba在单元格右键快捷菜单中添加自定义的菜单命令

如下图所示，当鼠标右键单击excel工作表中的单元格时，将会弹出单元格右键快捷菜单。

虽然从excel 2007开始微软引进了ribbon 功能区来代替excel 常规菜单栏，但是像上图所示的鼠标右键快捷菜单还有很多没有被替代。

vba 中提供了给菜单增加自定义命令的功能。可以用CommandBar对象获取指定的菜单命令栏，然后用CommandBar对象的Controls属性获取所有的命令按钮集合，最后用新增集合元素的方法添加新的菜单命令。
比如以下代码可以在上图所示的单元格右键快捷菜单中添加自定义的菜单命令。当单击新增的“测试”菜单命令时，将会执行“lyq”子过程。

Visual Basic

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 Sub

Sub lyq()

MsgBox 1

End Sub

如图所示

如何用vba在单元格右键快捷菜单中添加自定义的菜单命令相关推荐

VBA查找单元格内指定文字并标红加粗
VBA查找单元格内指定文字并标红加粗功能: 选中想要查找的单元格,在函数内点击运行,实现将指定的文字标红加粗的功能 bug: 指定文字会区分大小写,如何让它不区分大小写? 改进将是否加粗,和标记的 ...
VBA锁定单元格并记录单元格修改日志无bug篇
先看效果: 在模块中插入以下代码 Type OldRngFormula As Variant '保存值Address As String '保存地址Locked As Boolean '是否锁定Ch ...
html统计表合并单元格的快捷键,excel中合并单元格的快捷键的方法及设置技巧
快捷键的熟练使用可以帮助我们在工作中提高效率,接下来为您讲解合并单元格的快捷键设置方法的图文演示合并单元格在excel默认的情况下是没有快捷键的. 需要用以下方法设置 1.打开excel,选择工具- ...
excel 单元格如何获取textbox中的值 java,把excel表格数据定义为文本框-excel中如何将单元格里的数值显示在文本框(textbox)里...
excel中如何将单元格里的数值显示在文本框(textbox)里 sheets("Sheet2").range("b3")=textbox ---------- ...
EXCEL 单元格公式（更新中）
EXCEL 单元格公式(更新中) 字符串按指定位置分为两列 (2022年1月4日) 示例简要说明特殊情况情况一:同一单元格中包含多个序号+内容(2022年1月6日) 用条件格式高亮表单未填充/勾 ...
C#遍历ContextMenuStrip右键菜单中包含子菜单的所有菜单并添加事件
今天写程序的时候,用到了右键菜单控件ContextMenuStrip,真的很方便,写了几个菜单与子菜单项,本来是可以用双击来给每一个菜单添加事件的,不过,这样做似乎非常麻烦,而且对一些子菜单也不容易控 ...
如何通过报表单元格右键控制报表跳转到不同链接地址
需求说明: 润乾报表的单元格中支持超链接属性,用户可以通过设置该属性,实现在浏览器端用鼠标点击某个单元格跳转到指定页面,并且还能够传递所需要的参数,从而实现数据的钻取(详见<玩转报表超链接> ...
VBA，单元格处理，数据复制，格式设置，折线图，图表属性设置
首先说一下.xlsm文件和.xlsx文件的区别: .xlsx文件只能存储数据,不能存储对数据进行处理的VB代码,而.xlsm文件既可以存储数据,又可以存储代码. 新建一个.xlsm文件(打开.xlsx ...
excel vba 修改单元格的颜色
vba中单元格.Interior 表示这个单元格的背景. 比如 range("A1").Interior 指的就是单元格 A1的背景. range("A1 ...

如何用vba在单元格右键快捷菜单中添加自定义的菜单命令

如何用vba在单元格右键快捷菜单中添加自定义的菜单命令相关推荐

最新文章

热门文章