Ссылка на функцию с общим выражением

Question

В VBA я хочу иметь возможность ссылаться на функцию частиц с помощью общего выражения и переменной внутри другой функции, например:

Function simpletest()
i = 1
simpletest = doom"i"
End Function

Function doom1()
doom1 = success
End Function

Возможно ли это в VBA, если да, то как я должен продолжить?

Answer 1

Это должно работать:

Function simpletest()
Dim function_name as String 
   function_name = "doom" 
   i = 1
   function_name = function_name & CStr(i)
   Application.Run function_name 
End Sub 

Function doom1()
doom1 = success
End Function

Дайте мне знать, если что-то нужно изменить

Answer 2

Функция по выражению

Option Explicit

Function SimpleTest(FName As String, FSuffix As String) As String
    SimpleTest = FName & FSuffix
End Function

Function Doom1() As String
    Doom1 = "Success in Doom1"
End Function

Function Doom2() As String
    Doom2 = "Success in Doom2"
End Function

Sub test()

    Const cTitle As String = "Doom"
    Dim i As Long

    ' Write the results to the Immediate Window (Ctrl+G).
    For i = 1 To 2
        Debug.Print Application.Run(SimpleTest(cTitle, CStr(i)))
    Next

End Sub

Answer 3

Попробуйте это ...

Sub SimpleTest()
    i = 1
    Application.Run "doom" & i
End Sub