从字符串值VBA调用子例程

Question

尝试使用字符串调用此子例程。我已经尝试过Application.Run，​​就像我在线阅读一样，但似乎没有用。 变量元素将循环并表示不同的状态代码。所以我有一个名为“CA_Config”，“GA_Config”“AZ_Config”等的副词。

Dim strSubToCall As String
strSubToCall = element & "_Config()"
Application.Run strSubToCall

状态子是非常不同的，因此需要不同的子程序。其他潜艇和调用其他潜艇的主潜艇都是公共的。

以下CA sub的示例

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

删除括号并在您的子名称前加上模块名称。例如，Application.Run "Module1.MySub"。