我想在Excel VBA中使用VBA UDF /宏调用对象/子例程/用户窗体。我举一个例子。
示例场景:我有03个命令按钮,用于根据A1和B1单元格值更改字体大小写。在这里,图像01解决了我的目的。在这里,我编写了03次类似的模式代码。因此,现在我很想用一个用户定义的函数编写此代码一次,然后像Image 02一样调用它。
请注意,我知道这可以通过If ... Elseif语句(如图像03)来解决。但是我不想用这种方法来解决问题,因为我有很多宏,我想用一个简单的方法来调用功能类似于图片02。
所有代码都在这里: https ://drive.google.com/file/d/1RJVUOeqdzbLnZ7D_rZPxa-QdFhYQxzGD/view?usp = sharing
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句