１５パズル（２）

くまぷーに宿題を出されたべべちゃんは

記録マクロを使った。実際に順番に

１から１５の数字を入力して最後のセルE8では

Deleteキーを押した。すると下のようなコードができた。

!! マクロ記録 : 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)

(●`ε´●)：これで一応、動くはずだが・・・。

【´･ω･`】：うん、これでちゃんと動くよ。

　　　　　　では次回はこのコードの意味を

　　　　　　考えてみよう。