重複なし乱数について

質問

重複なし乱数について

VBAで重複なしの乱数を使ったプログラムを作りたいのですが上手く作れません。
助言お願い致します。

作るのは数比べゲームです。
フォーム上にボタン0～9を配置し、ボタンを押すごとに重複しない乱数をPC側で表示させ、
選択した数字と乱数を比較し勝敗を決定するというゲームです。

エクセル上に重複なし乱数を表示する方法はなんとなく分かるのですが、
ボタンを押すごとに重複なし乱数を取得する処理を行う方法が分かりません。

現状としては
ボタンを押した処理の欄に

pcNo = Int(9 * rnd + 0)

を書いてただ乱数を取得している状態です。

回答よろしくお願い致します。

回答No.6

samtomsan · ベストアンサー

> myFlag(myNum) = False　や
myFlag(myNum) = True
の部分は必要なのでしょうか

重複させないために必要です。

乱数はボタンを押す前に10個作っておきますから、ボタンを押したときの処理に何か間違いがあるのではないかと思います。

一番考えられるのは myRnd と j がグローバル変数にしてないのではないかと思います。
例えば下記のような構造になっていますか。

Dim myRnd(9) As Integer
Dim j As Integer
j= 0

Sub Sub Sample()
'乱数の発生と myRndへの格納
Dim i As Integer, myNum As Integer
Dim myFlag(9) As Boolean
For i = 0 To 9
Do
Randomize
myNum = Int(Rnd * 10)
Loop Until myFlag(myNum) = False
myRnd(i) = myNum
myFlag(myNum) = True
Next
End Sub

Sub BtnClick()
'myRnd(j)の表示
表示場所 = myRnd(j)
j = j + 1
End Sub

お礼

上記のプログラムを参考に書く順序を直しながらプログラムに組み込んでみたら
重複なしの乱数を取得することができました。

何度も質問に答えていただき、本当にありがとうございました!!

回答No.5

imogasi

乱数と言うのは、同じ値も発生してこそ、乱数でしょう。省いたら厳密には乱数でなくなるのでは。
質問のようなことをやると、乱数と唱えているだけで、ただの自己満足でしょう。
乱数を数学的に勉強してください。または数学のカテゴリで、数学の識者に質問したら。
でも回答があっても、それを理解できないだろうと思うが。
ーー
それより重複のない連番などをつくり、別（隣）列に乱数をだし、その列で元データとともにソートし、上から１つづつ元のデータ（乱数でない）を順に採り上げていく、方が良いのでは。

回答No.4

samtomsan

参考のプログラムで考えると

追加
Dim myRnd(9) As Integer

下記を変更
Range("A1").Offset(i).Value = myNum + 1

myRnd(i) = myNum

で myRnd に0～9の数値が入ります。

0～9のボタンをそれぞれは一回しか押してはいけなければ、
0を押した -> myRnd(0)を表示
1を押した -> myRnd(1)を表示
・・
9を押した -> myRnd(9)を表示

同じボタンを押しても良いのであれば、変数jを導入して

Dim j As Integer
初期値
j = 0

0を押した -> myRnd(j)を表示
j = j + 1
1を押した -> myRnd(j)を表示
j = j + 1
・・
9を押した -> myRnd(j)を表示
j = j + 1

でできると思います。

お礼

迅速な対応本当にありがとうございます!!

参考にしてみましたが、ボタンを2回目押したときに毎回フリーズしてしまいうまく動きません;;
参考URLの
myFlag(myNum) = False　や
myFlag(myNum) = True
の部分は必要なのでしょうか？

回答お願いいたします;;

回答No.3

kagakusuki

0～8までの乱数を発生させてから、その値に1を足して1～9の乱数とし、それをボタンで選択した0～9の値に加えた上で、MOD関数等を用いて、10で割った時の余りを求めれば良いのではないでしょうか。

回答No.2

samtomsan

0～9で重複しないということですと、ボタンを10回押すと終わってしまいますが、それでよいのでしょうか。

そうならば10個の乱数を入れる変数にあらかじめ重複しない乱数を入れておき、0～9のボタンを押したら配列の数字を表示すれば良いと思いますが。

下記のセルに表示する代わりに配列に入れておけば良いということになります。
http://www.moug.net/tech/exvba/0050060.htm

目的と重複しないという前提が違っているような気がしますが。

補足

回答ありがとうございます!!

ボタンを10回押すとゲームが終了で大丈夫です。

参考URLを見たのですが、配列に入れるというのがいまいち分かりません。
もう少し詳しくお答え願いたいと思います；；

よろしくお願い致します。

回答No.1

YUI_AI

Randomizeを使用すればよいのではと思います。
外していたらごめんなさい。

使用例
http://www.officetanaka.net/excel/vba/statement/Randomize.htm