excel - 连接字符串和变量以引用另一个变量

Question

是否可以将字符串和变量结合起来创建另一个变量的名称并在同一个过程中引用它？像这样:

Sub Test()
    Dim colorName As String
    Dim columnYellow As Long

    colorName = "Yellow"
    columnYellow = 3

    Debug.Print columnYellow '-> prints "3"
    Debug.Print "column" & colorName '-> prints "columnYellow" (I would like it to return 3)

End Sub

我想要 Debug.Print "column" & colorName返回“3”而不是“columnYellow”。我可以这样做吗？

Answer 1

变量标识符不能被连接，除了 CallByName仅限于对象(您不能从标准模块调用方法)。

作为替代使用数组或集合。您必须使用集合，其中可以将字符串作为值的键，并且可以连接字符串。

Sub Test()
    Dim ColorNameNr As Collection
    Dim colorName As String
    Set ColorNameNr = New Collection
    ColorNameNr.Add 3, "columnYellow"
    colorName = "Yellow"

    Debug.Print ColorNameNr.Item("columnYellow") '-> prints "3"
    Debug.Print ColorNameNr.Item("column" & colorName) '-> prints "3")
End Sub