如何在 VBA 中用另一个 macro/Function(UDF) 调用 Object/macro/userform？

Question

我想在 Excel VBA 中用 VBA UDF/Macro 调用 Object/Sub-routine/userform。我举个例子。

示例场景： 我有 03 命令按钮用于根据 A1 和 B1 单元格值更改字体大小写。有了图片01，我的目的就解决了。在这里，我写了03次类似的模式代码。所以，现在我很想用用户定义的函数编写一次这段代码，然后像图像 02 一样回忆它。

请注意，我知道这可能可以通过 If...Elseif 语句解决，如图像 03。但我不想用这种方法获得解决方案，因为我有很多宏，我想然后用像 Image 02 这样的简单函数调用。

Answer 1

private sub commandbutton1_click()
  CommonMacro "Sheet1.UcaseFont"
end sub

private sub commandbutton2_click()
  CommonMacro "Sheet1.LcaseFont"
end sub

private sub commandbutton3_click()
  CommonMacro "Sheet1.ProperCaseFont"
end sub

Function CommonMacro(byval MacroRun as string)
  ...
  Application.Run MacroRun
  ...
end function