Excel Maniacs

１５パズル(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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル（１１）

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

ひとりで頑張ってみた。

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

　　　　　　作るには・・・・。

　　　　　　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

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

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