从string值VBA调用子例程

试图用一个string来调用这个子程序。 我已经尝试了Application.Run就像我已经在网上阅读，但似乎并没有工作。 variables元素将循环并代表不同的状态码。 所以我有称为“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

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