MyVBA加载宏——添加自定义菜单02——给按钮添加单击事件
时间:2022-07-22
本文章向大家介绍MyVBA加载宏——添加自定义菜单02——给按钮添加单击事件,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
在2003版本之前的Excel里使用过VBA的话,应该接触过在Excel里添加自定义菜单,使用方法和前面说的在VBE里添加菜单是类似的。
虽然现在已经有了Ribbon菜单,已经不大建议使用下拉式的菜单了,但是这个功能还是被保留了的,测试一下:
Sub TestExcelCMDB()
Dim cmdb As CommandBarControl
Application.CommandBars("Worksheet Menu Bar").Reset
Set cmdb = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, Temporary:=True)
cmdb.Caption = "测试Excel下拉菜单"
Dim btn As CommandBarButton
Set btn = cmdb.Controls.Add(msoControlButton)
btn.Caption = "测试"
btn.OnAction = "TestOnAction"
End Sub
Sub TestOnAction()
MsgBox "TestOnAction"
End Sub
点击“测试”,执行TestOnAction。
同样的方法,我们在VBE里使用:
Sub TestAdd()
Dim cmd As CommandBarControl
Application.VBE.CommandBars(1).Reset
Set cmd = Application.VBE.CommandBars(1).Controls.Add(msoControlPopup)
cmd.Caption = "测试"
Dim btn As CommandBarButton
Set btn = cmd.Controls.Add
btn.Caption = "测试按钮"
btn.OnAction = "TestOnAction"
End Sub
Sub TestOnAction()
MsgBox "TestOnAction"
End Sub
很可惜,没有反应!
至于为什么,我也不知道原因,后来在网上查了相关资料后,都是要使用一个类模块进行转换,创建1个类模块,命名CCommandBar:
Public WithEvents cmdbe As VBIDE.CommandBarEvents
Private Sub cmdbe_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
MsgBox 123
End Sub
在模块顶部声明:
Private cbar As CCommandBar
修改代码:
Sub TestAdd()
Dim cmd As CommandBarControl
Application.VBE.CommandBars(1).Reset
Set cmd = Application.VBE.CommandBars(1).Controls.Add(msoControlPopup)
cmd.Caption = "测试"
Dim btn As CommandBarButton
Set btn = cmd.Controls.Add
btn.Caption = "测试按钮"
Set cbar = New CCommandBar
Set cbar.cmdbe = Application.VBE.Events.CommandBarEvents(btn)
End Sub
运行后再点击按钮,能够响应单击事件。
- java中堆和栈的区别
- 通过shell来比较oracle和java中的字符串使用(r4笔记第49天)
- Java 单例以及单例所引发的思考
- AJAX跨域完全讲解
- 最简单的web服务器实现(一)(r4笔记第68天)
- 算法09 五大查找之:哈希查找
- JSP面试题都在这里
- Java基础-07(01).总结private,this,封装,static,成员方法变量,局部变量匿名对象
- HTTP就是这么简单
- 重温二分查找算法(r4笔记第66天)
- 【不用框架】文件上传和下载
- JSP第七篇【简单标签、应用、DynamicAttribute接口】
- Java基础-07(02).总结private,this,封装,static,成员方法变量,局部变量匿名对象
- 通过shell脚本快速定位active session问题(r4笔记第65天)
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- MGR用哪个版本?5.7 vs 8.0
- 同事直呼666!小姐姐仅用3行代码就能玩出花来
- MySQL升级至8.0需要考虑哪些因素?
- 某云Music——JS破解全过程
- 和低效 IO 说再见,回头补一波 Java 7 的 NIO.2 特性
- 框架源码调试实战之easypoi异常解决方案精讲
- MySQL8.0的错误日志
- Shiro学习笔记(一)
- Shiro学习笔记(二)
- Shiro学习笔记 三(认证授权)
- Shiro学习笔记四(Shiro集成WEB)
- Shiro学习笔记五(Shiro标签,及通配符)
- Shiro学习笔记六(自定义Reaml-使用数据库设置 user roles permissions)
- Luncene学习 第一天 《入门程序》
- Luncene学习二《搜索索引》