Используйте переменные в качестве случаев в выбранном случае

Question

Я должен сравнить переменную с другими переменными.

Вот небольшой тест, который я сделал, который должен Вывести;"Это AC"

Dim aDim As String: a = "a"
Dim bDim As String: b = "b"
Dim cDim As String: c = "c"
Dim test As String: test = "c"

Select Case test
    Case aDim
        MsgBox "It's an a"
    Case bDim
        MsgBox "It's a b"
    Case cDim
        MsgBox "It's a c"
    Case Else
        MsgBox "Something went wrong"
End Select

Когда я начинаю это, я получаю "Что-то пошло не так".Я подумал, что он принимает aDim, bDim и cDim как строки, а не как переменные с их значениями.Как я могу сделать так, чтобы оно принимало Значение, а не Имя как строку?

Answer 1

Переменные, которые вы тестируете, пусты, aDim и a различны.Вы объявляете aDim как строку, но она не имеет никакого значения:

Ваш код:

Dim aDim As String: a = "a"

Что вы, вероятно, хотели:

Dim aDim As String: aDim = "a"

Answer 2

На первый взгляд ...

Dim a As String: a = "a"
Dim b As String: b = "b"
Dim c As String: c = "c"
Dim test As String: test = "c"

Select Case test
    Case a
        MsgBox "It's an a"
    Case b
        MsgBox "It's a b"
    Case c
        MsgBox "It's a c"
    Case Else
        MsgBox "Something went wrong"
End Select

Answer 3

Ваш код должен быть

Dim aDim As String: aDim = "a"
Dim bDim As String: bDim = "b"
Dim cDim As String: cDim = "c"
Dim test As String: test = "c"

Select Case test
    Case aDim
        MsgBox "It's an a"
    Case bDim
        MsgBox "It's a b"
    Case cDim
        MsgBox "It's a c"
    Case Else
        MsgBox "Something went wrong"
End Select