ディスプレイアレイのギャップ

Question

この例では、Dimキーワードを使用して5つの文字列の配列StudentNameを定義します。私は、ユーザーからの入力を受け入れるInputBoxを含んでいます。 For ... Nextループを使用して入力を5回受け入れ、セルA1からセルE1までの5つの名前を表示します。コードは以下の通りである：

Sub CommandButton1_Click() 

Dim StudentName(1 to 5) As String 
For i = 1 To 5 
StudentName(i) = InputBox("Enter student Name") 
Cells(i, 1) = StudentName(i) 
Next 
End Sub 

私は10個の細胞のGAPのもの5名表示方法：ようにA50にA40にA30をして？

Answer 1

配列のサイズを0から1に変更し、反復変数var（i）を乗数として使用します。

Sub CommandButton1_Click() 
    Dim StudentName(0 to 4) As String 

    For i = lbound(StudentName) To ubound(StudentName) 
     StudentName(i) = InputBox("Enter student Name") 
     Cells(30 + i * 10, 1) = StudentName(i) 
    Nexti 

End Sub