Excel Maniacs

１５パズル（２）

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

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

１から１５の数字を入力して最後のセル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は空欄にしてくれ。

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

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

セル空欄時に斜線（６）

(●`ε´●):試してみたら、うまくいった。

　　　　　　　（￣＾￣）えへん

（●｀ε´●）：あ、ところで三四郎ではマクロでセルに斜線を引くときに

　　　　　　　セルを二つ指定する・・・・

　　　　　　　左上から右下に斜線を引くときは・・・・

　　　　　　　例えばA１に引くならばA1と右斜め下のB2・・・

　　　　　　　左下から右上ならば・・・・

　　　　　　　一つ下のA2と右横のB1・・・

　　　　　　　そうであるなら・・・

　　　　　　　セルIV32000に斜線を引くときとは

　　　　　　　いったい、どうなるんだ？！

※ちなみに三四郎は最大行は３２０００ですから、その下にセルはありません。

　列はIVまでですから、その右にセルはありません。

　興味のあるかたはご自分でお試しください。

　また、他のセルに罫線を引いておいてそれを３２０００行のセルや

　IV列のセルにコピーすればちゃんと斜線はひけるかなぁ？

　答えはやってみればすぐわかるので書きません。