１５パズル（９）

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

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

　　　　　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)=""　

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