Excel Maniacs

成績一覧表を作る(4)

(●`ε´●)：前回までが国語の得点合計と受験者数だったな？

　　　　　　で、今回は何をやるんだ？

【´･ω･`】：国語の平均点を求める。

(●`ε´●)：関数ならば・・・

　　　　　　=Avg(D8:D52)

　　　　　　・・・とやるところだな。

【´･ω･`】：うん、マクロでやるならば国語の得点合計を

　　　　　　受験者数で割ればいい。どちらも前回までで

　　　　　　わかっているから・・・。

(●`ε´●)：　国語の平均を表す変数を%国語平均とすると・・・

　　　　　　　　　　%国語平均= %国語/%国語受験者　　

　　　　　　　　・・・で求められるな。

【´･ω･`】：うん、ただ零除算によるエラーを回避するために

　　　　　　ここは・・・　　　　

　　　　　　If %国語受験者>0 Then
　　　　　　　　　　%国語平均= %国語/%国語受験者
　　　　　　End If

　　　　　　・・・とした方がいい。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

15パズル(16)

【´･ω･`】：今回はプレイヤーがマウスでクリックしたときに

　　　　　　数値パネルとブランクパネル交換するコードを書く。

　　　　　　そのためにはプレイヤーがどのセルをクリックしたのか

　　　　　　わからなければならない。実は三四郎にはこういうことを

　　　　　　するときに実に便利な関数がある・・・。

(●`ε´●)：勿体ぶらずに早く言えよ。

【´･ω･`】：まあ、あせるな。それは・・・。

　　　　　　Range?関数だ。

(●`ε´●)：関数に疑問符がついているのか？

【´･ω･`】：うん。これを使うとプレイヤーがどのセルを選択したかが

　　　　　　簡単にわかる。下のようにすればいい。

　　　　　　Set %MyRange = Range?

　　　　　　そして・・・.

　　　　　　Row(%MyRange)　とすれば選択セルの行番号を

                Col(%MyRange)　とすれば選択セルの列番号を

　　　　　　知ることができる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

                

成績一覧表を作る(3)

【´･ω･`】：さて前回は国語の得点の合計を求めた。

（●｀ε´●）：こんなコードだったな。 国語の合計点を表す変数を

　　　　　　%国語として・・・

　　　　　　%国語=0
                For %i = 8 To 52
                      %国語 = %国語 + Cells(%i, 4)
                Next

【´･ω･`】：今回は国語の受験者数を求める。

（●｀ε´●）：関数でやるなら、得点の入力されている

　　　　　　　セルを数えればいい。よって・・・

　　　　　　　=CountNum(D8:D52)

　　　　　　　いたって簡単だな。

【´･ω･`】：マクロでやっても基本的な考え方は変わらない。

　　　　　　国語の受験者数を表す変数を%国語受験者とすると・・・

　　　　　　%国語受験者=0

　　　　　　For %i = 8 To 52
　　　　　　　　　If Cells(%i, 4) <> "" Then
        　　　　　　　　　%国語受験者 = %国語受験者 + 1
　　　　　　　　　End If
　　　　　　Next

　　　　　　・・・となる。

（●｀ε´●）：では解説してくれ。

【´･ω･`】：Ok。まず、%国語受験者=0のコードで変数%国語受験者の初期値を

　　　　　　０にしておく。

　　　　　　次にForループで%iを８から５２まで変化させて・・・

　　　　　　Cells(%i ,4)の内容をチェックしていく・・・。

(●`ε´●)：%iが８の時は　Cells(8 ,4),つまりD8、そして

　　　　　　%iが52の時は　Cells(52 ,4),つまり５２ということだったな？

【´･ω･`】：うん。チェックの具体的内容はセルが空欄かどうかだ。

　　　　　　空欄でなければ、%国語受験者の値を１増加させていく。

(●`ε´●)：これをD8からD52まで繰り返してやれば%国語受験者が

　　　　　　国語の受験者数になるというわけだな？

【´･ω･`】：うん。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

ごじらを逆さまに(5)

【´･ω･`】：ごじらを逆さまに(4)の問題はどうだった？

（●｀ε´●）：悪児さんは簡単すぎると言っているぞ。

【´･ω･`】：悪児さんには簡単すぎるかもしれないが

　　　　　　この辺りでもけっこう歯ごたえがあると感じるかたも

　　　　　　いらっしゃるだろう。取りあえず、下が解答だ。

　　　　　　=Zen(Mid(Han(Kata($A1)),Len(Han(Kata($A1)))-Col(A1)+1,1))

（●｀ε´●）：悪児さんがひぃひぃ言うようなやつをだしてやれよ。

【´･ω･`】：ここを見ているみなさんが出題してもきっと受けてくれるだろう。

（●｀ε´●）：まさか、悪児さんが敵に背中を見せるようなことはあるまい・・・。

　　　　　　　出題・質問はコメント欄に書いてくれればいい。

　　　　　　　

三四郎２００５の使用感(3)

それにもうひとつ。三四郎９ではCOUNTIF関数を使っているエクセルファイルをきちんと読み込めなかった。おいらエクセル２００３の読み込みや保存ができるなんてどーでもいいんだ。いいんだけど５年もたったのにいまだにCOUNTIF関数を使っているエクセルファイルをきちんと読み込めないんじゃ５年間いったい何をしていたんだと言われてもしかたがないんじゃないか？エクセルとの互換性を謳っている割にはCOUNTIF関数やSUMIF関数などの基本的な関数が変換できないんじゃ手抜きじゃないか？

三四郎９から変わったのは名前だけじゃないか(--;)

まだ一太郎２００５はいじってないけど１３よりもバージョンが２つもあがったんだからよくなっているんだろうな！おいらにはWordとの互換性なんてどうでもいいんだから、それだけが売りだったらおこるよ(｀へ´)ﾌﾝｯ｡ ********************************************************************************************************* この文の一部が勝手に２ちゃんねるにコピペされたりもしました。 勝手にコピペすんなよ（｀´メ）

三四郎２００５の使用感(2)

実は三四郎９を今まで持っていたのだが不満が２点あった。 　ひとつは一太郎１３ではPictureというオブジェクトがあって フォームに簡単に絵を貼り付けることができるのに三四郎９ではできなかった。 くまぷーよりも知識のあるひとがやれば可能なのかもしれないが 一太郎１３のようにはいかなかった。 　２点目はマクロからセルの結合と解除がうまくできなかった。三四郎９では 記録マクロでセルの結合や解除をやってもその部分の操作は無視されて コードが記録されないのだ。三四郎のマクロ解説本がないから「記録マクロ」の コードは大事な手がかりなのに…。セルの結合の方はキー転送でなんとか ごまかせたが、解除の方はお手上げだった。これもくまぷーよりも 知識のあるひとがやれば可能なのかもしれないが…。 　 　くまぷーは５年ぶりのバージョンあっぷというのでとても期待して 三四郎２００５をインストールした…。 　（３０分後）

なんだよ！（●｀ε´●）ぜんぜん 変わってねーじゃん！！

三四郎９とぜんぜん変わっていないじゃん。セルの結合・解除のマクロは 記録されないし、フォームに画像が貼り付けられないし…。 三四郎２００５はいったいどこがあたらしくなったんだ？

三四郎２００５の使用感(1)

　三四郎９から５年ぶりにバージョンアップして発売された

三四郎２００5。５年の期間をおいての発売だったので

期待したのですが・・・（｀´ﾒ）

一太郎も毎年バージョンアップしているけど・・・・。

下は2005年の2月にかいたものです。

**********************************************************************

一太郎は特許の侵害だとかなんとかで松下から訴えられて

発売前なのにドタバタしていたが予定通り売り出されたらしい。

近くのヤマダ電気にぶらりと立ち寄ったら山積みになっていたので

スペシャルパックというやつを買ってきた。

一太郎、花子、三四郎と３つのソフトがワンセットになっていて

１万５千７５０円であった。くまぷーの一太郎はVer１３で別に

不満があるわけではなかったのだが、つい衝動買いを

してしまったというわけだ。ジャストシステムは

毎年バージョンあっぷするのでとてもつきあっていられないので

さすがに一太郎２００４はパスしたが今回は５年ぶりに三四郎を

バージョンあっぷしたのでつい買ってしまったというわけだ。

三四郎９の使用感

下の文は三四郎９を一週間使っての感想です。

2003年の6月に書いたものです。

**********************************************************************

　三四郎を１週間ぐらい使ってみました。エクセルと比較しての評価記事を

お届けします。尚、評価はあくまでもくまぷー個人がよく使う表計算機能の

使い勝手はどうなのか？、という視点からのものです。

　三四郎はよくできたソフトです。エクセル同様、セルの結合ができるので

複雑な帳票も簡単に作ることができます。（ちなみにくまぷーがロータスを

捨てた理由はセルの結合ができないからでした。）機能的な面から見れば

三四郎９はエクセル９７ぐらいの性能だと思います。普通に成績処理などの

校務に使う分には何の不満もありません。はっきり言って３０００円なら買い

でしょう。ただ三四郎でマクロを使って複雑な処理をしようと思うと残念ながら

それに関する書籍が全くないので、すでに三四郎マクロ（SuperPLayRite）を

知っているひと以外は、三四郎を使ってのマクロ処理はあきらめざるを

得ないと思います。

　結論を言えば,三四郎の表計算ソフトとしての実力はエクセルと同等といえます。

しかし、くまぷーはひとに三四郎を薦めることはできません。その理由はやはり

マクロなどの参考資料ないということです。これでは三四郎を徹底的に使いこなすことは

できません。今はマクロなど使わない初級者でも、上達してマクロを使いたくなったときに

困ってしまうということがわかっていれば三四郎を勧めることはできません。

これでは価格を安くしても絶対に三四郎は売れないでしょう。
　
　JUST　SYSTEMは三四郎のマクロ解説本を出すべきです。

経営的に苦しいのかもしれませんが、そうしなければ三四郎は市場から

消えてしまうでしょう。

**********************************************************************

三四郎のマクロ解説本が市販されなければ

三四郎は早晩、市場から消えるだろうという考えは

今も変わりません。マクロ機能が使えない（使い方が

よくわからない）表計算ソフトなんてクリープのない

コーヒーみたいなもんです。

　　このCMを知っている人はオヤジです。(>_<)

ごじらを逆さまに(4)

【´･ω･`】：それでは、もう少し難しくして・・・。

　　　　　　A1に全角カタカナの「ゴジラ」をバラバラにして

　　　　　　逆さまにして欲しい。

(●`ε´●)：こんな感じか？

　　　　　　A1：ゴジラ

　　　　　　B1：ラ

　　　　　　C1：゛

　　　　　　D1：シ

　　　　　　E1：゛

　　　　　　F1：ラ

【´･ω･`】：そう。

ごじらを逆さまに(3)

【´･ω･`】：そうそう、この「ごじら」を「らじご」にする問題・・・。

　　　　　　３行マクロでやると・・・

　　　　　For %i = 1 To Len(Range("A1"))
　　　　　　　Range("B1") = Range("B1") & Mid(Range("A1"), Len(Range("A1"))-%i +1,1)
　　　　　next

(●`ε´●)：これでも同じだな。

　　　　　For %i = 1 To Len(Cells(1,1))
　　　　　　　　cells(1,2) = Cells(1,2) & Mid(Cells(1,1), Len(Cells(1,1))-%i +1,1)
　　　　　Next

　　　　　ま、参考までに・・・ということだ。

ごじらを逆さまに(2)

【´･ω･`】：ま、これは簡単だったかも・・・

　　　　　　答えはＢ１に・・・

　　　　　　=Mid($A1,Len($A1)-Col(A1)+1,1)

　　　　　　あとは右方向にコピペ・・・。

　　　

ごじらを逆さまに(1)

【´･ω･`】：ごじらシリーズの第2弾だ。

　　　　　　例えばA1に「ごじら」とあったら

　　　　　　　　　　B1に「ら」

　　　　　　　　　　C1に「じ」

　　　　　　　　　　D1に「ご」

　　　　　　・・・といったふうにバラバラに表示させたいんだ。

　　　　　　どうやったらできるかなぁ・・・？

　　　　　　B1の数式を右方向にコピーするだけで

　　　　　　いいようにしてね。

成績一覧表を作る(2)

★国語の合計点を求める。

【´･ω･`】：まず国語の得点を入力するを確認しよう。

(●`ε´●)：D8からD52までだ。

【´･ω･`】：それでは、国語の合計点を表示するセルは？

(●`ε´●)：D53だ。

【´･ω･`】：マクロを使わないで関数でやるならばあっさりと

　　　　　　D53に・・・

　　　　　　　　　　=Sum(D8:D52)

                 ・・・入力するだけだ。もちろん、この方が簡単なのだが

　　　　　　マクロのコードを書く練習だから、関数は使わない。

　　　　　　それでは基本事項Cells()の使い方の確認だ。

　　　　　　べべちゃん、D8はどう表す？

(●`ε´●)：Cells(8, 4)

【´･ω･`】：うん。それではD52は？

(●`ε´●)：Cells(52, 4)

【´･ω･`】：うん。A列、B列、C列・・・をそれぞれ、1列、２列、３列・・・と

　　　　　　見立てて・・・

　　　　　　　　　　　　　　　Cells(行番号, 列番号)

　　　　　　・・・だったね。D列はこのルールでいけば４列になるから

　　　　　　D8はCells(8, 4)に、D52はCells(8, 52)になるというわけだ。

　　　　　　ここまでは大丈夫かな？

(●`ε´●)：おう。

【´･ω･`】：それでは肩慣らしとして・・・

　　　　　　D８に６０

　　　　　　D9に７０

　　　　　　D10に８０

　　　　　　D11に５０

　　　　　　D12に９０

　　　　　　・・・と入力されているとして、この５つのセルの

　　　　　　合計点を求めてみよう。

　　　　　　上記赤文字5行はCells()形式に直すと・・・

　　　　　　Cells(8, 4)に６０

　　　　　　Cells(9, 4)に７０

　　　　　　Cells(10, 4)に８０

　　　　　　Cells(11, 4)に５０

　　　　　　Cells(12, 4)に９０

                ・・・となる。ここで合計点を表す変数を　%合計　とする・・・

　　　　　　それでは和を求めるコードを紹介しよう。

　　　　　　全部で6行だ。

　　　　　　%合計 =0      !!変数の初期化

　　　　　　%合計　=  %合計 +  Cells(8, 4)

                %合計　=  %合計 +  Cells(9, 4)

　　　　　　%合計　=  %合計 +  Cells(10, 4)

                %合計　=  %合計 +  Cells(11, 4)

                %合計　=  %合計 +  Cells(12, 4)

                ・・・とすればよい。ここでこの等号の意味をもう一度思い出してもらいたい。

(●`ε´●)：右辺を計算して、その結果を左辺に代入する・・・だったな。

【´･ω･`】：じゃあ、解説だ。

　　　　　　1行目で右辺の0を左辺に代入しているのでこの左辺の%合計は

　　　　　　0になる。次に2行目でその0にCells(8, 4)、つまり60を加えた結果を左辺に

　　　　　　代入する。故に、この左辺の%合計は60になる。次に3行目でその60に

　　　　　　Cells(9, 4)、つまり70を加えた結果を左辺に代入する。故に、この左辺の

　　　　　　%合計は130になる。次に4行目でその130にCells(10, 4)、つまり80を

　　　　　　　加えた結果を左辺に代入する。故に、この左辺の%合計は210になる。

(●`ε´●)：パターンが見えてきたな。次は俺が言おう。

　　　　　　5行目でその210にCells(11, 4)、つまり50を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は260になる。そして最後に6行目で

　　　　　　その260にCells(12, 4)、つまり90を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は350になる。この３５０が答えだ。

【´･ω･`】：この説明のように同じことを繰り返すのはかったるい。

　　　　　これをForループを使って書くとすっきりする。Forループに

　　　　　ついては１５パズル(7)、１５パズル(8)、１５パズル(9)を参考にしてくれ。

              国語の合計点を表す変数を　%国語　とすると・・・

              %国語=0
               For %i = 8 To 52
                      %国語 = %国語 + Cells(%i, 4)
                Next

　　　　　・・・となる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

先達はあらまほしきことなり

　このブログにたくさんのコメントをつけてくださっている悪児さん。

思えば悪児さんとの出会い（ネット上の）は2003年の初夏のことでした。

下の文はそのころに書いたものです。当時は本当に

三四郎マクロはぜんぜん知りませんでした。

**********************************************************************

　くまぷーは今、三四郎の機能・使い勝手を評価するために簡単な

調査書作成ツールを作っています。このサイトで紹介している初級クラスの

調査書と同じくらいの機能のものです。（自称）エクセル使いのくまぷーには

使ったことのない三四郎とはいえ、表計算ソフトですから罫線を引いたり

関数を使うレベルでは全く問題なく使えます。三四郎本体と一緒に買った解説本を

見るまでもありません。ハッキリ言って簡単です。 　

ところが、いざマクロ（SuperPlayRite）を使おうと思うと

とたんに行き詰まってしまいました。

　三四郎の解説本には申し訳程度に「記録マクロ」について

極簡単な記述があるだけです。これでは全く役に立ちません。

くまぷーがやりたいのはフォームにリストボックスを貼り付けて

そのリストボックスにワークシート上の項目を表示させると言うことです。

（リストボックスに生徒名を読み込ませること）これを実現する方法は

記録マクロでは絶対に記述できません。

記録マクロは実際に行ったマウスの操作とキーボードの操作を

マクロ命令に変換することしかできません。

マウスとキーボードで実際に行うことのできない領域は記録マクロの守備範囲外です。

　オンラインショップでしか販売されていない三四郎です。おそらくこの世に

存在する解説本はオンラインショップで買ったこの一冊だけでしょう。

くまぷーは困ってしまいました。そんな時にたどり着いたのが

悪児さんのサイト「１３マクロ館」です。お願いしたら悪児さんは

くまぷーのためにすぐにサンプルマクロを作ってくれました。

ありがとうございます。

　ほんとうに兼好法師の言うとおり、「先達はあらまほしきことなり」です。

成績一覧表を作る(1)

(●`ε´●)：「教員のための・・・」と謳っていながら、校務に関わる

　　　　　　題材が少ないんじゃないか？

【´･ω･`】：そうかもしれない。リクエストがあればやってみるけど

　　　　　　取りあえず、成績一覧表（大票）でも作ってみようか。

　　　　　　 ★仕様：
    　　　　　　　 (1)教科ごとの合計点、平均点、受験者数の表示
     　　　　　　　(2)生徒ごとの合計点、平均点、順位の表示
    　　　　　　　 (3)出席すべき日数の表示、出席日数の表示

(●`ε´●)：これぐらいのことならマクロなんか使わずに

　　　　　　ワークシート関数だけで十分じゃないか？

【´･ω･`】：もちろん、関数だけで十分に対応できる。だけど関数は

　　　　　　一切使わない。マクロだけでやる。対象は記録マクロを

　　　　　使う程度で、自分でコードを書くのはどうも・・・という方だ。

　　　　　これが成績一覧表（大票）の画像だ。

　　　　　　

それと成績一覧表（大票）の枠を用意したから

DLして使ってくれ。

snsOhyou00.lzhをダウンロード 　　　　　　　

　　　　　

15パズル(15)

(●`ε´●)：本当にランダムにパネルを配置してしまうと

　　　　　　解けない問題になる可能性があるらしい・・・。

　　　　　　必ず解けるように問題を作るにはどうしたらいいだ？

【´･ω･`】：最初にパネルをきちんと配置する。

(●`ε´●)：きちんと？

【´･ω･`】：そう、１～１５までの数字とブランクパネルを解きあがった

　　　　　　状態に配置する。それから、ブランクパネルを適当な

　　　　　　回数だけ、ランダムに上下左右の数字パネルと交換してやる。

　　　　　　そうすれば、その逆回しをすれば元に戻るわけだから

　　　　　　解無しの問題にはならないというわけだ。

(●`ε´●)：なるほど。

【´･ω･`】：まず初期化コードだ。これは「１５パズル(9)」ですでに作った

　　　　　　ものをそのまま使えばいい。下のコードがそれだ。

　　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　 　Next

　　　　　　　Cells(8,5)=""　

(●`ε´●)：このコードはここで使うつもりだったのか。

【´･ω･`】：まあね。下がパネルをシャッフルするためのコードだ。

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　　Randomize(ThisTime())
　　　　　　!!シャッフル
　　　　　　for %i = 1 To 3000
　　　　　　!!ブランクパネルと交換する数字パネル
　　　　　　!!の方向　
　　           %DX = Int(Rand() * 3)-1
　              %DY = Int(Rand() * 3)-1
　　        !!斜め方向のパネルと交換するのを避ける
　　          If Abs(%DX + %DY) = 1 Then
 
                         If Cells(%Y+%DY, %X+%DX) = "" Then
　　　　　　　　　　      !!４×４のマス目の外のセルとの交換
　　　　　　　　　　       !!はしない　
                                     continue for
                        Else　
　　　　　　　　　　      !!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp
　　　　　　　　　         !!交換後、新たにブランクパネルになった
　　　　　　　　　         !!セルの行番号と列番号を記憶
                                 %Y = %Y+%DY
                                %X = %X+%DX
                        End If
 
            End if
next

【´･ω･`】：それでは解説しよう。まず最初の２行・・・。

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　これは初期化してきちんとパネルが整列しているときの

　　　　　ブランクパネルの位置を表している。すなわちセルE８だ。

　　　　　そして・・・

　　　　　!!ブランクパネルと交換する数字パネル
　　　　　　!!の方向　
　　           %DX = Int(Rand() * 3)-1
　              %DY = Int(Rand() * 3)-1
　　　　　　

　　　　　・・・は-1、０，１のどれかの数値をランダムに生成する。

　　　　　%DXが-1ならブランクパネルの左方向

　　　　　%DXが1ならブランクパネルの右方向

　　　　　%DYが-1ならブランクパネルの上方向

　　　　　%DYが1ならブランクパネルの下方向を示す。

(●`ε´●)：Abs(%DX + %DY) = 1 というのは何だ？

【´･ω･`】：Abs()は絶対値を求めるときに使う関数だ。

(●`ε´●)：？？？

【´･ω･`】：１５パズルではブランクパネルの上下左右にある数字パネルを

　　　　　　交換するのであって、斜め方向には交換しない。Abs(%DX + %DY)が

　　　　　　１ならばそれが保証される。

(●`ε´●)：%DXが１、％DYが１だとすると和の絶対値は２．

　　　　　　その場合はもしもブランクセルがCells(５，２）だとすると

　　　　　　それに対しての数値セルがCells(５＋１，２＋１）じゃ

　　　　　　斜め方向になってしまうもんね。

【´･ω･`】:：そう、どちらか一方が０でなければ上下左右方向にならない。

　　　　　　つぎの

　　　　　　  If Cells(%Y+%DY, %X+%DX) = "" Then
　　　　　　　　　　      !!４×４のマス目の外のセルとの交換
　　　　　　　　　　       !!はしない　
                                    continue for

　　　　　　　・・・コメントの通り。次の

　　　　　　　!!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp

【´･ω･`】：　ここはちょっと修正しよう。上のコードは２つのものの値を

　　　　　　交換するときは定石と言えるコードだが、この場合は一方の

　　　　　　値はブランクだと限定されている。つまり、交換後は今までの

　　　　　　ブランクセルの Cells(%Y, %X) が数値セルに

　　　　　　数値セルのCells(%Y+%DY, %X+%DX)がブランクパネルに

　　　　　　なるので・・・

　　　　　　Cells(%Y, %X) = Cells(%Y+%DY, %X+%DX)
   　　　　　Cells(%Y+%DY, %X+%DX) = ""

　　　　　　・・・の２行で十分だ。

　　　　　　・・・ブランクパネルの行番号を示す%Yに今までの数値パネルの

　　　　　　行番号を、列番号を示す%Xに今までの数値パネルの列番号を

　　　　　　忘れずに代入しておく。

　　　　　　%Y = %Y+%DY
                 %X = %X+%DX

　　　　　　これで1回分のシャッフルが終わる。

　　　　　これを適当な回数（この場合は3000回）繰り返すというわけだ。

(●`ε´●)：なるほど。これでやっとプレイヤーはゲームを始めることが

　　　　　　出来るわけだな。

【´･ω･`】：次はプレイヤーがマウスでクリックしたときに数値パネルとブランクパネル

　　　　　　交換するコードだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

ごじらをバラバラに(11)

　この「こ゛し゛ら」とあの「ごじら」・・・。

目でよく見ると違うということがわかるけど

If関数は同じものだと判定するんですよね。

Len関数は別物だと判断するけれど・・・。

ごじらをバラバラに(10)

【´･ω･`】：ところでべべちゃん、ごじらをバラバラに(8)でごじらを22文字で

　　　　　　バラバラにするって言ってたけど・・・、どうなったの？

(●`ε´●)：うん、くまぷー、おまえのごじらはダメ！！おれが言っていたのは

　　　　　　　あくまでこの「こ゛し゛ら」・・・。

【´･ω･`】：あ、よ～く見ると・・・。

(●`ε´●)：へへへ、種がわかった？実は三四郎ならば等号を

　　　　　　含めて１８文字！！

　　　　　　

座席表作成(5)

【´･ω･`】：悪児さんの座席表作成マクロを見て勉強になったよ。

(●`ε´●)：お、おまえがそんなことを言うのは珍しいな。いったい

　　　　　　どんなところが？

【´･ω･`】：それは下のコードだ。

　　　　　%名前=Range("B2:B50")

              このコードはSuper Play Riteを知らなければ書くことはできない。

　　　　　エクセルにもRangeというオブジェクトがあるが、こういう使い方は

　　　　　できないからな。

(●`ε´●)：くまぷー、おまえはこの書き方を知らなかったんだな？

【´･ω･`】：うん。ちょっと解説するとこのコードはセルB2からB50までに

　　　　　　書かれている氏名を配列変数%名前に代入するための

　　　　　　ものだ。%名前(1)にはB2の「赤城まりこ」、%名前(2)には

　　　　　　B3の「アジャコング」が格納されている。

　　　　　　今まで同じことをやるのに、くまぷーは下のように書いていた。

　　　　　　For %i = １  To　 49

                      %名前(%i) =Cells(%i+1, 2)

                Next

(●`ε´●)：この書き方はVBAの書き方だな。

　　　　　　こういうコードを書いていたら、

　　　　　　くまぷーが三四郎マクロ初心者だということが

　　　　　　バレバレだな。

【´･ω･`】：うん、でも本当に初心者だから仕方がない・・・。

　　　　　　

　　　　　　

座席表作成(4)

悪児さん、コメント、有り難うございます。

仰るとおり、座席表作成の３行マクロは実用的に使えるものでは

ありません。あくまでも一発芸です。(^^ゞ

くまぷーは普段はこのようなコードは書きません。(^^ゞ

＞(●`ε´●)：ここまで来ると可読性がいいとは言えないな・・・・。

　上の科白にあるとおり、褒められたものではありません。

＞初心者向けとは、書いてなかったかな？(^^)ゞ

このコメントのことですか？

カテゴリーが「３行マクロ」になっているものは

初心者は意識していません。(^^ゞ

もしも、このコメントのことでしたら、カテゴリーが

「三四郎マクロ初心者奮戦記」になっているもののこと（１５パズルとか）です。

カテゴリー「三四郎マクロ初心者奮戦記」は解説を

丁寧にしているつもりです。

ごじらの問題も初心者の方を意識していますが、これは

関数を主体にしていてマクロはオマケなので

分類を「三四郎マクロ初心者奮戦記」にはしていません。

>要するに、３行にする「ため」に、
>色々なものを犠牲にしている・・・
>それは、マクロの本道（ってなに？(^^;)(^^;)）から
>外れていると、悪児は思います。(^^)ゞ

仰るとおりだと思います。

繰り返しますが３行マクロは、あくまでも一発芸です。(^^ゞ

くまぷー、Ver.13を買う（後編）

　以下の文もくまぷーが2003年6月4日に書いたものです。

今、読み返してみるとなんだかんだ言ってもWordよりも

一太郎の方が気に入っているようです。

**********************************************************************　
　さて今や虫の息の一太郎ですが使ってみるとワードより実力は

上なのではないかとくまぷーは思います。くまぷーはある事情で

この１ヶ月ちょっとの間にワードでB5サイズで約２００ページの原稿を

書きました。その結果、ワードより一太郎のほうが上なのではという気がしました。

ATOKの変換効率がMSのIMEより優れているようにも思いました。

　でも、このままではワードという黒船に圧されて一太郎は管理工学研究所の

ワープロソフト「松」のように消えてしまうかもしれません（くまぷーに

尊皇攘夷思想があるわけではありません。念のため）。そうなったら

今でさえ「アクティべーション」などという横暴なシステムを

ユーザに押しつけているMSが増長して何をするかわかりません。

（違法コピーを奨励しているわけではありません。パソコン自作派の

くまぷーにはハードディスクのフォーマットは日常茶飯事です。

そのたびにアクチをやり直すのはうっとうしいのです）

　くまぷーは一太郎をなくさないために、Ver．１３のキャンパスキットを

近くのヤマダ電気で買ってきました。値段は約８０００円でした。

頑張って一太郎を上手に使えるようになり、早く８０００円のもとを

取りたいと思います。(^。^)

くまぷー、Ver.13を買う（前編）

　以下の文はくまぷーが2003年6月4日に書いたものです。

一太郎のVer.13を買ったときに書いたものです。この頃は

どんどん、Wordの勢力が強まり、教員対象のPC講座から

一太郎の名前がほとんど見えなくなってしまったような気がします。

**********************************************************************

　平家物語のなかに「おごれる人も久しからず　唯春の世の夢の如し」という

一節がございます。「かつてロータスにあらずんば表計算にあらず」というまでの

栄華を誇ったロータスも今では「風の前の塵」のようになってしまったようです。

学校現場でもほとんど使われなくなってしまったようです。

　ロータス同様の権勢を極めた一太郎もワードに追いつめられ

その栄華も今となっては「春の夜の夢」のようなものでございます。

ただ、ロータスとちがって一太郎は「学校現場」という最後の砦だけは

「一太郎スマイル」なんて製品を出して死守しようとしているようでございます。

　思えば一太郎はやたらに重いVer．７で評判を落とし、さらにVer．７を

出したかと思ったら、その後数ヶ月でVer．８を出すという神も恐れぬバージョンアップを

敢行し、自らの首を絞めてしまったようでございます。

　今、考えればVer．８はVer．７の正規ユーザにはただで配るべきだったと

浮川氏も反省しているのではないでしょうか？（ホントかよ？）

座席表作成(3)

【´･ω･`】：9/10になったのでくまぷーの書いた座席表作成マクロを

　　　　　　公開しよう。やはり、たったの３行。

!!座席表作成　by　くまぷー
!!2007/03/30

!!下は初期化コード。感嘆符を外せば有効になります。
!!Range("E2:O12")=""

For %i = 2 To 37
   Cells((Cells(%i, 3)-1) mod 6*2 +2 , ((Cells(%i, 3)-1) div 6 +1)*2+3) =Cells(%i, 2)
Next

(●`ε´●)：ここまで来ると可読性がいいとは言えないな・・・・。

snsSample006.zipをダウンロード

くまぷー、JustSystemにエールを送る

　以下の文はくまぷーが2003年2月19日に書いたものです。

当時は、くまぷーの周りではWordを使っていらっしゃる方よりも

一太郎を使っている方の方が多数派で、まだ一太郎が標準でした。

もちろん、くまぷーも一太郎を常用していました・・・。

**********************************************************************

２月７日に一太郎がバージョンアップして「一太郎１３」になりました。
そのキャッチコピーは「一太郎史上最強の一太郎」です。「
一太郎史上」というところがなんとも泣かせます。そもそも最新のものが
最強でなければわざわざお金を出す人などいません。
　ワープロはとうに機能的には完成しています。一昔前でしたら
一太郎のようなメジャーなワープロソフトがバージョンアップすると
たくさんのパソコン雑誌が特集記事を組んで機能強化した点や新しい機能を
アピールしたものです。

ところが一太郎の特集記事を組む雑誌など今や見あたりません。
目を引く新機能もないので、ユーザーもあまりワープロソフトに
関心を示さないことを雑誌の編集者たちも知っているからでしょう。
　くまぷーは一太郎を使っていますが、機能的に何の不満もありません。
一太郎はいいソフトだと思います。ですからVer.8以降を持っている人は
買い替えなくてもいいかと思います。Ver.7は動作が変に重くて嫌いです。
Ver.6は１６ビットなのでファイル名に制限があります。問題外です。
しかし、学校で仕事に使うのなら、大胆に言えば一太郎のVer.3でも十分だと思います。
しかし現在ワープロソフトを持っていなくて、これから何かワープロソフトを
買おうか、と考えている人にはVer.13はお勧めです。
　とくにWord2002を買おうかな、と思っている人は一太郎Ver.13を買いましょう。
　理由は・・・
(1)値段が多少安い。
(2)VBAを使ったマクロウィルスの標的にならない。
(3)複数のパソコンにインストールすることが条件付きだが認められている。
（以下はJUST　SYSTEM　のFAQより）お客様のみがご使用される場合は、同時に
ソフトウェアを起動しないという条件で他のコンピュータにソフ トウェアを
セットアップして、使用することが認められています。

　　それにひとつ、目を引く新機能があります。それは「文語モード変換」機能です。
正確に言えばこれはATOK16の機能であって一太郎の機能ではないのですが…
国語の教員は試してみるといいかもしれません。誰か人柱になって下さい。

「ごじら」をバラバラに(9)

(●`ε´●)：そう言えば「ごじら」をバラバラに(5)のカテゴリーには

　　　　　　３行マクロってのもあったな？！

【´･ω･`】：べべちゃんは記憶力がいいな。

(●`ε´●)：マクロでやるとどうなるんだ？

【´･ω･`】:：こう・・・。

For %i = 1 To Len(Han(kata(Cells(1,1))))
　　　　　Cells(1, %i +1) = Hira(Zen(Mid(Han(Kata(Cells(1,1))), %i, 1)))
Next

「ごじら」をバラバラに(8)

(●`ε´●)：くまぷー。「ごじら」を「こ」「゛」「し」「゛」「ら」にやっとできたぞ！！

【´･ω･`】：べべちゃん、おめでとう！それではさっそくやり方を

　　　　　　聞かせてくれ。

(●`ε´●)：おー！！まず、答えを先に言おうか。

【´･ω･`】：うん。

(●`ε´●)：A1に「ごじら」、

　　　　　　B1に　=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

【´･ω･`】：正解だよ。簡単に考え方を説明してくれないか？

(●`ε´●)：よし、それでは・・・。「ごじら」をバラバラに(６) のヒントで

　　　　　　半角カタカナの「ｺﾞｼﾞﾗ」ならば　=Mid($A1,Col(A1),1)

　　　　　　・・・そのままの式で

　　　　　　B1に「ｺ」

　　　　　　C1に「ﾞ」

　　　　　　D1に「ｼ」

　　　　　　E1に「ﾞ」

　　　　　　F1に「ﾗ」

　　　　　　というふうにできるということがわかった。だから、まず・・・

　　　　　　Kata（$A1）・・・・・・（１）

　　　　　　で文字列をひらがなから全角カタカナに変換する。

　　　　　　さらに(1)をHan（）で半角に変換する。これが下の式だ。

　　　　　　Han(Kata($A1))・・・・・・（２）

　　　　　　この段階で全角ひらがなの「ごじら」が半角カタカナの

　　　　　　「ｺﾞｼﾞﾗ」にすることができた。これにMid()とCol()を

　　　　　　組み合わせれば、ヒントの通り・・・

　　　　　　B1に「ｺ」

　　　　　　C1に「ﾞ」

　　　　　　D1に「ｼ」

　　　　　　E1に「ﾞ」

　　　　　　F1に「ﾗ」

　　　　　　・・・と表示させることが出来る。ここまでで下の式ができあがる。

　　　　　　Mid(Han(Kata($A1)),Col(A1),1)　・・・・・・（３）

　　　　　　しかし、このままでは半角カタカナなのでこれを

　　　　　　ひらがな(全角）に戻さなければならない。

　　　　　　まず、（３）をZen()で全角にして、それからHira()を

　　　　　　使えばOKだ。これで答えの式・・・

　　　　　　=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

　　　　　　の完成だ！！

【´･ω･`】：たぶん、悪児さんの言ってた回答もこれと同じだろう。

(●`ε´●)：ところでくまぷー、おいら、もっとすごい発見を

　　　　　　したぞ！！エクセルを使っていいなら、この「こ゛し゛ら」を

　　　　　　バラバラにするのに22文字だ！！

【´･ω･`】：べべちゃん、色々考えるね。ある意味手品師だね。

　　　　　　くまぷーが三四郎でやれば・・・。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）　　

１５パズル(14)

【´･ω･`】：下がB5：E8の４×４のマス目に１～１５までの数字と

　　　　　　１枚のブランクパネルをランダムに並べるコードだ。

                !!第1ブロック
                 !!変数%Panelの初期化
                 For %i = 1 To 15
                       %Panel(%i)=%i
                Next
               %Panel(16)= ""

               !!第２ブロック
               !!500回シャッフル
               Randomize(ThisTime())
               For %i  = 1 To 500 　　　
                      %x=Int(Rand()*16)+1
                      %y=Int(Rand()*16)+1
    
                     %Temp=%Panel(%x)
                     %Panel(%x)=%Panel(%y)
                     %Panel(%y)=%Temp
             Next

             !!第３ブロック
             !!B5：E8の４×４のマス目に
             !!１～１５までの数字と
             !!１枚のブランクパネルを書き込む

            %i =1
            For %y = 5 To 8
                    For %x = 2 To 5
                            Cells(%y, %x)=%Panel(%i)
                             %i = %i +1
                     Next
           Next

【´･ω･`】：今までやってきたコードを並べただけだから

　　　　　　特に解説の必要は無いと思う。

　　　　　　ただ、このコードでパネルを並べると本当に

　　　　　　ランダムに並んでしまう。

(●`ε´●)：ランダムに並べようとして書いたコードなのだから

　　　　　　当たり前じゃないか。何か不都合でもあるのか？

【´･ω･`】：うん、15パズルではブランクパネルと隣り合った

　　　　　　パネルを交換することによってゲームを進めて

　　　　　　行くわけだろう？

(●`ε´●)：ああ。

【´･ω･`】：本当にランダムに並べてしまうと解けるかどうかの

　　　　　　保証が無くなってしまうそうだ。だから、頑張れば

　　　　　　必ず、解けるようにするためにはこのコードでは

　　　　　　不都合があるんだ。

(●`ε´●)：どうすればいいんだ？

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

「ごじら」をバラバラに(7)

　アクセスログを見るとExcel  Worldからいらっしゃっている方が

かなりいるようです。

　ごじらの問題の元ネタは実は某掲示板の質問です。

ごじらの問題は三四郎を使えばあっさりとできるのですが

エクセル（関数のみ）でやると、とんでもなく複雑になります。

Excel  Worldの住人たちがやったら（もちろんエクセルで）

どんな回答をつくるだろう？

とても興味があります。(^｡^)

※Excel World の住人：EXCELのヘビーユーザの集団で

　　　　　　　EXCELを使わせたら、おそらく国内最強の集団。

　　　　　　　

　

「ごじら」をバラバラに(6)

(●`ε´●)：おい、くまぷー。「ごじら」を「こ」「゛」「し」「゛」「ら」になんて

　　　　　　分解できるのか？おれは一晩、考えたけど全然わからないぞ！！

【´･ω･`】：OK。それではヒントをあげよう。ひらがなや全角のカタカナでは

　　　　　　濁音を清音と濁点に分解することは出来ない。ところが半角の

　　　　　　カタカナならば、それができる。全角文字は濁音も清音も1字なのだが

　　　　　　半角カタカナの場合・・・

　　　　　　　　　　　　　　　　　濁音＝清音＋濁点

　　　　　　でもともと２字で１字を表しているんだ。

(●`ε´●)：そうなのか。だから模試で名前にフリガナをふるとき

　　　　　　濁点も１マス使えって言われるのか・・・。

【´･ω･`】：うん、そう。「ごじら」や「ゴジラ」は３文字だけど「ｺﾞｼﾞﾗ」は

　　　　　　本当は５文字だから、もしも「ごじら」でなく「ｺﾞｼﾞﾗ」がA1に

　　　　　　入力されているならば、ついこの前に

　　　　　　「ごじら」を「ご」「じ」「ら」に分解した下の式・・・

　　　　　　　　　　　　　=Mid($A1,Col(A1),1)

　　　　　　・・・そのままで

　　　　　　B1に「ｺ」

　　　　　　C1に「ﾞ」

　　　　　　D1に「ｼ」

　　　　　　E1に「ﾞ」

　　　　　　F1に「ﾗ」

　　　　　　・・・と表示させることが出来る。

(●`ε´●)：なるほど。『「ごじら」をバラバラに』の（１）から（４）は

　　　　　　（５）のための伏線だったんだな。

【´･ω･`】：そう。

※問題のために一部半角カタカナを使っています。

　文字が化けちゃった人にはゴメンね。m(__)m

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）

１５パズル(13)

【´･ω･`】：それでは重複無しの乱数を作る定石を紹介しよう。

　　　　　　まずは下のコードを見てくれ。このコードはA列に１から１６までの

　　　　　　整数をランダムに並べる・・・・。

　　　　　　!!第1ブロック
        　　　%MaxNum = 16
　　　　　　For %i = 1 To %MaxNum
　　　　　　　　Cells(%i, 1) = %i
　　　　　　Next

　　　　　　!!-----------------------------------------------
　　　　　　!!第2ブロック
        　　　Randomize(ThisTime())
　　　　　　For %i = 1 To 100
　　　　　　　　%X = Int(Rand() * %MaxNum) + 1
　　　　　　　　%Y = Int(Rand() * %MaxNum) + 1

　　　　　　　　%Temp = Cells(%X, 1)
　　　　　　　　Cells(%X, 1)= Cells(%Y, 1)
　　　　　　　　Cells(%Y, 1) = %Temp
　　　　　　Next

【´･ω･`】：それでは解説しよう。第1ブロックは数字の初期化だ。

　　　　　　ここでA1のセルには１を、A２のセルには２、A３のセルには

　　　　　　３というようにきちんと１～１6までの数字を整列させておく。

（●｀ε´●）：買ってきたばかりのトランプの山と同じようにカードが

　　　　　　順序よくならんでいるわけだな。

【´･ω･`】：その通り。第２ブロックセルの数字をシャッフルする。

　　　　　　ランダムに１から１６までの整数値を二つ生成して、

　　　　　　それを%X、%Yとする。そしてA列の%X番目のセルと

　　　　　　%Y番目のセルの値を交換する。

（●｀ε´●）：それをFor文で100回繰り返しているという訳か。

【´･ω･`】：そう。数字を１６から５２に変更すればトランプに

　　　　　　１３６に変更すれば、麻雀の洗牌になるな。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）

「ごじら」をバラバラに(5)

(●`ε´●)：おい、くまぷー、またごじらか？！

　　　　　　『「ごじら」をバラバラに』はもう解決したんじゃないのか？

【´･ω･`】：いや、ごじらはなかなかしぶとくて

　　　　　　あれぐらいの「バラバラ」じゃ

　　　　　　すぐに復活してしまうんだ！！

(●`ε´●)：「ごじらの逆襲」というわけだな。

【´･ω･`】：で、今回は簡単に蘇らないように

　　　　　　さらにバラバラにするんだ。

　　　　　　例えばA1に「ごじら」とあったら

　　　　　　　　　　B1に「こ」

　　　　　　　　　　C1に「゛」

　　　　　　　　　　D1に「し」

　　　　　　　　　　E1に「゛」

　　　　　　　　　　F1に「ら」

　　　　　　・・・といったふうにバラバラに表示させたいんだ。

　　　　　　どうやったらできるかなぁ・・・？　(^。^)

「ごじら」をバラバラに(4)

【´･ω･`】：それではいよいよ、ごじらの登場だ。

　　　　　　=Mid($A1,Col(A1),1)　・・・（１）

　　　　　　の説明に入ろう。

　　　　　　まず、確認しておくが「ごじら」のいるセルはA1だ。

　　　　　　よって・・・　

                $A1="ごじら"

                ・・・となる。これを(1)に代入すると・・・

　　　　　　=Mid("ごじら" ,Col(A1),1)　・・・（２）　!!この式をB1に入力

　　　　　　・・・となる。

　　　　　　(2)の式をC1、D1にコピーすると・・・それぞれ

　　　　　　=Mid("ごじら" ,Col(B1),1)　・・・（３）　　!!C1の式

　　　　　　=Mid("ごじら" ,Col(C1),1)　・・・（４）　　!!D1の式

　　　　　　・・・となる。

(●`ε´●)：お～、コピーすることによって上手く

　　　　　　(2)のCol(A1)が(3)ではCol(B1)に(4)ではCol(C1)に

　　　　　　修正されている！！

【´･ω･`】：そう、ここで

　　　　　　Col(A1)=1

　　　　　　Col(B1)=2

　　　　　　Col(C1)=3

　　　　　　なので・・・(2)(3)(4)はそれぞれ・・・

　　　　　　=Mid("ごじら" ,1,1)　・・・（5）　 !!B1の式

　　　　　　

　　　　　　=Mid("ごじら" ,2,1)　・・・（6）　　!!C1の式

　　　　　　=Mid("ごじら" ,3,1)　・・・（7）　　!!D1の式

               （５）のMId()はごじらの1文字目から1文字分、すなわちごを

　　　　　（6）のMId()はごじらの2文字目から1文字分、すなわちじを

　　　　　（７）のMId()はごじらの３文字目から1文字分、すなわちらを

　　　　　取り出すので・・・

(●`ε´●)：セルB1にご、セルC1にじ、セルD1にらと表示されると

　　　　　　いうわけだ。

【´･ω･`】：うん。ところで今何時？

　　　　　　5時ら！！（投稿時間）

「ごじら」をバラバラに(3)

【´･ω･`】：B１に=Mid($A1,Col(A1),1)ということだったが

　　　　　ちょっと解説をしておこうか。まず、この式の構造だ。

　　　　　この式はCol()とMid()の2つの関数から出来ている。

　　　　　関数を組み合わせた場合、内側のものから実行される。

　　　　　従って、この場合はCol(A1),から実行される。

　　　　　べべちゃん、　Col()の書式は？

(●`ε´●)：=Col（セル番地）だ。

【´･ω･`】：で、どういう働きをするんだ？

(●`ε´●)：=Col（）を使うと与えられた引数（ひきすう）の列番号を

　　　　　　求めることができる。

【´･ω･`】：具体的は？引数がA1だとすると？

(●`ε´●)：A1の列番号は１だから=Col(A1)は１になる。

　　　　　　これがこの式のミソだな。

【´･ω･`】：では次はMid()の説明だ。Mid()を使うと文字列から

　　　　　　部分文字列を取り出すことができるんだ。

　　　　　　書式は・・・

　　　　　　=Mid（元になる文字列, 部分文字列の開始位置, 　文字数)

　　　　　　･･･だ。

　　　　　　では具体的に・・・。

　　　　　　べべちゃん、下の式の答えは？

　　　　　　=Mid("ごじらは怪獣の王です。",5,4)

(●`ε´●)：「ごじらは怪獣の王です。」の5文字目から

　　　　　　４文字分だから怪獣の王が答えだ。

【´･ω･`】：あとは蛇足になるかもしれないがセル番地にくっついた

　　　　　$記号についてだ。例えばD1に=SUM（A1：C1)入力し

　　　　　この式をD2にコピーすると自動的に=SUM（A2：C2)となる。

　　　　　また=SUM（A1：C1)をE1にコピーすると=SUM（B1：D1)と

　　　　　なる。

　　　　　　これは便利なこともあるが、場合によっては困るときもある。

　　　　　列を示すアルファベットの前に$記号を付けておけば列方向（横）に

　　　　　コピーしても参照するセルが固定される。また行を示す数字の

　　　　　前に$記号を付ければ行方向（縦）にコピーしても参照するセルが

　　　　　変わることはないんだ。

　　　　　専門用語で言うと、$記号が付いているのを絶対参照、付いていないのを

　　　　　相対参照って言うんだ。　

(●`ε´●)：おい、くまぷー。どうでもいいけどなかなか本題の

　　　　　　=Mid($A1,Col(A1),1)の説明に入らないな。

【´･ω･`】：しかたがないよ。安っぽい怪獣映画と違ってごじらは

　　　　　なかなか登場しないんだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

「ごじら」をバラバラに(2)

(●`ε´●)：え～と・・・

　　　　　　A1に「ごじら」がいるとすると・・・

　　　　　　B１に=Mid($A1,Col(A1),1)と入力して右方向にコピペ!!

【´･ω･`】：さすがべべちゃん！！

　　　　　　なかなかだね。さすがだよ。

(●`ε´●)：おい、くまぷー、褒めてくれるのはいいけど

　　　　　　下の「カテゴリー」を見ると「文字列操作」の他に

　　　　　　「３行マクロ」にもなっているぞ！！

【´･ω･`】：う～ん、気がついてしまったか・・・。

　　　　　　今回のテーマはマクロでやるよりも

　　　　　　関数でやったほうが美しいので

　　　　　　知らんぷりしていようと思っていたんだが・・・

(●`ε´●)：そうはいかないな。

【´･ω･`】：では・・・

　　　　　For %i = 1 To Len(Cells(1,1))
　　　　　　　　Cells(1, %i +1) =Mid(Cells(1,1), %i, 1)
　　　　　Next

　　　　　これでどうだ？３行だけど・・・。

「ごじら」をバラバラに(1)

(●`ε´●)：「ごじら」をバラバラだって？！

　　　　　　そんなことができるのは芹沢博士の

　　　　　　オキシジェンデストロイヤーぐらいだろ？！

【´･ω･`】：あ、べべちゃん、そうじゃなくって・・・。

　　　　　　例えばA1に「ごじら」とあったら

　　　　　　　　　　B1に「ご」

　　　　　　　　　　C1に「じ」

　　　　　　　　　　D1に「ら」

　　　　　　・・・といったふうにバラバラに表示させたいんだ。

　　　　　　どうやったらできるかなぁ・・・？

　　　　　　　　　　

１５パズル(12)

　前回、重複無しの乱数を生成できなかったべべちゃんは

コードを次のように書き直した。

%Y = 1
Randomize(thistime())
Cells(1, 1) = Int(Rand * 16) + 1

Do While %Y <= 16

　　　%i = Int(Rand * 16) + 1
　　　For %X = 1 To 16
　　　　　　If Cells(%X, 1) = %i Then
　　　　　　　　continue Do
　　　　　　End If
　　　Next
　　　Cells(%Y, 1) = %i
　　　%Y = %Y + 1
　　　
Loop

【´･ω･`】：お～、べべちゃん、こんどはForループではなくて

　　　　　　Doループを使っているね。かなり、勉強しているとみたが・・・。

(●`ε´●)：まあな。

【´･ω･`】：ちょっとDoループの解説をしてくれ。

(●`ε´●)：OK。Doループは・・・

　　　　　　Do While 条件式

　　　　　　　　　繰り返したい処理

                Loop

                ・・・という書式をとる。上のDoループは条件式が成立する間は

　　　　　　ループすることになる。

【´･ω･`】：Forループとの違いは？

(●`ε´●)：Forループは一般にループの回数が決まっているときに

　　　　　　用いてDoループはそうでないときに用いる。

【´･ω･`】：上出来だよ。それではもうひとつ、　continue Doについて

　　　　　　説明してくれ。

(●`ε´●)：　continue Doはループの開始地点に戻れという命令だ。

【´･ω･`】：うん、文法的なことはバッチリだね。それではコード全体の

　　　　　　流れを説明してくれ。

(●`ε´●)：このコードは重複無しで１から１６までの整数を生成して

　　　　　　それをワークシートのA列に書き込む。発想は単純。

　　　　　　まず、何でもいいから乱数を生成して、それをA1にぶちこむ。

　　　　　　つぎに生成した乱数をA1の数値と比較し、同じだったら違う乱数が

　　　　　　生成されるまでcontinue Doでループする。

【´･ω･`】：なるほど。

（●｀ε´●）：そうやってループしているうちにA1と違う数が生成されたら

　　　　　　　それをA2にぶちこむ。つぎは三ツ目の乱数を生成し

　　　　　　　それをA1,A2にいれた数と比較し、違う数が生成されるまで

　　　　　　　ループする。．．．．．．こうして16個乱数が生成されたら

　　　　　　　ループを抜ける。

【´･ω･`】：べべちゃんらしいコードだな。若者らしくて元気があって好きだよ。

　　　　　　ひとつ、大事なことだけどこのコードだと最初に実行するときは

　　　　　　いいけど、2度目に実行するときA列に乱数が書き込まれたままだと

　　　　　　無限ループになってPCがクラッシュするから気をつけてね。

　　　　　　べべちゃんのコードの先頭にA列をクリアする初期化コードを

　　　　　　1行、付け加えて・・・

　　　　　　Range("A1:A16")=""　!!くまぷーが付加した初期化コード

　　　　　　%Y = 1
　　　　　　Randomize(thistime())
　　　　　　Cells(1, 1) = Int(Rand * 16) + 1

　　　　　　Do While %Y <= 16

　　　　　　　　　%i = Int(Rand * 16) + 1
　　　　　　　　　For %X = 1 To 16
　　　　　　　　　　　　If Cells(%X, 1) = %i Then
　　　　　　　　　　　　　　　continue Do
　　　　　　　　　　　　End If
　　　　　　　　　Next
　　　　　　　　　Cells(%Y, 1) = %i
　　　　　　　　　%Y = %Y + 1
　　　
　　　　　　Loop

　　　　　・・・とすれば問題ないと思うけど、重複無しの乱数を

　　　　　生成するには定跡があるから紹介するよ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

座席表作成(2)

　ただ今、勤務先から帰ってきました。午前中で生徒を

放課した後、ずーっと要録を書いていました。

要録の記入ほど不毛な仕事はないと思います。(-_-;)

さて、4月３日に投稿した「座席表作成」に関してです。

ふつう、表計算ソフトで座席表を作るときは

出席番号を座席の横のセルに入力して

生徒氏名をリストから呼び出すようにしますよね。

VLOOKUP（）かなんかを使って・・・。

このタイプの座席表は一番単純です。

しかし、「座席表作成」で取り上げたものは生徒氏名の横の

セルに席番を入力して座席表に生徒氏名を表示させます。

難易度からいうとこちらの方が少々上です。

悪児さんがどうやら回答例を作ってくれたようです。

他の方も考えてくれたら、うれしいな。

　4/10（火）まで待っています。(^。^)

１５パズル（１１）

　べべちゃんはマクロバイザー（三四郎マクロのヘルプ）を見ながら

ひとりで頑張ってみた。

(●`ε´●)：え～と。マクロバイザーによると・・・１～１６までの整数をランダムに

　　　　　　作るには・・・・。

　　　　　　Randomize(ThisTime())       !! 乱数系列を再設定する
　　　　　　%val = Int(Rand() * １６) +１

　　　　　　・・・とすれば良さそうだ。

　　　　　　で１６がでたらIf文で空欄にして・・・

                 If %val = 16 Then

                         %val = ""

                End If

　　　　　　これらとこの前やったForループを組み合わせれば・・・

　　Randomize(ThisTime())      
　　For %y = 5 To 8
        　　For %x = 2 To 5
　　　　　　　　%val = Int(Rand() * １６) +１
              　　　If %val = 16 Then
                  　　　　%val = ""
               　　　End If
　　　　　　　　Cells(%y, %x)=%val
　　　　　Next
　 Next

べべちゃんは試してみた。

　　　　　　　　　　＿｜￣｜○

１から１５までの整数は一応、ランダムに生成されてはいたが・・・

べべちゃんのコードでは重複無しで生成されるわけではなかった・・・・。

15パズル（１０）

　前回までで１～１５の数字をきちんと並べるコードは作ることが

出来ました。今回からはその数字（以下パネル）をバラバラに並べる

ことがテーマです。なぜならば１５パズルはバラバラになったパネルを

整列させるゲームですから。

【´･ω･`】：15パズルを作るんだから、当然パネルがランダムに 　　　　　　配置されるようにしなければならない。 (●`ε´●)：当たり前だな。そうでなければゲームにならない。どうしたらいいんだ？ 【´･ω･`】：乱数を使う。15パズルだけではなく、一般的にゲームを作るときは 　　　　　　乱数が非常によく使われる。 (●`ε´●)：具体的には？ 【´･ω･`】：三四郎にはRand関数があるので、それを利用すればいい。Rand関数を 　　　　　使えば０以上１未満の乱数を作ることが出来る。例えばひとつのさいころを 　　　　　振ったときのように1から６までの乱数を作りたいときには下のように 　　　　　やればよい。

=Int(Rand() * 6)+1

(●`ε´●)：Intってなんだ？ 【´･ω･`】：Int関数は与えられた数値をその数値を越えない最大の整数に変換する。 (●`ε´●)：？？？ 【´･ω･`】：例えばInt(3.2)は３に、Int(-3.2)は-4になる。 (●`ε´●)：わかった。それでは=Int(Rand() * 6)+1の説明をしてくれ。 【´･ω･`】：OK. 　　　　　　(1)Rand関数は０以上１未満の乱数を作る。 　　　　　　(2)従ってRand() * 6は０以上６未満の乱数を作る。 　　　　　　(3)Int関数は与えられた数値をその数値を 　　　　　　　　越えない最大の整数に変換する。 　　　　　　(4)従ってInt(Rand() * 6)は０から５までの整数値になる。 　　　　　　(5)従って=Int(Rand() * 6)+1は１から６までの整数値になる。

a と b の範囲で乱数を発生させるには、次の数式を使います。 =RAND()*(b-a)+a

(●`ε´●)：なるほど。では双六のように二つのさいころを使うゲームの時は 　　　　　　２から１２までの数字になるわけだから下のような式に 　　　　　　すればいいんだな？

=Int(Rand() * 10)+2

【´･ω･`】：甘いな。 (●`ε´●)：なぜ？どこがいけないんだ？ 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 【´･ω･`】：確かにべべちゃんの式で２から１２までの数字を 　　　　　ランダムに作ることができるだろう。ただ、さいころを二つ振った場合は 　　　　　例えばぞろ目の2がでる場合と７がでる場合は確率が同じでないから 　　　　　そのあたりも考慮して式を立てる必要がある。 (●`ε´●)：なるほど。ゲームの種類によってはそのあたりまでを考えないと 　　　　　　いけないというわけだな。では15パズルの場合は単純に１から15までの 　　　　　　整数値を作ればいいわけだから下の式でいいわけだな？

=Int(Rand() * 15)+1

【´･ω･`】：そう。 (●`ε´●)：おれって天才だな！！

うかれているべべちゃん。果たしてそううまく行くのであろうか…（続く）

１５パズル（９）

(●`ε´●)：うん、よく見ると・・・まだまだ行けそうだな・・・

【´･ω･`】：お～流石、べべちゃん。では下のコードの特徴は？　　　　　

　　　　　For %x = 2 To 5
　　　　　　　Cells(5, %x)=%x -1
　　　　　　　Cells(6, %x)=%x + 3
　　　　　　　Cells(7, %x)=%x + 7
　　　　　　　Cells(8, %x)=%x + 11
　　　　　Next

(●`ε´●)：行番号は初項５，公差１の等差数列、右辺は初項-1，公差4の等差数列だ。

　　　　　　もしも更にループを使えるならば・・・

　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　　Next

　　　　　　・・・となるはずだ。

【´･ω･`】：お～、流石！！ループの中にループを入れることを

　　　　　　ループの入れ子とかネストとよんでいるんだ。

(●`ε´●)：こうやってみると元々は32行あった記録マクロのコード・・・

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

　　　　・・・・が、たったの・・・・・

　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　 Next

　　　　　　Cells(8,5)=""　

　　　　　　・・・になってしまったというわけか。プログラミングって面白いなァ。(^。^)

１５パズル（８）

【´･ω･`】：それでは下の１６行のうち上から４行を見てくれ。

　　　　　　何か特徴がないか？

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

(●`ε´●)：行番号は全て５，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項１，公差１の等差数列になっている。

【´･ω･`】：うん、だからForループを使うと・・・・

               For %x = 2 To 5

                      Cells(5, %x)=%x -1

                Next

      　　　・・・・となる。

【´･ω･`】：次の４行の特徴は？

　　　　　　Cells(6,2)=5
　　　　　　Cells(6,3)=6
　　　　　　Cells(6,4)=7
　　　　　　Cells(6,5)=8

(●`ε´●)：行番号は全て６，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項５，公差１の等差数列になっている。

【´･ω･`】：うん、すると同様にForループを使うと・・・・

               For %x = 2 To 5

                       Cells(6, %x)=%x + 3

                Next

      　　　・・・・となる。

【´･ω･`】：さらに次の４行の特徴は？

　　　　　　Cells(7,2)=9
　　　　　　Cells(7,3)=10
　　　　　　Cells(7,4)=11
　　　　　　Cells(7,5)=12

(●`ε´●)：行番号は全て7，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項9，公差１の等差数列になっている。

【´･ω･`】：うん、すると更にForループを使うと・・・・

               For %x = 2 To 5

                       Cells(7, %x)=%x + 7

                Next

      　　　・・・・となる。

(●`ε´●)：なるほど、要領がわかったよ。最後の４行は・・・

　　　　　　Cells(8,2)=13
　　　　　　Cells(8,3)=14
　　　　　　Cells(8,4)=15
　　　　　　Cells(8,5)=""

(●`ε´●)：あれ？！最後の行が規則的ではないな。

【´･ω･`】：じょあ、取りあえず最後の行は・・・

　　　　　　Cells(8,5)=16

　　　　　　・・・だと思えば？

(●`ε´●)：行番号は全て8，列番号は初項２，公差１の等差数列

　　　　　　そして右辺は初項13，公差１の等差数列だ。

【´･ω･`】：するとどう表せる？

(●`ε´●)： For %x = 2 To 5

                       Cells(8, %x)=%x + 11

                  Next

【´･ω･`】：正解だ。今まで作った４つのForループを並べるから

　　　　　　もう一度よく見てくれ。

　　　　　　For %x = 2 To 5

                      Cells(5, %x)=%x -1

                Next

　　　　　　For %x = 2 To 5

                       Cells(6, %x)=%x + 3

                Next

　　　　　　For %x = 2 To 5

                       Cells(7, %x)=%x + 7

                Next

　　　　　　For %x = 2 To 5

                       Cells(8, %x)=%x + 11

                 Next

【´･ω･`】：何か特徴は？

(●`ε´●)：４つとも外枠が同じになっている。

【´･ω･`】：うん。どれも　For %x = 2 To 5　と Next だな。

　　　　　　だから、４つのForループはまとめれば・・・

　　　　　For %x = 2 To 5
　　　　　　　Cells(5, %x)=%x -1
　　　　　　　Cells(6, %x)=%x + 3
　　　　　　　Cells(7, %x)=%x + 7
　　　　　　　Cells(8, %x)=%x + 11
　　　　　Next

(●`ε´●)：なるほど。

【´･ω･`】：・・・でこのままでは

　　　　　　　　Cells(8,5)=16　が生きているのでE8が１６になってしまう。

　　　　　　　　だから最後に　Cells(8,5)=""　を付け加えてE8をクリアすればいい。

　　　　　　　　ゆえに最終的には・・・

　　　　　For %x = 2 To 5
　　　　　　　Cells(5, %x)=%x -1
　　　　　　　Cells(6, %x)=%x + 3
　　　　　　　Cells(7, %x)=%x + 7
　　　　　　　Cells(8, %x)=%x + 11
　　　　　Next

　　　　　Cells(8,5)=""　

　　　　　・・・が答えとなる。

(●`ε´●)：うん、よく見ると・・・まだまだ行けそうだな・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル(7)

【´･ω･`】：今回はもう一つの基本事項のループだ。

　　　　　　ループは処理の繰り返しに使う。その中でも最も基本的な

　　　　　　を取り上げる。　まず、「For ループ」を取り上げよう。

★書式：

               For  %カウンタ変数 = 開始値　To 終了値

　　　　　　　　　　繰り返したい処理

　　　　　 Next

【´･ω･`】：このような記述をすると%カウンタ変数の値を開始値から

　　　　　　終了値まで１ずつ増加させながら、（終了値－開始値＋１）回だけ

　　　　　　「繰り返したい処理」を繰り返す・・・。

(●`ε´●)：おい、難しいぞ！！

【´･ω･`】：OK,では具体的に行こう。

　具体例（１）

　　　　　　For %i = 1 To 5

                         MsgBox("こんにちは")

　　　　　　Next

【´･ω･`】：具体例（１）のように記述すると、（終了値－開始値＋１）回、つまり

　　　　　　（５－１＋１）回だから、5回ほど「こんにちは」というメッセージボックスが

　　　　　　表示される。ではもう一つ具体例を・・・。

　具体例（２）

　　　　　　For %i = 1 To 5

                         MsgBox( %i )

　　　　　　Next

【´･ω･`】：さて、こんどはメッセージボックスの中身が「こんにちは」から%iに変わった。

　　　　　　すると%カウンタ変数の%iが、開始値１から終了値５まで１ずつ増加していく

　　　　　　から、具体例(1)では5回とも同じ「こんにちは」というメッセージが表示されたが

　　　　　　こんどは・・・。

(●`ε´●)：メッセージボックスの内容が５回とも違って、１，２，３，４，５と

　　　　　　なるというわけか？

【´･ω･`】：その通り。「For ループ」では変化する%カウンタ変数の値をうまく

　　　　　　利用するのがコツだな。

(●`ε´●)：おー、なんとなくわかったぜ。

　　　　　　ところで、なんで%iなんだ？

【´･ω･`】：別に%Xでも、%Yでも、あるいは日本語で%番号でもいいんだが

　　　　　　%iがよくつかわれるのは integer（整数）の頭文字だからだな。

　　　　　　それでは次回はこの２回でやった基本事項の考えをもとにして

　　　　　　１５パズルのコードに戻ろう。

１５パズル（６）

【´･ω･`】：Range（）形式をCells()形式にすると何がいいかを

　　　　　　理解してもらうために二つほど基本事項を説明したい。

　　　　　　まずは・・・

★＝（等号）の使い方について

【´･ω･`】：Super Play Riteでは、等号は２つの使い方があるんだ。

　(1)代入演算子としての＝（等号）

　　　例）　%X = %X +1

(●`ε´●)：おい、その式はおかしくないか？両辺から%Xを引いたら

　　　　　　0=1になっちゃうぞ！！

【´･ω･`】：この場合の等号の使い方は数学での使い方と違うんだ。

(●`ε´●)：どう違う？

【´･ω･`】：まず式の右辺を計算して、その結果を左辺に代入するんだ。

　　　　　　つまり、もしも%Xが1ならば右辺を計算して２。その結果を左辺に

　　　　　　代入するわけだから、%X = %X +1のコードを実行すると

　　　　　　実行前に１であった%Xが実行後には２になるということだ。

(●`ε´●)：それでは、実行前に%Yが３だったとすると

　　　　　　例）　%Y = %Y －２

　　　　　　の後では%Y は１になるということだな？

【´･ω･`】：そう。ちなみに割り算の「÷」を表す記号は「/（スラッシュ）」、かけ算は

　　　　　「*（アスタリスク）」になる。

(●`ε´●)：わかった。で、もう一つの等号の使い方は？

(２)比較演算子としての＝（等号）

【´･ω･`】：もう一つは数学の等号と同じ。左辺と右辺が等しいという意味。等号は

　　　　　If文のの中などで条件判断に使われると数学の等号と同じ使い方になる。

　　　　　例）      If Range("A1") = 1 Then

                                 MsgBox("A1は１です")

                           Else

                                 MsgBox("A1は１ではありません")

                           End  If

(●`ε´●)：わかったけど面倒くさいな。なんでSuper Play Riteを作ったひとは

　　　　　　　同じ記号に二つの意味を持たせたんだ？！別の記号にしておけば

　　　　　　　混乱しないのに。

【´･ω･`】：BASICをルーツとするプログラミング言語はSuper Play Riteと同じだな。

　　　　　　もちろん、ちがう記号を割り当てている言語もある。次回はもうひとつの

　　　　　　基本事項を説明しよう。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル（５）

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

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

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

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

１５パズル（２）

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

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

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

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

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

三四郎をお持ちでない方へ

(●`ε´●)：俺の友達で、このブログのフリガナソート（１）と

　　　　　　フリガナソート（２）を見て三四郎に興味を持った奴がいるんだ。

【´･ω･`】：それはうれしいね。

(●`ε´●)：でもそいつはエクセルユーザだから三四郎を

　　　　　　持っていないんだ。いろいろ試してみたいんだけど

　　　　　　わざわざ買うのもなんだしと言っているんだ。

【´･ω･`】：ああ、それだったら「三四郎２００７」の体験版が

　　　　　　配布されているから、それを使えばいいよ。

(●`ε´●)：おまえが使っているのは「三四郎９」と「三四郎２００５」だろ。

　　　　　　「三四郎２００７」では何か不都合があるんじゃないか？

【´･ω･`】：名前が違うだけで中身はどれも同じだから、どのバージョンを使っても

　　　　　　大丈夫だよ。

三四郎でゲームを!!

　同じ表計算ソフトでもエクセルを使ってゲームを作るというのは

世間的にもかなり認知されてきていると思います。しかし、三四郎を

使ってゲームを作るということをテーマにしているサイトはくまぷーの

ところを除いては無いように思います。

（もしもあったら是非教えてくださいm(__)m）

(●`ε´●)：どうしてそんなことをやる気になったんだ？

【´･ω･`】：誰もやっていないから・・・。

(●`ε´●)：おまえも物好きだな。

【´･ω･`】：それは認める。

(●`ε´●)：おれのような三四郎マクロ初心者でも大丈夫か？

【´･ω･`】：コードについてわからなかったら遠慮無く聞いてくれ。

　　　　　　では次回から始めるから。