vba - Excel VBA - 按名称调用应用程序函数(左、右)

Question

我希望能够使用字符串变量调用应用程序函数，例如 left() 和 right()。

原因是我当前的代码工作正常，但有多个 left() 和 right() 实例，每次运行时可能需要更改。我希望每次只能更改一次(“全局”)。

谷歌搜索后，我尝试了CallByName和Application.Run。似乎它们只适用于自定义类/宏。这是真的？还有什么我应该调查的吗？我不需要具体代码，谢谢!

Answer 1

如果您想要Left或Right，您可以构建自定义函数。

Option Explicit

Sub Test()

    Debug.Print LeftRight("L", "StackOverflow", 5)
    Debug.Print LeftRight("R", "StackOverflow", 8)

End Sub

Function LeftRight(sWhich As String, sValue As String, iLength As Integer) As String

    Select Case sWhich

        Case "L": LeftRight = Left(sValue, iLength)
        Case "R": LeftRight = Right(sValue, iLength)
    
    End Select

End Function

您只需根据需要使用“L”或“R”即可。更改一次并每次都作为 sWhich 传递。您甚至可以为此使用单元格引用并在运行代码之前更新单元格。

结果

Stack

Overflow