コード例は、例によって30行下。
コード例
Private Sub CommandButton1_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 0 To 4
For j = 0 To 4
a(i, j) = 5 * i + j + 1
Next
Next
For i = 0 To 4
For j = 0 To 4
Cells(5 + i, 1 + j) = a(i, j)
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("5:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
今回は、2次元配列を利用して、自然配列を作りましたが、
実は、1次元配列Dim b(25) As Integerを用意して自然配列を生成することも出来ます。
どうしたらよいでしょうか。
コードを考えて見ましょう。
コード例は30行下。
コード例
Private Sub CommandButton1_Click()
Dim b(25) As Integer
Dim i As Integer, j As Integer
For i = 0 To 4
For j = 0 To 4
b(5 * i + j) = 5 * i + j + 1
Next
Next
For i = 0 To 4
For j = 0 To 4
Cells(5 + i, 1 + j) = b(5 * i + j)
Next
Next
End Sub
２次元配列で実現したことと同じことをなぜ、１次元配列でも実現できるのでしょうか。
解説は次話で。
第13講第９話へ 第２話へ
