を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
Dim i As Byte, j As Byte, n As Byte
n = 6 '汎用的にするためにnとした。
For i = 0 To n - 1 '自然配列の作成
For j = 0 To n - 1
Cells(3 + i, 2 + j) = n * i + j + 1
Next
Next
For i = 0 To n - 1 'B3からG8までをB9からG17までコピー
For j = 0 To n - 1
Cells(10 + i, 2 + j) = Cells(3 + i, 2 + j)
Next
Next
Cells(9, 2) = "対角線を交換すると、"
Dim w As Byte
For i = 0 To Int((n - 1) / 2) '対角線部分の交換
w = Cells(15 - i, 7 - i)
Cells(15 - i, 7 - i) = Cells(10 + i, 2 + i)
Cells(10 + i, 2 + i) = w
Next
End Sub
Private Sub CommandButton2_Click()
Rows("3:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
次は逆対角線部分の交換です。
