Select_number は3部屋を占有する組み合わせを求め易くするための、chainr matrixを作るマクロである。
chainb はCandy matrix を拡大したもので、次のサイズを持つ。
ReDim chainb(z + 1, z + 1), chainr(z + 1, z + 1)
z=9 、chainb(0,z+1), (z+1,0) は、タイトル、(i,z+1),(z+1,j) は候補の数が入る。
matrixを空にする。 Erase chainb, chainr
chainb を作成する。 画面を chainb に移す。
For i = 1 To z
For j = 1 To z
chainb(i, j) = Sheets("Sheet1").Cells(ppp + i, qqq + j)
Next j
Next i
空白セルの候補を、 chainb に書き込む。
For i = 1 To empty_cell
ikumi = can(i, 5)
i1 = can(i, 2): j1 = can(i, 3)
candidate = ""
For k = 1 To ikumi
candidate = candidate & can(i, 5 + k)
Next k
chainb(i1, j1) = candidate
Next i
chainb の上に、C1,C2・・・ 左端に R1,R2,R3・・・を書き込む。
For j = 1 To z
chainb(0, j) = "C" & j
chainb(j, 0) = "R" & j
Next j
chainr の作成 chainbより、現在対象としている digit nb を抜き出す。
chainr は特定の候補に絞ったmatrix
For i = 1 To z
For j = 1 To z
k = Len(chainb(i, j))
If k <> 1 Then
For m = 1 To k
If Int(Mid(chainb(i, j), m, 1)) = nb Then
chainr(i, j) = nb
End If
Next m
End If
Next j
Next i
chainr にタイトルをつける。
For j = 1 To z
chainr(0, j) = "C" & j
chainr(j, 0) = "R" & j
Next j
各行について、nbの数を持つセルの数を数えて、chainr(i,z+1) 一番右端に書き込む。
For i = 1 To z 'row i no kosuu
num = 0
For j = 1 To z
If chainr(i, j) <> "" Then
num = num + 1
End If
Next j
chainr(i, z + 1) = num
Next i
各列に対して、同様にセルの数を数えて、chainr (z+1, j) 一番下に書き込む。
For j = 1 To z 'column j no kosuu
num = 0
For i = 1 To z
If chainr(i, j) <> "" Then
num = num + 1
End If
Next i
chainr(z + 1, j) = num
Next j
chainr matrix はこのようになる。(Examle U-78 nb=7)
chainc の登場。
chainrを列、行を並び替えて、arranged matrix chainc を作成する。
Erase chainc
ReDim chainc(z + 1, z + 1)
行の並び替え。1,2,3、の順に候補の数が少ない順に上からchainc に書き込む。
num = 0
For kosu = 1 To z
For i = 1 To z
If chainr(i, z + 1) = kosu Then
num = num + 1
For j = 0 To z + 1
chainc(num, j) = chainr(i, j)
Next j
End If
Next i
Next kosu
行の並び替えが終わると、それを chainr に戻す。
chaincは単なるwork area である。
For i = 1 To z
For j = 0 To z + 1
chainr(i, j) = chainc(i, j)
Next j
Next i
同じことを、列に対して行う。
Erase chainc
ReDim chainc(z + 1, z + 1)
num = 0
For kosu = 1 To z
For j = 1 To z
If chainr(z + 1, j) = kosu Then
num = num + 1
For i = 0 To z + 1
chainc(i, num) = chainr(i, j)
Next i
End If
Next j
Next kosu
列を並び替えた結果をchainc から chainr に戻す。
For i = 0 To z + 1
For j = 1 To z
chainr(i, j) = chainc(i, j)
Next j
Next i
kind="column"の場合にはこのまま終わる。
kind="row"の場合には chainr の転置行列にする。
If kind = "row" Then
For i = 0 To z + 1
For j = 0 To z + 1
chainc(j, i) = chainr(i, j)
Next j
Next i
For i = 0 To z + 1
For j = 0 To z + 1
chainr(i, j) = chainc(i, j)
Next j
Next i
End If
