aはブロック内のセル番号です。
iが0から8までまでsは0のままです。
つまりこの間aはiと同じで0から8まで動いていきます。
iが9になったときにはじめてsは1になります。
つまり、sは9つ単位で動きません。
その間セルはブロック単位で動きます。
そして、sが動くときにはじめてブロックをまたぎます。
Cells(7 + 3 * s3s + a3s, 9 + 3 * s3a + a3a)
3 * がミソです。３つ飛ばしの役割を持っています。
sの動きも、aの動くと同じく３つ毎に改行しx座標は0に戻ります。
aとsは相似形です。
sの中にaが入れ子式に入っています。
そして、s3aはブロックのｘ座標（横座標）ですし、s3sはｙ座標（ただし上下は逆 縦座標）です。
a3aはそのブロック内のｘ座標（横座標）ですし、a3sはｙ座標（ただし上下は逆 縦座標）です。
a3s a3a s3s s3aのaとsは前のものと後ろのものでは役割が違います。
前のa sはそれぞれブロック内セル番号とブロック番号です。
後ろのa sはそれぞれ横と縦という意味です。
結局a3s a3a a3s s3a s3sは次のように読めば良いのです。
a3aはブロック内セル横座標
a3sはブロック内セル縦座標
s3aはブロック横座標
s3sはブロック縦座標
なかなか１回の説明では、理解するのが難しいと思います。
第16話からこの話までを繰り返し読んで頂ければ幸いです。
全然意味が分からなかったことも、何回か目には氷解するはずです。
どうぞ忍耐強くお願いします。
さて、最後の課題をやって長くなりすぎた第６講を終了させることにしましょう。
最後の課題はLong型の変数をプログラムから排除することです。
すなわち、
できの悪い
x = CLng(1) * CLng(2) * CLng(3) * CLng(4) * CLng(5) * CLng(6) * CLng(7) * CLng(8) * CLng(9) '毎回計算させないようにするため
For i = 0 To 8
v = v * CLng(Cells(7 + i, 9))
Next
If v = x Then Cells(16, 9) = "○" Else Cells(16, 9) = "×" '毎回計算させないようにするための変更
を書き換えることです。
そのヒントを説明ししましょう。
Cells(*,*)を２次元配列と見なして、
添え字付きの変数を９個用意します。
実際上は、エクセルのシートのどこかを間借りします。
つまり、９個のセルを間借りするのです。
例えば、Cells（20,1)からCells（20,9)すなわちA20からI20までのセルです。
そして、最初For文を使い0を代入しておくのです。
次に、
I12ならCells（20,7)=1、I12ならCells（20,8)=1
などと代入します。
このような代入をI列すべてについて行います。
以上がヒントです。
