尝试使用字符串调用此子例程。我已经尝试了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"

10-05 21:23
查看更多