１５パズル（１１）

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

ひとりで頑張ってみた。

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

　　　　　　作るには・・・・。

　　　　　　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

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

　　　　　　　　　　＿｜￣｜○

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

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