vba多个button响应一个事件_使用WithEvents定义响应事件的对象

最新推荐文章于 2025-04-02 13:49:43 发布

weixin_39691233

最新推荐文章于 2025-04-02 13:49:43 发布

阅读量1.4k

点赞数

文章标签： vba多个button响应一个事件

你已选中了添加链接的内容蓝字关注，加微信NZ9668获资料信息

VBA解决方案系列丛书作者

头条百家平台 VBA资深创作者

_______________________________

大家好，我们继续VBA类的学习，在这套教程中，大家会逐步认识到很多事物的本质东西，在上一讲中我们提到事件的定义时指出，事件是对象的响应。这里的对象是指接收方或者称之为事件监听者。事件的整个过程对象：事件的发起方，或者称之为事件源(Event Source)，可以为按钮对象；事件的响应方，或者称之为事件监听者(Event Sink)，可以为窗体或者其他的对象。在上一讲也着重地指出：事件的监听方可以为多个对象。我们在这一讲就来测试一下。这一讲中我们要向大家介绍VBA中的一个关键字：WithEvents(字面意思是携带事件)。这个关键字是什么意思呢？就是要引出我们将利用这个事件的对象。当然这个对象只能在类模块和窗体模块中有效，为什么呢？对于窗体是一个对象，这一点很容易理解；而类也可以看做是一个对象的。其实WithEvents定义的对象又何尝不是虚拟的呢？这一点只能理解吧。好了我们先定义下面的一个窗体：

这个窗体中我们有两个按钮：按钮1 和按钮2 ；一个标签；我们要在按钮1 按下的时候窗体和标签同时监听到这个事件，同时有不同的反应。从而说明一个事件会由多个对象监听到。好了，我们看下面的代码： Private WithEvents myCmd As CommandButton Private Sub CommandButton1_Click() MsgBox "你好，我是窗体" End Sub Private Sub CommandButton2_Click() Label1.Caption = "" End Sub Private Sub myCmd_Click() Label1.Caption = "您好，欢迎学习VBA" End Sub Private Sub UserForm_Initialize() Set myCmd = UserForm1.CommandButton1 Label1.Caption = "" End Sub Private Sub UserForm_Terminate() Set mCmd = Nothing End Sub 代码截图：

代码解析： 1 在这个过程中我们定义了一个myCmd对象，用于响应CommandButton1_Click，即CommandButton1的单击事件。 2 在窗体的加载时Set myCmd =UserForm1.CommandButton1 令myCmd对象指向CommandButton1. 3 当CommandButton1的单击事件发生时：窗体的监听到后弹出对话框，“你好，我是窗体” 对象myCmd监听到后修改了标签的文本内容“您好，欢迎学习VBA” 下面看一下代码的测试：

也许有的朋友说，老师，为什么要引入一个如此虚拟的对象mycmd 呢？把代码直接写入单击事件不就行了吗？各位学员，不要有这种想法，这套教程侧重的是理论，不是实现的手段。这里讲的是对于事件的监听，在理论学习阶段大家要理解这个过程。对于事件的理解，希望大家能把握。 今日内容回向： 1 如何理解事件的监听？ 2 一个事件的响应必须是一个对象吗？备注：本讲测试程序参考：VBA-CLASS(上39-40).xlsm

在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。学习VBA是个过程，这个过程是自己忍受孤独的过程。 “水善利万物而不争”，你看她绵绵密密，微处则无声，巨则汹涌。学习亦如此，把握现在，为达千里，需要默默耕耘，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时去自欺欺人。要在当下，用一颗充满生机的心灵，努力提高自己，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。一杯茶，满也好，少也好，不要去计较；浓也好，淡也好，其中都有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。一切众生的心都在变化，像时间一样，永远不会停留，把握现在就是福报。 VBA是利用Office实现自己小型办公自动化的有效手段，我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了五部VBA专门教程，回向给需要学习的朋友： 第一套：VBA代码解决方案是VBA中各个知识点的讲解，覆盖绝大多数的VBA知识点，初学必备； 第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。 第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习。 第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。 第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，可以对促进自己理论的提高。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。在平静中积累自己的财富。我的上述教程是我多的经验的传递，大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。