は、私は値の配列を作りたいループVBAについて

Question

を使用して、配列宣言：W1、W2、W3、Y1、Y2、Y3 ...など、私のコードでエラーが発生しました：

sub array() 

Dim titles() as string 

For i = 1 to 3 

titles(i + 0) = "w" + i 
titles (i + 3) = "y" + i 
titles (i + 6) = "x" + 1 

'... 

Next i 

End sub 

Answer 1

あなたはかなり近くでした：

Sub arrray() 

    Dim titles(1 To 9) As String 
    Dim i As Long 

    For i = 1 To 3 
     titles(i + 0) = "w" & i 
     titles(i + 3) = "y" & i 
     titles(i + 6) = "x" & i 
    Next i 

    For i = 1 To 9 
     MsgBox titles(i) 
    Next i 
End Sub