從字符串值VBA調用子例程

Question

嘗試使用字符串調用此子例程。 我已經嘗試了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

Answer 1

刪除括號，並在您的Sub名稱前加上模塊名稱。 例如， Application.Run "Module1.MySub" 。