(41) 対角線ナンプレ(SUDOKU_Ver.26)

対角線ナンプレはノーマル・ナンプレのルールに加えて、さらに二つの対角線上の　9個のセルにも 1 から 9 までの数字が一つずつ入るというルールが加わる。これに対応するマクロは check の中に数行のステートメントを追加するだけでよい。

　改正マクロは次のようになる。

if iii<>jjj then goto contd
for i=1 to 9
for j=1 to 9
if i=j then
ccc=Cells( 6+i, 1+j)
if aaa=ccc then goto contaaa
end if
next j
next i

contd:

if iii<>(10-jjj) then goto contd

for i=1 to 9

for j=1 to 9

if i=10-j then

ccc=Cells( 6+i, 1+j)

if aaa=ccc then goto contaaa

end if

next j

next i

contdj:

　ここに、 Sheet 1 の　( 7, 2) から ( 15, 10) に　A 画面があり、前半の部分が右下がりの対角線で、後半の部分が左下がりの対角線に相当する。