第７話 順列作成マクロ解説その1
順列作成マクロプログラム重要部分再掲
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
i、ｊ､kの役割が分かるようにコードと実行画面を色対応してあります。
iは順列の１番最初のセルを担当し、
ｊは順列の２番目のセルを担当し、
kは順列の３番目のセルを担当しているわけです。
さて、
If i <> j Then
・・・
End If
は何のためにあるのでしょうか。
順列の規則は同じ数字の重複を認めないということでした。
ですから、１１１ようなものは順列として認めません。
If i <> j Then
・・・
End If
の役割は１番目のセルと２番目のセルの数字
が重ならないようにしているのです。
If k <> i And k <> j Then
・・・
End If
の役割をもうお分かりですね。
これは３番目のセルの数字が、
１番目のセルの数字とも、
２番目のセルの数字とも重ならないようにしているのです。
残りは、
Cells(5, 2 + cn * 4) = i
Cells(5, 3 + cn * 4) = j
Cells(5, 4 + cn * 4) = k
cn = cn + 1
の４行を理解することです。
cnはカウンターすなわち数える変数です。
今何個目の順列を作っているか数えています。
ただし、cnは０から始まっていますので、
最初の順列を０個目、２個目の順列を１個目などと数えています。
もし、最初の順列を１個目、次の順列を２個目と数えさせたいなら、
コードは次のように変更しなければなりません。
cn = cn + 1
Cells(5, - 2 + cn * 4) = i
Cells(5, - 1 + cn * 4) = j
Cells(5, cn * 4) = k
Cells(5, - 2 + cn * 4) = iなどに？が浮かびますよね。
一番最初のループにおいてcn = cn + 1からcnは１になっています。
すると、Cells(5, - 2 + cn * 4) はCells(5, - 2 + １ * 4)すなわちCells(5, 2)となり、
B5のセルになります。もし、Cells(5, 2 + cn * 4) のままだと
Cells(5, 2 + 1 * 4) = Cells(5, 6)になってしまい、
F5の位置に最初の順列が表示されてしまうことになります。ですから、 Cells(5, - 2 + cn * 4) に変更しなければならないのです。
さて、 * 4の意味は何でしょうか。
それは４つ飛びにするという意味です。
B5の次はF5ですね。
BCDEFですから、間が４つですよね。
４つ飛びにするときに+ cn * 4とすることが有用な手法です。
魔方陣と数独を主な題材とする本講義ではしばしば登場する手法です。
是非とも覚えてください。
