陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮

陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮；新建一个我的菜单按钮

设置对应的宏过程名称为【我的菜单宏】

点击按钮弹窗信息，信息可自定义设置

详细代码如下：

Sub 新建右键菜单()Dim 菜单栏 As CommandBarCall 删除菜单Set 菜单栏 = Application.CommandBars("Cell")'在单元格菜单中添加按钮With 菜单栏.Controls.Add(Type:=msoControlButton, before:=1)'设置点击运行的宏.OnAction = "我的菜单宏".FaceId = 59.Caption = "我的菜单".Tag = "我的菜单Tag"End With
End SubSub 删除菜单()Dim 菜单栏 As CommandBarDim ctrl As CommandBarControlSet 菜单栏 = Application.CommandBars("Cell")' 删除标签控件For Each 菜单 In 菜单栏.ControlsIf 菜单.Tag = "我的菜单Tag" Then菜单.DeleteEnd IfNext ctrl
End SubSub 我的菜单宏()MsgBox "大表格VX：Chen1198061299"
End Sub

Sub 新建右键菜单()
Dim 菜单栏 As CommandBar
Call 删除菜单
Set 菜单栏 = Application.CommandBars("Cell")
'在单元格菜单中添加按钮
With 菜单栏.Controls.Add(Type:=msoControlButton, before:=1)
'设置点击运行的宏
.OnAction = "我的菜单宏"
.FaceId = 59
.Caption = "我的菜单"
.Tag = "我的菜单Tag"
End With
End Sub

Sub 删除菜单()
Dim 菜单栏 As CommandBar
Dim ctrl As CommandBarControl
Set 菜单栏 = Application.CommandBars("Cell")
' 删除标签控件
For Each 菜单 In 菜单栏.Controls
If 菜单.Tag = "我的菜单Tag" Then
菜单.Delete
End If
Next ctrl
End Sub

Sub 我的菜单宏()
MsgBox "大表格VX：Chen1198061299"
End Sub

陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮相关推荐

JavaFX+Jfoenix 学习笔记（五）--ContextMenu右键菜单
1.右键菜单,如图 2.实例-1:最简单的右键菜单下面我们演示一个通过右键菜单来改变背景和字体颜色的例子. package zkh.javafx.learn.contextmenu;import j ...
vba移动文件_VBA学习笔记8:工作表操作
学习资源:<Excel VBA从入门到进阶>第10集 by蓝色幻想一.Excel工作表的分类 Excel工作表有两大类,一类是我们平常用的工作表(worksheet),另一类是图表.宏表 ...
JQueryEasyUI学习笔记（十一）datagrid 右键菜单，冻结列
欢迎大家转载,转载请注明出处! 希望这个笔记对自己和大家有用,但是本人水平有限,如果出错的地方,希望大家指出,多多批评,谢谢! 今天是datagrid框架的冻结列和右键菜单: 废话就不多说了,直接上代 ...
Flash/Flex学习笔记(26)：AS3自定义右键菜单
直接上代码吧,关键地方都加上注释了: var cm:ContextMenu=new ContextMenu(); cm.hideBuiltInItems();//隐藏系统内置的菜单//创建菜单项(构造 ...
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...
VBA学习笔记2：将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...
VBA学习笔记3：合并同一工作簿下的多个表格
VBA学习笔记3:合并同一工作簿下的多个表格 1.建立一个新的汇总表: 2.将其他sheet数据复制到汇总表中. 效果如下: 需要将3个sheet的表的数据汇总起来汇总后的数据: 代码如下: Sub ...
VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...
在之前的一篇文章中,分享过用数据透视表的方法批量新建工作表. https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com 本次将用VBA的方式快 ...

陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮

陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮相关推荐

最新文章

热门文章