Excel Maniacs

１５パズル（８）

【´･ω･`】：それでは下の１６行のうち上から４行を見てくれ。

　　　　　　何か特徴がないか？

　　　　　　Cells(5,2)=1
　　　　　　Cells(5,3)=2
　　　　　　Cells(5,4)=3
　　　　　　Cells(5,5)=4
　　　　　　Cells(6,2)=5
　　　　　　Cells(6,3)=6
　　　　　　Cells(6,4)=7
　　　　　　Cells(6,5)=8
　　　　　　Cells(7,2)=9
　　　　　　Cells(7,3)=10
　　　　　　Cells(7,4)=11
　　　　　　Cells(7,5)=12
　　　　　　Cells(8,2)=13
　　　　　　Cells(8,3)=14
　　　　　　Cells(8,4)=15
　　　　　　Cells(8,5)=""

(●`ε´●)：行番号は全て５，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項１，公差１の等差数列になっている。

【´･ω･`】：うん、だからForループを使うと・・・・

               For %x = 2 To 5

                      Cells(5, %x)=%x -1

                Next

      　　　・・・・となる。

【´･ω･`】：次の４行の特徴は？

　　　　　　Cells(6,2)=5
　　　　　　Cells(6,3)=6
　　　　　　Cells(6,4)=7
　　　　　　Cells(6,5)=8

(●`ε´●)：行番号は全て６，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項５，公差１の等差数列になっている。

【´･ω･`】：うん、すると同様にForループを使うと・・・・

               For %x = 2 To 5

                       Cells(6, %x)=%x + 3

                Next

      　　　・・・・となる。

【´･ω･`】：さらに次の４行の特徴は？

　　　　　　Cells(7,2)=9
　　　　　　Cells(7,3)=10
　　　　　　Cells(7,4)=11
　　　　　　Cells(7,5)=12

(●`ε´●)：行番号は全て7，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項9，公差１の等差数列になっている。

【´･ω･`】：うん、すると更にForループを使うと・・・・

               For %x = 2 To 5

                       Cells(7, %x)=%x + 7

                Next

      　　　・・・・となる。

(●`ε´●)：なるほど、要領がわかったよ。最後の４行は・・・

　　　　　　Cells(8,2)=13
　　　　　　Cells(8,3)=14
　　　　　　Cells(8,4)=15
　　　　　　Cells(8,5)=""

(●`ε´●)：あれ？！最後の行が規則的ではないな。

【´･ω･`】：じょあ、取りあえず最後の行は・・・

　　　　　　Cells(8,5)=16

　　　　　　・・・だと思えば？

(●`ε´●)：行番号は全て8，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項13，公差１の等差数列だ。

【´･ω･`】：するとどう表せる？

(●`ε´●)： For %x = 2 To 5

                       Cells(8, %x)=%x + 11

                  Next

【´･ω･`】：正解だ。今まで作った４つのForループを並べるから

　　　　　　もう一度よく見てくれ。

　　　　　　For %x = 2 To 5

                      Cells(5, %x)=%x -1

                Next

　　　　　　For %x = 2 To 5

                       Cells(6, %x)=%x + 3

                Next

　　　　　　For %x = 2 To 5

                       Cells(7, %x)=%x + 7

                Next

　　　　　　For %x = 2 To 5

                       Cells(8, %x)=%x + 11

                 Next

【´･ω･`】：何か特徴は？

(●`ε´●)：４つとも外枠が同じになっている。

【´･ω･`】：うん。どれも　For %x = 2 To 5　と Next だな。

　　　　　　だから、４つのForループはまとめれば・・・

　　　　　For %x = 2 To 5
　　　　　　　Cells(5, %x)=%x -1
　　　　　　　Cells(6, %x)=%x + 3
　　　　　　　Cells(7, %x)=%x + 7
　　　　　　　Cells(8, %x)=%x + 11
　　　　　Next

(●`ε´●)：なるほど。

【´･ω･`】：・・・でこのままでは

　　　　　　　　Cells(8,5)=16　が生きているのでE8が１６になってしまう。

　　　　　　　　だから最後に　Cells(8,5)=""　を付け加えてE8をクリアすればいい。

　　　　　　　　ゆえに最終的には・・・

　　　　　For %x = 2 To 5
　　　　　　　Cells(5, %x)=%x -1
　　　　　　　Cells(6, %x)=%x + 3
　　　　　　　Cells(7, %x)=%x + 7
　　　　　　　Cells(8, %x)=%x + 11
　　　　　Next

　　　　　Cells(8,5)=""　

　　　　　・・・が答えとなる。

(●`ε´●)：うん、よく見ると・・・まだまだ行けそうだな・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル(7)

【´･ω･`】：今回はもう一つの基本事項のループだ。

　　　　　　ループは処理の繰り返しに使う。その中でも最も基本的な

　　　　　　を取り上げる。　まず、「For ループ」を取り上げよう。

★書式：

               For  %カウンタ変数 = 開始値　To 終了値

　　　　　　　　　　繰り返したい処理

　　　　　 Next

【´･ω･`】：このような記述をすると%カウンタ変数の値を開始値から

　　　　　　終了値まで１ずつ増加させながら、（終了値－開始値＋１）回だけ

　　　　　　「繰り返したい処理」を繰り返す・・・。

(●`ε´●)：おい、難しいぞ！！

【´･ω･`】：OK,では具体的に行こう。

　具体例（１）

　　　　　　For %i = 1 To 5

                         MsgBox("こんにちは")

　　　　　　Next

【´･ω･`】：具体例（１）のように記述すると、（終了値－開始値＋１）回、つまり

　　　　　　（５－１＋１）回だから、5回ほど「こんにちは」というメッセージボックスが

　　　　　　表示される。ではもう一つ具体例を・・・。

　具体例（２）

　　　　　　For %i = 1 To 5

                         MsgBox( %i )

　　　　　　Next

【´･ω･`】：さて、こんどはメッセージボックスの中身が「こんにちは」から%iに変わった。

　　　　　　すると%カウンタ変数の%iが、開始値１から終了値５まで１ずつ増加していく

　　　　　　から、具体例(1)では5回とも同じ「こんにちは」というメッセージが表示されたが

　　　　　　こんどは・・・。

(●`ε´●)：メッセージボックスの内容が５回とも違って、１，２，３，４，５と

　　　　　　なるというわけか？

【´･ω･`】：その通り。「For ループ」では変化する%カウンタ変数の値をうまく

　　　　　　利用するのがコツだな。

(●`ε´●)：おー、なんとなくわかったぜ。

　　　　　　ところで、なんで%iなんだ？

【´･ω･`】：別に%Xでも、%Yでも、あるいは日本語で%番号でもいいんだが

　　　　　　%iがよくつかわれるのは integer（整数）の頭文字だからだな。

　　　　　　それでは次回はこの２回でやった基本事項の考えをもとにして

　　　　　　１５パズルのコードに戻ろう。

１５パズル（６）

【´･ω･`】：Range（）形式をCells()形式にすると何がいいかを

　　　　　　理解してもらうために二つほど基本事項を説明したい。

　　　　　　まずは・・・

★＝（等号）の使い方について

【´･ω･`】：Super Play Riteでは、等号は２つの使い方があるんだ。

　(1)代入演算子としての＝（等号）

　　　例）　%X = %X +1

(●`ε´●)：おい、その式はおかしくないか？両辺から%Xを引いたら

　　　　　　0=1になっちゃうぞ！！

【´･ω･`】：この場合の等号の使い方は数学での使い方と違うんだ。

(●`ε´●)：どう違う？

【´･ω･`】：まず式の右辺を計算して、その結果を左辺に代入するんだ。

　　　　　　つまり、もしも%Xが1ならば右辺を計算して２。その結果を左辺に

　　　　　　代入するわけだから、%X = %X +1のコードを実行すると

　　　　　　実行前に１であった%Xが実行後には２になるということだ。

(●`ε´●)：それでは、実行前に%Yが３だったとすると

　　　　　　例）　%Y = %Y －２

　　　　　　の後では%Y は１になるということだな？

【´･ω･`】：そう。ちなみに割り算の「÷」を表す記号は「/（スラッシュ）」、かけ算は

　　　　　「*（アスタリスク）」になる。

(●`ε´●)：わかった。で、もう一つの等号の使い方は？

(２)比較演算子としての＝（等号）

【´･ω･`】：もう一つは数学の等号と同じ。左辺と右辺が等しいという意味。等号は

　　　　　If文のの中などで条件判断に使われると数学の等号と同じ使い方になる。

　　　　　例）      If Range("A1") = 1 Then

                                 MsgBox("A1は１です")

                           Else

                                 MsgBox("A1は１ではありません")

                           End  If

(●`ε´●)：わかったけど面倒くさいな。なんでSuper Play Riteを作ったひとは

　　　　　　　同じ記号に二つの意味を持たせたんだ？！別の記号にしておけば

　　　　　　　混乱しないのに。

【´･ω･`】：BASICをルーツとするプログラミング言語はSuper Play Riteと同じだな。

　　　　　　もちろん、ちがう記号を割り当てている言語もある。次回はもうひとつの

　　　　　　基本事項を説明しよう。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）