Excel Maniacs

１５パズル(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パズルではブランクパネルと隣り合った

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

　　　　　　行くわけだろう？

(●`ε´●)：ああ。

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

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

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

　　　　　　不都合があるんだ。

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル(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回繰り返しているという訳か。

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）

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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）