尝试使用字符串调用此子例程。我已经尝试了Application.Run,就像我在网上阅读过一样,但这似乎不起作用。
变量元素将循环遍历并表示不同的状态码。因此,我有一个名为“ CA_Config”,“ GA_Config”,“ AZ_Config”等的字幕。
Dim strSubToCall As String
strSubToCall = element & "_Config()"
Application.Run strSubToCall
状态子程序非常不同,因此需要使用不同的子程序。其他子程序和调用其他子程序的主子程序都是公共的。
下面的CA子示例
Public Sub CA_Config()
Dim rngLastHeader As Range
Dim intLastRow As Integer
Dim i As Integer
intLastRow = Sheet1.currWS.UsedRange.Rows.Count
Set rngLastHeader = Sheet1.currWS.Range("A1").End(xlToRight)
rngLastHeader.Offset(, 1).Value = "Use Tax Reversal Needed"
Sheet1.currWS.Range("X:X").EntireColumn.Copy
Sheet1.currWS.Range("Y:Y").PasteSpecial xlPasteFormats
Sheet1.currWS.Range("Y:Y").Columns.AutoFit
End Sub
最佳答案
删除括号,并在Sub名称前加上模块名称。例如,Application.Run "Module1.MySub"
。