- ベストアンサー
VBAで，ビンゴゲームの数字の生成方法
keithinの回答
- keithin
- ベストアンサー率66% (5278/7940)
ん～？ 誰かが書いたマクロを読む方が簡単なのですか？ ＃できるだけ簡単に： Sub macro1() Dim i Worksheets("Sheet1").Select Application.ScreenUpdating = False With Range("A11:E25") .Formula = "=ROW(A1)+(COLUMN(A1)-1)*15" .Value = .Value End With Range("F11:F25").Formula = "=RAND()" For i = 1 To 5 Range(Cells(11, i), Range("F25")).Sort key1:=Range("F11"), header:=xlNo Next i Range("A1:E5").Value = Range("A11:E15").Value Range("C3").Value = "FREE" Range("A11:F25").ClearContents Range("A1:E5").HorizontalAlignment = xlCenter Application.ScreenUpdating = True End Sub Sub macro2() Worksheets("Sheet2").Select Range("A1:A15") = "B" Range("A16:A30") = "I" Range("A31:A45") = "N" Range("A46:A60") = "G" Range("A61:A75") = "O" Range("B1") = 1 Range("B2") = 2 Range("B1:B2").AutoFill Range("B1:B75") Range("C1:C75").Formula = "=RAND()" Range("A1:C75").Sort key1:=Range("C1"), header:=xlNo Range("C1:C75").ClearContents Range("A:B").HorizontalAlignment = xlCenter End Sub
関連するQ&A
- ＥＸＣＥＬでビンゴゲームのようなものを作りたいのですが・・・
すみません。お知恵を拝借したく存じます。 ＥＸＣＥＬ２００３にて、ビンゴゲームのようなものを作りたいと思っています。 例Ｃ１～Ｇ５に１から２５までの数字をランダムに入力し、 Ａ１～Ａ５に抽選番号（１～２５）を入力すると、 Ｃ１～Ｇ５に入力した番号を検索し、そのセルに色を塗りたいのですが、 ＥＸＣＥＬ２００３では条件付書式が３つまでしか使えないため、 例のように４つ以上の条件がある場合での方法はないものでしょうか？ 何か関数があるのでしょうか？ＶＢＡを使えばできるのでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 写真が出るビンゴマシーンは可能でしょうか
ビンゴで使用するビンゴマシーンをexcelで作成できると聞いたのですが、 数字ではなく写真などがでてくるように出来るものでしょうか？ 数字ではなく名前ビンゴを作成しております。４×４のマスに名前を書いたカードに対して24人分の名前を用意しています。タブレットに数字ではなく２４人分の写真がランダムに出てくる設定ができればきっと盛り上がると思うのですが。 数字をランダムで選び一度使った数字を重複させないことができるのであれば、そこに写真を関連づけるのは難しいことなのでしょうか？ 何か良い関数なり方法はありますでしょうか？ エクセルはあまり理解していないので出来ましたら具体的なやり方（数式？）を記述していただけるととても有難いです。 エクセル以外でももし方法があるなら教えて頂きたいです。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- ビンゴゲームのカードを作りたい（3×3）
結婚式の披露宴で縦3横3のビンゴゲームをしようと思っています。 カードには1から30くらいの数字がいいかなぁと思っています。 肝心のカードが売っていないようなので作ろうかと思うのですがいざランダムに、となると結構難しいですね。。 エクセルもそんなに強くないし、、、 そっち系（どっち系？）お強い方のアドヴァイスをお待ちしています♪ 最悪、自分で書き込んでもらうしかないのかなぁ。。
- 締切済み
- その他(ボードゲーム)
- エクセルマクロ、VBAにてあみだくじ
初心者です。宜しくお願いいたします。 エクセルでくじを作りたいと思います。 エクセルのシートに、あみだくじというボタンを押すと １～15までの数字及び、「あなたはこの数字です」というメッセージが乱数として 重ならないで出ると言うものを作りたいのです。 （15回より多くクリックできないという事もしたいと思います。） 何か良い知恵はありませんか。宜しくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 数字検索そふと
ビンゴ５等の数字選択くじを楽しんでいます パソコンのエクセルでデータを取っていますが ある数字が何回出てるかを調べる方法を 教えていただきたい。 例えば、ビンゴ５なら一回から直近の当籤番号を エクセルで保存してるが、そのデータから 4,8,15が何回でたかを調べるソフトをVBAなどで 簡単に作れませんか？ 当方 ７０過ぎの老人なので宜しくお願いします
- ベストアンサー
- Excel（エクセル）
- ランダムで抜き出した数字を更に抜き出す
0から19までの数字があるとして、その数字のうち仮に5つをランダムで抜き出します。 次に例えばボタンなどを押すと、その抜き出した5つの数字を除く数字を ランダムで更に5つ抜き出すというようなスクリプトはどのようにすれば できますか？ もしくは、この場合ですと、0から19までの数字をランダムで並び替え、 その並び替えた数字を、例えば5つずつ表示するという方法でもいいと思うのですが いずれの場合も方法がわかりません。 for文はいまいちうまくできません。よろしくお願いします。
- ベストアンサー
- JavaScript
- 完全な乱数を生成する方法
Ｃ言語で乱数を生成するときに、今まで srand(time(NULL)); を使用していたのですが、それだと１秒以内に複数の処理を行った際に、 同一の乱数が生成されてしまいます。 時間にとらわれずに完全にランダムな数字を出現させるにはどのような方法を取るのが簡単なのでしょうか？ よろしくお願いします。
- ベストアンサー
- C・C++・C#
- 任意の日付を選択、対応する数字を返すVBAの書き方
ＶＢＡ初心者です。 Ａ列に日付とＢ列にそれぞれの日に対応する損益が並んでいるエクセルシートから (1)ランダムに任意の一日を選択 (2)その日から10日前までの損益を合計 (3)選択した日と、その日から数えた損益の合計値を別のシート（例：sheet1）に返す (4)上記(1)-(3)の動作を10回繰り返し（数字を返すセルは変えていく） というＶＢＡを書きたいのですがＶＢＡを使用したことがなく、使用方法がわかりかねます。 どなたかアドバイスいただけませんでしょうか？ よろしくお願いします。
- 締切済み
- Visual Basic
- ビンゴの確率計算
はじめまして。 ビンゴする確率を教えてください。 ネットで調べたのですが、計算式が大変複雑で挫折しました・・・。 1枚のビンゴカードで、n回目でビンゴする確率が知りたいです。 【ルール】 (1)ビンゴカードは1枚のみ。 (2)真ん中はフリーで最初から空いている。 (3)ランダムに箱の中から1枚取り出し、1度引いた数字は戻さない。 (4)引いた数字と一致した場合は穴を空ける。 (5) (3)・(4)を繰り返す。 【パターンA】数字は35個、６×６のカードで真ん中はフリーの場合。 【パターンB】数字は109個 ５×５のカードで真ん中はフリーの場合。 この２パターンでn回目の確率を求めたいのですが、 計算式はどのようになりますでしょうか。 どなたかお知恵をお貸しください。 宜しくお願いします。
- ベストアンサー
- 数学・算数
- ＶＢＡ 人の目には同じ数字に見えるのに、ＶＢＡは違う数字として判定してしまう
あるセルに1826.97792という数字が入力されており、 別のセルにも1826.97792と同じ数字が入力されています。 人間の目で見る限りまったく同じ数字です。 また、エクセル関数=if（・・・・・）で判定しても同じ数字という判定がでます。 しかしながら、ＶＢＡにて ｉｆ セル１=セル２ then などとして比較すると、同じでないという判定結果になります。 どうしてこういうことが起きるのでしょうか？ また、プログラムを書くうえでの対処方法はどうすればいいのでしょうか？ ちなみに、数字は他の人が作ったファイルのもので、 改めて、手で入力しなおすと正しく判定されます。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 大変参考になります。 私にとっては，EXCELの関数も初心者なので，これから貴殿から教授いただいた数式を書籍といろいろなWEｂページをたよりにして理解のための努力をします。 だいぶ分かってきました。