を実現するプログラム例
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()) 'データ表示関数
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
Private Sub CommandButton2_Click()
Rows("4:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
では、左右に反転させるサブプロシージャを付け加えて、
元のデータを転置してしまっていますから、
再転置してから、左右に反転させることを忘れないようにしましょう。
第８講第６話へ 第２話へ
