Excel Maniacs

１５パズル（５）

【´･ω･`】:前回は記録マクロで作られたコードを下のように編集したところまでだったな。

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

(●`ε´●)：ああ。

【´･ω･`】：記録マクロではセルを指定するときに

　　　　　　　　　　Range("セル番地")

　　　　　　という形式を使っているが実はもう一つ、セルを

　　　　　　指定する形式があるんだ。

(●`ε´●)：それは？

【´･ω･`】：Cells(行番号,　列番号) という形式。

　　　　　　A列、B列、C列をそれぞれ１列、２列、３列と考えて

　　　　　　Range("B3")ならばCells(3,2)

　　　　　　Range("C2")ならばCells(2,3)と表すことが出来る。

(●`ε´●)：すると上の１６行のコードは下のように書けるわけか？

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

【´･ω･`】：うん。

(●`ε´●)：Range（）形式ならどのセルを作業対象に

　　　　　　しているか一目で分かるがCells()形式にすると

　　　　　　わかりにくくなった気がするな。こんなことをして

　　　　　　何かいいことがあるのか？

【´･ω･`】：うん。おおいにあるんだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル（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")=""

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル（３）

【´･ω･`】：それではコードを１行ずつ見ていこう。

　　　　　　まず、１行目の

　　　　　　　　　Range("B5").SetCurrent()

　　　　　だけど・・・。

　　　　　　　　　これはべべちゃんがマウスでセル５を選択したときに

　　　　　　　　　生成されたコードだ。にRange("B5")でセルB5を指定している。

　　　　　　　　　そしてSetCurrent()は読んで字のごとくセルB5をカレント（現在の）

　　　　　　　　　セルに設定する。

(●`ε´●)：カレントセルってなんだ？

【´･ω･`】：入力などの操作対象になっているセルのことだ。カレントセルでなければ

　　　　　　キーボードから入力することが出来ない。

　　　　　　そして次に

　　　　　　　　　CurrentCell.Formula = "1"

　　　　　　でカレントセルに１を書き込む。

(●`ε´●)：あとは今のことを２から１５まで繰り返して

　　　　　　いるというわけだ。

【´･ω･`】：そう。そしてその後、

　　　　　　　Range("E8").SetCurrent()

　　　　　　でセルE8を操作対象にして

　　　　　　　CurrentCell.Clear(1, false, false, false)

　　　　　　でセルの内容をDeleteするというわけだ。

(●`ε´●)：よく空欄のことを表計算ソフトでは""と表すから

　　　　　　　CurrentCell.Clear(1, false, false, false)　の代わりに

　　　　　　　CurrentCell.Formula = ""　と書いても同じになるようだな。

【´･ω･`】：さすがべべちゃん、よく気づいたね。次回はこのコードを

　　　　　　もう少しすっきりさせてみよう。