Excel Maniacs

１５パズル（３）

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

　　　　　　まず、１行目の

　　　　　　　　　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 = ""　と書いても同じになるようだな。

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

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

１５パズル（２）

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

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

１から１５の数字を入力して最後のセル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)

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

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

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

　　　　　　考えてみよう。　　　　　　

１５パズル（１）

【´･ω･`】：最初の題材は１５パズルにしようと思う。

(●`ε´●)：15パズルって言うと４×４のマス目に１～１５の

　　　　　　数字を整列させるやつか？

【´･ω･`】：うん。

(●`ε´●)：おれはくまぷーがゲームって言うから３Dで

　　　　　　グリグリ動くやつを扱うかと思っていたんだが・・・

【´･ω･`】：三四郎でははっきり言ってそれは不可能だ。

　　　　　　しかし、動きの少ないパズルゲームならば

　　　　　　三四郎でも作ることができる。それに校務で

　　　　　　やることくらいなら、パズルゲームを作れる腕前なら

　　　　　　何でも出来る。教員相手の講習会の下手な講師よりも

　　　　　　実務では上になれると思うよ。

(●`ε´●)：おう、ではやってみるか。最初になにをやればいい。

【´･ω･`】：それではワークシートのセルB5：E8の16マスに

　　　　　　1から１５の数字を表示させるコードを書いてくれ。

　　　　　　E8は空欄にしてくれ。

(●`ε´●)：できるかな。

【´･ω･`】：次回までに宿題だ。