No.3ベストアンサー
- 回答日時:
昔、Accessでやった場合はこんな感じ。
参考になるかな?Function omikuji()
'大凶5、凶10、小吉30、末吉25、吉20、大吉10 の比率
Dim mikuji As Single
Randomize
omikuji = Int((100 * Rnd) + 1)
Select Case omikuji
Case Is > 95
Forms!Fおみくじ!おみくじ = "大凶"
Case Is > 85
Forms!Fおみくじ!おみくじ = "凶"
Case Is > 55
Forms!Fおみくじ!おみくじ = "小吉"
Case Is > 30
Forms!Fおみくじ!おみくじ = "末吉"
Case Is > 10
Forms!Fおみくじ!おみくじ = "吉"
Case Is > 0
Forms!Fおみくじ!おみくじ = "大吉"
End Select
End Function
No.2
- 回答日時:
乱数の発生と別に表をつくります。
乱数側で発生した数字に対応するVLOOKUP関数にて、
表から1~5までの数値を拾います。
発生する乱数は100でも200でもOK。
表の2の割合を多くする。
・・説明下手&的はずれ?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelのFSO(ファイルシステムオブジェクト)について学びたいのですが。。。 5 2022/12/15 18:06
- Excel(エクセル) ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。 1 2022/04/14 16:45
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Excel(エクセル) EXCELで、漢字のみ抽出する式を教えてください。 6 2022/04/27 14:40
- Excel(エクセル) エクセル・スプレッドシートで、一定数を超えたらゼロから再累計する方法 8 2022/05/28 03:52
- 数学 既存の数列のランダム性について(初歩的質問) 2 2022/06/07 20:04
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
- Excel(エクセル) Excel VBAについて 2 2022/08/02 06:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ここ最近、常に人生の崖っぷち...
-
タロット占いって当たりますか...
-
おむくじを引いてみたら
-
財布におみくじが20個くらい入...
-
A神社で引いたおみくじをB神社...
-
「心変わらずば叶うべし」 って...
-
おみくじは、他人のお金でやっ...
-
おみくじって当たりますか?
-
おみくじについて。 去年も今年...
-
おみくじの期限
-
おみくじの内容
-
昨日、おみくじを引きました。 ...
-
片想いをしている場合、おみく...
-
おみくじを引いてみたら、その2
-
VBAで偏りのある乱数を出したい...
-
今日神社におみくじ引きました...
-
おみくじや占いを信じますか?...
-
おみくじ用語の意味が知りたい...
-
初詣でおみくじを引きました。 ...
-
たとえば恋愛に関するAという願...
おすすめ情報