１５パズル（4）

【´･ω･`】：これからの数回はコードをまとめていく。

　　　　　　まず、下の２行のコードを見てくれ。

　　　　　　Range("B5").SetCurrent()
　　　　　　CurrentCell.Formula = "1"

　　　　　　これは１行目でセルB5をカレントセルにして

　　　　　　２行目でそのカレントセルに１を書き込むというコードだ。

　　　　　　これは直接、B5に１を書き込むとすればよいので

　　　　　　下の１行にまとめられる。

　　　　　　Range("B5") = 1

(●`ε´●)：ずいぶん短くなったな。

【´･ω･`】：うん、記録マクロで作ったコードは冗長になるからね。

(●`ε´●)：すると前に記録マクロで作った下のコードは

　　　　　　!! マクロ記録 : 2007/04/03 09: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)

　　　　　は更に下のように短くできるということだな？

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

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

【´･ω･`】：うん、でももっとすっきりさせることが出来る。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）