VBA 动态创建commandbutton后,如何给这个button添加事件?

0078399 2007-04-26 07:34:54

VBA 动态创建commandbutton后,如何给这个button添加事件?

...全文

1614 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wwwwb 2007-06-26

打赏
举报

回复

其实在ACCESS的帮助中已经有例子
参考：
CreateControl
CreateEventProc

0078399 2007-06-26

打赏
举报

回复

我也知道和event有关,可具体怎么写呢?

Arqui 2007-06-12

打赏
举报

回复

with event 啊

yp888yp 2007-06-04

打赏
举报

回复

我顶下~
有高手的话能不能将动态创建按钮和按钮事件的代码贴出来....
共同学习

mynetpc 2007-04-29

打赏
举报

回复

同问

在VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。控件的名称如下： Forms.Checkbox.1（复选框） Forms.Combobox.1（组合框） Forms.Optionbutton.1（选项按钮） Forms.Textbox.1（文本框） Forms.Listbox.1（列表框） Forms.Commandbutton.1（命令按钮）

Sub MakeButton() '自动添加一个Sheet '动态生成一个按钮控件 '动态生成事件 ' Dim WSheet As Worksheet Dim MyNewbtn As OLEObject Dim Target As Range Dim ShtCodeName As String Set WSheet = Worksheets

经过一段时间的学习，研究了一下VBA中的checkbook控件，真是让我哭笑不得呀！类模块添加事件法：一、写一个类名为chk的类 Option Explicit Public WithEvents obj As MSForms.CheckBox Private Sub obj_Change() Dim n n = Val(Replace(obj.Name

1.聲明全局變量（不一定全局，但必須要讓第二、三步能讀取到） Dim WithEvents mycmd As CommandButton2.controls.add的時候順便把上一步的變量指向它 Set mycmd = Controls.Add("Forms.CommandButton.1", "CommandButton3", Visible)3.在form1的代碼模塊

在Excel文件中，为了实现更加自动化或者称为人机交互式的操作，很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序，在编辑器里操作更像是专业开发技术人员开发测试使用的操作，对于用户来讲，他们根本不需要关系程序是怎么执行，更谈不上去怎么调试程序，最好就是在xlsm文件某一sheet上直接点击按钮就可以完成我们想要的结果。这里就将要说的就是，怎样添加按钮和编辑其属性。操作如下...

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章