第６話 順列作成マクロ例
順列作成マクロ解答例
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte, k As Byte, cn As Byte
cn = 0
For i = 1 To 3
For j = 1 To 3
If i <> j Then
For k = 1 To 3
If k <> i And k <> j Then
Cells(5, 2 + cn * 4) = i
Cells(5, 3 + cn * 4) = j
Cells(5, 4 + cn * 4) = k
cn = cn + 1
End If
Next
End If
Next
Next
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
さて、皆さんに魔方陣や数独に直結する次の課題
頂きたいところですが、
今回のプログラムを曖昧さなしに、
芯から理解することが、
今後の学習のために必要なことですから、
解説を次話で行いたいと思います。
理解できていると思っている方も念のため熟読して頂ければ幸いです。
