エクセルでビンゴの用紙を作成したい

質問

XPを使用しています。
ビンゴでよく使用する5×5のマス目で60までのランダムな数値が入っています。RAND関数=roundup(rand()*60,0)を使い挿入しています。
しかし、どうしても重複した数値が入ってしまいます。
重複しないためにはどうしたらよいか・・・(-_-;)
子ども会で100名ほどに印刷して切って使う予定にしています。どなたか、ご存知でしたら、教えてください。よろしくお願いします。

回答No.5

taisuke555 · ベストアンサー

＃３の方に似ているような、似てないような方法ですが、

（１）G1セル　=RAND()
　　　と入力し、G60セルまでコピー
（２）A1セル　=MATCH(SMALL($G$1:$G$60,(COLUMN()-1)*5+ROW()),$G$1:$G$60,0)
　　　と入力し、E5セルまでコピー

でF9（再計算）を押すたび１～６０までがランダムに表示されます。

＃４さんの考え方で、
A列：１～１２
B列：１３～２４
C列：２５～３６
D列：３７～４８
E列：４９～６０
ならば
A1セルに　=MATCH(SMALL(OFFSET($G$1,(COLUMN()-1)*12,0):OFFSET($G$12,(COLUMN()-1)*12,0),ROW()),$G$1:$G$60,0)
でE5セルまでコピーでできると思います。

回答No.4

bin-chan

６０までの数値という条件がつく事情がおありでしょうが、
以前同じようにＰＣでカードを作って大失敗したことがあります。

市販のカードは縦５マスを１セットに考えると
左から右へ以下の範囲で書かれているようです。
左端：１～２０
左中：２１～４０
中央：４１～６０
右中：６１～８０
右端：８１～１００
これを考慮せずに作成したら、数値が結構偏ってまして、
ＢＩＮＧＯ！が当分でず、最後の方に集中してしまったことがあります。

というわけで、市販のカードの方がお手軽であると思います。

回答No.3

maruru01

こんにちは。maruru01です。

作業列を2列使用する方法です。
5×5のマスをA1～E5として、G、H列を作業列とします。

G1～G60まで1、2、3・・・60と連番を振ります。
H1に、

=RAND()

と入力してH60までコピーします。
A1に、

=OFFSET($G$1,COLUMN(A1)-1+(ROW(A1)-1)*5,0,1,1)

と入力して、行・列方向それぞれへコピーします。
あとは、GH列を選択して、H列で並べ替える度に、1～60までの値が重複せずにランダムに表示されます。
（並べ替え操作をするとRAND関数が更新されるので。）
並べ替えごとに印刷するなり、値のみをコピーペーストすればいいでしょう。

ただ、No.1の方が言うように、100名程度なら、本物のビンゴ用紙を買ったほうがいいような・・・

回答No.2

happypoint

＞百円ショップで、ビンゴの用紙を売っていますので、そちらの方が早いかと思います。

たしかに。

私もそう思います。
そうではなくて、趣味や知識のひとつとして、VBAでのランダムな数値を取得するテクニックを知りたいということでしたら、また補足してください。

回答No.1

PAPA0427

すみません。

回答ではありません。ご質問の事をするとしたら、ＶＢＡでプログラムを書く必要があります。大変な労力が必要になります。

百円ショップで、ビンゴの用紙を売っていますので、そちらの方が早いかと思います。