を実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer
Dim h(10, 10) As Integer
Call f(h()) 'データ入力関数
Call g(1, h()) 'データ表示関数
Call t(h()) 'データ転置関数
Call g(12, h()) 'データ表示関数
Call t(h()) 'データ転置関数
Call hn(h()) 'データ左右反転関数
Call g(23, h()) 'データ表示関数
End Sub
Sub f(h() As Integer)
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
h(i, j) = 10 * i + j + 1
Next
Next
End Sub
Sub g(a As Integer, h() As Integer)
Dim i As Integer, j As Integer
For i = 0 To 9
For j = 0 To 9
Cells(4 + i, a + j) = h(i, j)
Next
Next
End Sub
Sub t(h() As Integer)
Dim i As Integer, j As Integer
Dim h1(10, 10) As Integer
For i = 0 To 9
For j = 0 To 9
h1(i, j) = h(i, j)
Next
Next
For i = 0 To 9
For j = 0 To 9
h(i, j) = h1(j, i)
Next
Next
End Sub
Sub hn(h() As Integer)
Dim i As Integer, j As Integer
Dim h1(10, 10) As Integer
For i = 0 To 9
For j = 0 To 9
h1(i, j) = h(i, j)
Next
Next
For i = 0 To 9
For j = 0 To 9
h(i, j) = h1(i, 9 - j)
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さらに、上下反転も加えましょう。
第１話へ 第３話へ
