Excel Maniacs

12×12のマスにランダムにアルファベットを表示する(1)

さて今まで調べたことを基に12×12のマスにランダムに アルファベットを表示させてみよう。未知の事項はは乱数を 表示させる命令、12×12のマス、つまりセルを指定する命令 それに文字コードを文字列に変換する命令か・・・。 それではいつもの通り、ヘルプを調べてみよう。 せっかく買い求めた「一太郎マクロ入門」にはあまりお世話に なることもないようだ。ヘルプの文例に下のように書いてある。

Randomize(ThisTime()) !! 乱数系列を再設定する %val = Int(Rand() * 100) !! %val に０～99までの乱数が代入される このあたりはVBAと同じだ。Rand()だけだと同じ乱数を 呼び出してしまうのでRand()を使う前にRandomize()を 使って乱数のタネをつくるのであろう。その際、ThisTime()で 現在の時刻を引数にする・・・このあたりはお約束だ。 　ついでに言うと変数valの前に付いている%はvalのスコープが ローカルであることを意味する。もしもvalの前に$をつけると valのスコープがグローバルであることを意味するということになる。

ごじらを逆さまに(10)

(●`ε´●)：悪児さんのでもうひとつわからないのは・・・

=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-1) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-2) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-3) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-4) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-5) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-6) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-7) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-8) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-9)

　　　　　・・・の赤字の部分の働きだ。B1は「きんぐぎどら」だよな？！悪児さんは

　　　　　なんのために「きんぐぎどら」のまえにスペースを10個もくっつけたんだろうか？

【´･ω･`】：そういうときはRepeat(" ",10) &を消してしまえばいい。

　　　　　　そうすればRepeat(" ",10) &の役割が見えてくる。

(●`ε´●)：下のようにしてしまえというわけか・・・

　　　　　　=Fold(B1,1,Len(B1)) & Fold(B1,1,Len(B1)-1) & Fold(B1,1,Len(B1)-2) & Fold(B1,1,Len(B1)-3) & Fold(B1,1,Len(B1)-4) & Fold(B1,1,Len(B1)-5) & Fold(B1,1,Len(B1)-6) & Fold(B1,1,Len(B1)-7) & Fold(B1,1,Len(B1)-8) & Fold(B1,1,Len(B1)-9)

　　　　　　・・・あ、あれ？！「きんぐぎどら」が!引数不正!になっちゃったぞ？！

　　　　　　どうやらRepeat(" ",10) &はなんかのエラー対策のようだな。

【´･ω･`】：「きんぐぎどら」のかわりに「１２３４５６７８９０」といれてごらん。

(●`ε´●)：あれ？こんどはエラーにならずに「０９８７６５４３２１」と表示されたぞ？！

　　　　　　そうか、Repeat(" ",10) &は10文字未満の時にエラーにならないように

　　　　　　するためのものか！！

【´･ω･`】：うん。

(●`ε´●)：じゃあ、悪児さん方式でやると100文字を逆さまにするのにFold()のブロックが

　　　　　　100個いるというわけか？

【´･ω･`】：うん。基本的にはね。

(●`ε´●)：しかし、B5の「'くまぷー先生すてき♥ですよ。きゃー!

　　　　　　なんちゃって◇さらに続く」は31文字だからFold()ブロックが

　　　　　　３１個いるはずだが・・・？

【´･ω･`】：べべちゃん、よく見てごらん。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

ごじらを逆さまに(9)

(●`ε´●)：くまぷー、悪児さんのファイルを見たんだがちょっと

　　　　　　意味がわからないところがあるんだ。

【´･ω･`】：悪児さんは正攻法だと言っていたな。べべちゃん、で、

　　　　　どんな関数を使っていたんだ？

(●`ε´●)：こんなやつだ。「きんぐぎどら」がB1で・・・

　　　　　　B2にこんな式があったんだ・・・

　　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-1) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-2) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-3) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-4) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-5) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-6) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-7) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-8) & Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1)-9)

【´･ω･`】：で、なにがわからないんだい？

(●`ε´●)：まず、式が長いんで、どこから解読したらいいのかわからない・・・。

【´･ω･`】：よく見てみると・・・

　　　　　Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　・・・をたくさん、くっつけたようだな。

(●`ε´●)：うん、数えてみると10個あるな。

【´･ω･`】：べべちゃん、そういうときは・・・

　　　　　ひとつを残して後はデリートしてしまえばいい。・・・例えば

　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　・・・だけを残して後は消してしまう。そうすると式の動きが

　　　　　見えてくる。式が長くて理解しにくいなら

　　　　　長いままで扱うのは賢くない。短くしてしまえばいい。

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

　　　　　　=Fold(Repeat(" ",10) & B1,1,Len(Repeat(" ",10) & B1))

　　　　　　・・・はどうやら、「きんぐぎどら」の「ら」を表示している部分らしいな。

　　　　　こうやってみると、ひとつのFold()の部分がひらがな1文字にあたる

　　　　　ようだな。

【´･ω･`】：うん。

(●`ε´●)：わかってきたよ。くまぷー、でも、まだわからないところがあるんだ。

【´･ω･`】：どこだい。

(●`ε´●)：それは・・・。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）