VBA在OnAction中包含子例程的参数

用户名

我有一些代码可以在Excel VBA中构造菜单,如下所示:

For Each Thing In Array("Foo", "Bar", "Baz")
    With .Controls.Add(Type:=msoControlButton)
         .Caption = "Run with " & Thing
         .FaceId = 2934
         .OnAction = "'" & ThisWorkbook.Name & "'!" & "RunWith" & Thing
    End With
Next Thing

Sub RunWithFoo()
  RunWith "Foo"
End Sub

Sub RunWithBar()
  RunWith "Bar"
End Sub

Sub RunWithBaz()
  RunWith "Baz"
End Sub

Sub RunWith(Thing) ...etc

有没有一种方法可以直接调用RunWith,而无需通过RunWithFooetc助手方法?

悉达思·劳特

这是一个例子

Sub Sample()
    Dim Thing
    Thing = "Sid"
    Application.OnKey "^{s}", "'RunWith""" & Thing & """'"
End Sub

Sub RunWith(Thing)
    MsgBox Thing
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

使用参数调用Excel VBA子例程

来自分类Dev

VBA通过.onAction传递参数

来自分类Dev

Excel VBA模块子例程未通过参数获取

来自分类Dev

Perl子例程从哪里获取实际参数中缺少的值?

来自分类Dev

子例程的参数列表中的语法错误

来自分类Dev

如何使用unix shell中的参数调用子例程

来自分类Dev

FORTRAN 77中子例程参数的范围

来自分类Dev

Excel VBA在数组中存储函数或子例程

来自分类Dev

VBA EXCEL:如何在另一个子例程中调用一个子例程?

来自分类Dev

将数组中的数字获取到包含VB中的计算的子例程中

来自分类Dev

子例程中调用的子例程中的Application.ScreenUpdating

来自分类Dev

Perl子例程中的本地$ _

来自分类Dev

PERL中的子例程原型

来自分类Dev

在子例程中捕获别名

来自分类Dev

在子例程中捕获别名

来自分类Dev

Perl子例程中的本地$ _

来自分类Dev

如何获取Perl子例程的参数内容

来自分类Dev

带有可选块参数的子例程

来自分类Dev

以数组元素为参数的子例程

来自分类Dev

调用参数为指针别名的子例程

来自分类Dev

mainfunction的参数和变量在子例程中可以安全使用吗?

来自分类Dev

我可以将带有参数的子例程存储在哈希中吗?

来自分类Dev

调用子并在VBA中传递参数

来自分类Dev

Excel中具有大型数据集的VBA子例程的速度问题

来自分类Dev

如何在Excel VBA中的子例程之间传递范围变量

来自分类Dev

VBA-将子例程中的属性设置为在调试时自动跳过

来自分类Dev

访问VBA-使用变量来调用表单模块中的子例程/函数

来自分类Dev

如何在excel vba中获取子例程以返回某些内容?

来自分类Dev

VBA-将子例程中的属性设置为在调试时自动跳过

Related 相关文章

热门标签

归档