动态添加的按钮如何执行带参数的宏？

weiyonggang

我通过下面的语句在工作表上动态添加了一些按钮（不是active控件类型的按钮）,我希望使用它们的text属性的值作为参数执行带有参数的宏add(byval str as string)，应该怎么写代码呢？

For i = 1 To UBound(name) - 1
    ws.Shapes.AddOLEObject
    Set myshape = ws.Shapes.AddFormControl(xlButtonControl, 10, 30 * i + 20, 100, 20)
    With myshape
        .Name = i
        With .TextFrame.Characters
            .Text = i & "." & name(i)
        End With
        .OnAction = "add"      '这里写成这样肯定不对，该写成什么呢？
    End With
Next
恳请各位大侠帮忙！谢谢了！

不知道为什么

提问技巧

1.提问之前可以先在论坛搜索相关帖子

2.提问的时候尽量问题说明白点 要有效果图 有表格附件

3.如果别人帮你解决了问题一定要记得回复别人结果 和说声谢谢 有鲜花的话也可以送几朵

4.问题解决后你可以学习别人解决问题的方法

[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐：
http://club.excelhome.net/thread-184567-1-1.html

Excel Home论坛学习及使用完全攻略(新人必读)：
http://club.excelhome.net/thread-449518-1-1.html

EH技术论坛的最佳学习方法：
http://club.excelhome.net/thread-117862-1-1.html

Datous

.OnAction = "模块1.collect"

模块名.过程名

weiyonggang

Datous 发表于 2019-3-23 22:39
.OnAction = "模块1.collect"

模块名.过程名

我的那个带参数的宏add(byval str as string)本身就在模块1里面。。。。。。
麻烦大侠详细讲解一下，谢谢。我的手机号码是18839752166，如果可以，我跟你手机联系，再次感谢

weiyonggang

不知道为什么 发表于 2019-3-23 18:36
提问技巧

1.提问之前可以先在论坛搜索相关帖子

收到，谢谢提醒

weiyonggang

请路过的大侠帮帮我吧，谢谢

yjh_27

weiyonggang 发表于 2019-3-25 10:21
请路过的大侠帮帮我吧，谢谢

我的那个带参数的宏add(byval str as string)本身就在模块1里面。。。。。。

而你，这样调用

.OnAction = "add"  

参数呢？

weiyonggang

yjh_27 发表于 2019-3-25 12:47
而你，这样调用

谢谢大侠热心帮我
请问该怎么写呢？

不知道为什么

weiyonggang 发表于 2019-3-25 20:50
谢谢大侠热心帮我
请问该怎么写呢？

如果上传你的附件这个问题，相信早就得到有效解决了。

weiyonggang

我的设计构想是通过点击用户窗体中的不同按钮，获得不同caption的不同的age的结果。
具体要求是：

通过单击用户窗体中的仅有的一个按钮，动态生成4个或更多个按钮，并且它们的caption均是不同的人的姓名。当点击生成的按钮时能获得因为caption不同产生不同的age的结果。


请各位大侠慷慨出手帮帮忙，谢谢了！