第４話 自然逆配列解答例
コード例
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
For j = 1 To 10
Cells(4 + i, 1 + j) = 10 * (i - 1) + j
Next
Next
For i = 1 To 10
For j = 1 To 10
Cells(15 + i, 1 + j) = 101 - (10 * (i - 1) + j)
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
さらに参考ファイルを改良して
を実現してください。
