forループ内の実行時変数の値を読み取る

Question

以下のコードでは、 の値がkk1 = "1"、kk2 = "2"、kk3 = "3"、kk4 = "4" 。実現することができる選択のケースなステートメントを使用することにより

代わりKK1、KK2、KK3及びKK4の私はメッセージボックスが一、二、三と四を表示したい

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

Answer 1

、ループ以下のコードを参照してください。 4から1から、 "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 

希望値 "KK1" で、これはあなたの問題を解決します。