VBAで乱数を順に表示したい

エクセルを使って、画面上に０～６０の数字を表示させたいのです。
順番は、ばらばらでクリックするたびに、画面に1つずつの数字を表示させたい
と思います。
エクセルと書きましたが、パワーポイント等でもかまいません。
どなたかご教授願います。

No.3 回答者： ichhabehunger 回答日時： 2011/01/29 12:47

ビンゴゲームって０はありましたっけ？

ま、それはともかくそういうことならただ乱数を表示すればいいってもんでもないと思います。
１～６０がでたらめに出てくる以外に

一度出た数字は２度と出ない

という条件も必要でしょう。
というわけで

１～６０の６０個の数字をでたらめに並べ替え、順に表示する

が正解だと思います。
それをビンゴっぽくするなら

たとえばExcelなら
シートを６０枚用意し、
そこにワードアートなどを使って１～６０の数字をあらかじめ１つずつ書いておき、
別のシートの１～６０の数字をランダムに並べたリストを用意し、
ユーザーフォームにボタンを貼りつけておいて、
それをクリックすると先ほどのリストを順に読んで、該当のシートを表示する
ボタンをクリックするたびに、先ほど表示したシートは非表示にし、新しいシートを表示する

というアイデアはどうでしょうか？

PowerPointならシートがスライドに代わるだけでしょう。
私はPowerPointの方がいろいろと視覚効果も期待できるので賛成ですが
私自身PowerPointのVBAには詳しくないです。

No.2 回答者： Wendy02 回答日時： 2011/01/29 10:57

ビンゴゲームにするなら、最初から言っていただいたほうがよいと思います。

でも、ご質問も#1の補足内容も何か疑問に残ることがあります。

>画面いっぱいに数字を表示し、マウスをクリックすると
>次の番号が出るようにしたいです。

画面一杯と言っても、Excelの場合は、標準的に、一画面で、400セルぐらいありますが、ビンゴゲームで、そんなに並べてもしょうがないと思います。0～60 なら、61セル使うということではないでしょうか。でも、60では、正方形にならないのではないかと思います。64とか、81とか、100とか、縦横列数が同じ数でないといけないはずです。

0～60 というように、数字の個数が奇数ですと、出てこない数字もあるということですね。

'シートモジュールのみ（ダブルクリック・イベント）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim rng As Range
　Dim ret As Variant
　Set rng = Range("A1:F10") '入力範囲
　Cancel = True
　If Target.Value <> "" Then Exit Sub
　If Intersect(Target, rng) Is Nothing Then Exit Sub
　Randomize
　Do
　　n = Int(Rnd() * 61)　'0～60まで
　　ret = Application.CountIf(rng, n)
　　If ret = 0 Then
　　　Target.Value = n
　　　Exit Do
　　End If
　Loop
End Sub

No.1 回答者： ichhabehunger 回答日時： 2011/01/24 20:57

こんばんは。

仮にExcelだとして「画面」って何ですか？
ダイアログボックス？　シートのセル？

セルだったら　「=INT(RAND()*61)」とでもどこかのセルに入れておけば
とりあえず乱数は表示できます。

ダイアログボックス（メッセージボックス）に表示させたいなら

Sub test()
MsgBox Int(Rnd * 61)
End Sub

とでもコーディングしておけば、これを走らせるたびに乱数が表示されます。

「クリックするたびに」もわかりにくいです。
「何を」クリックするのでしょうか。

私もすぐ返事が欲しいです。

この回答への補足

早々にご回答ありがとうございます。

状況説明不足ですみません。

ビンゴゲームの番号表示に使いたいので、
画面いっぱいに数字を表示し、マウスをクリックすると
次の番号が出るようにしたいです。

補足日時：2011/01/25 15:21