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

Yalishanda30 · 发表于 2019-3-26 15:35

weiyonggang 发表于 2019-3-26 15:04
我的设计构想是通过点击用户窗体中的不同按钮，获得不同caption的不同的age的结果。
具体要求是：

附件带密码。。。楼主真厉害。。。
试试附件行不行

weiyonggang · 发表于 2019-3-26 18:02

Yalishanda30 发表于 2019-3-26 15:35
附件带密码。。。楼主真厉害。。。
试试附件行不行

不好意思，忘记删除密码！现在没有密码了，恳请大侠帮忙出手解答问题，谢谢了！

三坛老窖 · 发表于 2019-3-26 19:14

Sub WithOnAction()
Dim i As Long, aName
aName = Array("张三", "李四", "王五", "赵六")
For i = LBound(aName) To UBound(aName)
With ActiveSheet.Shapes.AddFormControl(xlButtonControl, 10, 30 * i + 20, 100, 20)
.Name = aName(i)
With .TextFrame.Characters
.Text = i & aName(i)
End With
.OnAction = "Employee"
End With
Next
End Sub
Sub Employee()
Dim sStr As String
Select Case Application.Caller
Case "张三": sStr = "张三，男，21"
Case "李四": sStr = "李四，女，24"
Case "王五": sStr = "王五，男，25"
Case "赵六": sStr = "赵六，男，39"
End Select
EmployeeInfo sStr
End Sub
Sub EmployeeInfo(ByVal str As String)
Debug.Print str
End Sub

复制代码

附件就不上了。

Yalishanda30 · 发表于 2019-3-26 20:39

weiyonggang 发表于 2019-3-26 18:02
不好意思，忘记删除密码！现在没有密码了，恳请大侠帮忙出手解答问题，谢谢了！

看看楼上附件是不是可以再说

weiyonggang · 发表于 2019-3-27 12:16

三坛老窖发表于 2019-3-26 19:14
附件就不上了。

谢谢大侠出手相助！成功了！非常感谢！
但还有一点没有实现，请看看能否帮我完善，不胜感激！
我想让动态添加的按钮控件添加到用户窗体中，请问如何修改，谢谢！

三坛老窖 · 发表于 2019-3-27 13:03

weiyonggang 发表于 2019-3-27 12:16
谢谢大侠出手相助！成功了！非常感谢！
但还有一点没有实现，请看看能否帮我完善，不胜感激！
我想让动 ...

在窗体中，不用动态添加按钮控件，用组合框控件来实现你所要的功能。

weiyonggang · 发表于 2019-3-27 15:32

三坛老窖发表于 2019-3-27 13:03
在窗体中，不用动态添加按钮控件，用组合框控件来实现你所要的功能。

能否赐教？不胜感激

Yalishanda30 · 发表于 2019-3-27 15:40

weiyonggang 发表于 2019-3-27 15:32
能否赐教？不胜感激

不知道楼主有没有试试这个

weiyonggang · 发表于 2019-4-10 10:09

三坛老窖发表于 2019-3-26 19:14
附件就不上了。

大侠你好！我今天又有个问题需要请教你，希望不吝赐教！
我利用vba想要在工作表中动态添加按钮，可是很简单的代码中途总是出现错误，大侠帮我看看，谢谢！
操作方法：打开用户窗体，运行，点击按钮
我的另一个帖子中附有附件，请帮我看看，再次感谢！

三坛老窖 · 发表于 2019-4-10 17:18

weiyonggang 发表于 2019-4-10 10:09
大侠你好！我今天又有个问题需要请教你，希望不吝赐教！
我利用vba想要在工作表中动态添加按钮，可是很 ...

如果是在用户窗体中点击命令按钮，在工作表中生成几个表单按钮，只需在命令按钮的单击事件中调用WithOnAction过程即可。
不知是否猜中你的意图。
另一个帖子中附有附件？让人找吗！

		自动登录	找回密码
密码			免费注册

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