Excel Maniacs

１５パズル（９）

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

【´･ω･`】：お～流石、べべちゃん。では下のコードの特徴は？　　　　　

　　　　　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

(●`ε´●)：行番号は初項５，公差１の等差数列、右辺は初項-1，公差4の等差数列だ。

　　　　　　もしも更にループを使えるならば・・・

　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　　Next

　　　　　　・・・となるはずだ。

【´･ω･`】：お～、流石！！ループの中にループを入れることを

　　　　　　ループの入れ子とかネストとよんでいるんだ。

(●`ε´●)：こうやってみると元々は32行あった記録マクロのコード・・・

　　　　　　!! マクロ記録 : 2007/04/04 12:14:13

　　　　　　Range("B5").SetCurrent()
　　　　　　CurrentCell.Formula = "1"
　　　　　　Range("C5").SetCurrent()
　　　　　　CurrentCell.Formula = "2"
　　　　　　Range("D5").SetCurrent()
　　　　　　CurrentCell.Formula = "3"
　　　　　　Range("E5").SetCurrent()
　　　　　　CurrentCell.Formula = "4"
　　　　　　Range("B6").SetCurrent()
　　　　　　CurrentCell.Formula = "5"
　　　　　　Range("C6").SetCurrent()
　　　　　　CurrentCell.Formula = "6"
　　　　　　Range("D6").SetCurrent()
　　　　　　CurrentCell.Formula = "7"
　　　　　　Range("E6").SetCurrent()
　　　　　　CurrentCell.Formula = "8"
　　　　　　Range("B7").SetCurrent()
　　　　　　CurrentCell.Formula = "9"
　　　　　　Range("C7").SetCurrent()
　　　　　　CurrentCell.Formula = "10"
　　　　　　Range("D7").SetCurrent()
　　　　　　CurrentCell.Formula = "11"
　　　　　　Range("E7").SetCurrent()
　　　　　　CurrentCell.Formula = "12"
　　　　　　Range("B8").SetCurrent()
　　　　　　CurrentCell.Formula = "13"
　　　　　　Range("C8").SetCurrent()
　　　　　　CurrentCell.Formula = "14"
　　　　　　Range("D8").SetCurrent()
　　　　　　CurrentCell.Formula = "15"
　　　　　　Range("E8").SetCurrent()
　　　　　　CurrentCell.Clear(1, false, false, false)

　　　　・・・・が、たったの・・・・・

　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　 Next

　　　　　　Cells(8,5)=""　

　　　　　　・・・になってしまったというわけか。プログラミングって面白いなァ。(^。^)

１５パズル（８）

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

　　　　　　何か特徴がないか？

　　　　　　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（整数）の頭文字だからだな。

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

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