在 for 循环中读取运行时变量的值

Question

在下面的代码中... kk1 =“一”，kk2 =“二”，kk3 =“三”和kk4 =“四”的值。

我希望 msgbox 显示一、二、三和四，而不是 KK1、KK2、KK3 和 KK4

For i = 1 To 4
    vari_value = "kk" & i
    MsgBox vari_value
Next

Answer 1

使用Select case语句可以实现，参考下面的代码，从1循环到4，值为“KK1”、“KK2”、“KK3”、“KK4”

Public Sub run()
For i = 1 To 4
vari_value = "kk" & i
Select Case vari_value
    Case Is = "kk1"
        MsgBox "One"
    Case Is = "kk2"
        MsgBox "Two"
    Case Is = "kk3"
        MsgBox "Three"
    Case Is = "kk4"
        MsgBox "Four"
End Select
'MsgBox vari_value
Next
End Sub

希望这能解决您的问题。