- ベストアンサー
乱数
乱数を発生させる際に Sub Sample() Debug.Print Int((10 - 1 + 1) * Rnd + 1) End Sub で、１から１０までの乱数を発生できますが、 １から１０と言う連続した数字ではなく、 例えば10,13,18,43・・・ という規則性のない複数の数字からランダムに数字を発生させるにはどうすればいいでしょうか？ 10,13,18,43の中から10を返したり、18を返したりする方法を教えてください。
- VNRMHRWE
- お礼率100% (22/22)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
たとえば Sub sample2() Dim ad As Variant ad = Array(10, 13, 18, 43) Debug.Print ad(Int(Rnd * (UBound(ad) + 1))) End Sub
その他の回答 (1)
- black2005
- ベストアンサー率32% (1968/6046)
あらかじめ決められた複数の数字の中から１つを取り出す、ということですか？
お礼
説明不足ですいません！その通りです！
関連するQ&A
- Randomizeがある時とない時の違いがわからな
ｖｂａです Sub Sample1() Randomize Debug.Print Int((6 - 1 + 1) * Rnd + 1) End Sub Sub Sample2() Debug.Print Int((6 - 1 + 1) * Rnd + 1) End Sub の違いがわからないのですが、 Randomizeはどのような役割をなしてるのでしょうか？ Sample1の結果は、 5 3 3 4 3 1 6 5 3 4 で、 Sample2の結果は、 4 5 4 3 4 1 4 1 6 1 5 5 でした。
- ベストアンサー
- オフィス系ソフト
- 乱数の発生 Randomizeを入れた方が良いのか
ＶＢＡについて教えてください。 --------------------------- Sub Randomizeを入れた場合() Dim intMax As Integer Dim intMin As Integer Randomize intMin = 1 intMax = 10 Debug.Print Int((intMax - intMin + 1) * Rnd + intMin) End Sub --------------------------- Sub Randomizeを入れていない場合() Dim intMax As Integer Dim intMin As Integer intMin = 1 intMax = 10 Debug.Print Int((intMax - intMin + 1) * Rnd + intMin) End Sub --------------------------- 上記二つのマクロを実行しても 同じような結果が得られる気がするのですがRandomizeは必要なのでしょうか？ 一つのサブプロシージャーの中で1回しか乱数を発生させないのなら Randomizeを使って乱数を初期化する必要はないのですか？
- ベストアンサー
- Visual Basic
- VBA AからZで乱数を発生させたい
Sub AからZで乱数を発生させる() Dim 最大値 As Integer Dim 最小値 As Integer Randomize 最小値 = 1 最大値 = 10 Debug.Print Int((最大値 - 最小値 + 1) * Rnd + 最小値) End Sub --------------------------------------------------------- これを実行すると、１から１０の間で乱数を発生させられるのですが、 ＡからＺの間で乱数を発生させたい場合は、 このコードをどのようにすればいいでしょうか？ アドバイスよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- 乱数 IFステートメント
Debug.Print Int((11 - 8 + 1) * Rnd + 8) 「これって８～１１までの乱数を発生させますよ」 という意味であってますか？ そして、 Sub a() Dim 文字数 As Long 文字数 = Int((11 - 8 + 1) * Rnd + 8) If 8 >= 文字数 <= 10 Then MsgBox 文字数 & "は、8～10の間です" End If End Sub を実行すると、１１でも MsgBox 文字数 & "は、8～10の間です" が表示されてしまいます。 「８～１０の間なら」メッセージボックスを表示するには、 If 8 >= 文字数 <= 10 Then の部分をどうすればいいですか？
- ベストアンサー
- オフィス系ソフト
- 乱数がうまくランダムされない
コマンドボタンを押すごとに画像をランダムに表示したいのですが 決まった順番で表示されてしまいます。 （画像はMy Picturesに440個入っています。） Sub ボタン_Click() Dim i As Long '画像をランダムに表示 i = Int((440 - 1 + 1) * Rnd + 1) Forms("フォーム1").ボタン.Picture = "D:\My Documents\My Pictures\画像" & i & ".ico" Debug.Print i End Sub コマンドボタンを何回かクリックし 上記のコート゛を実行してイミディエイトウインドウで確認すると 311 235 255 128 133 341 7 335 359 となります。 何回やってもこの順番です。 なんの規則かわかりません。 確かにランダムなのですが 本当にランダムにするのはどうすればいいでしょうか？ 「i = Int((440 - 1 + 1) * Rnd + 1)」 ここに原因があると思うのですが どうすればいいでしょう？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ｖｂａの意味
vbaで Sub test() MsgBox Int((13 - 10 + 1) * Rnd + 10) End Sub これは、どういう意味でしょうか？ 10-13までの数字の中で乱数を発生させるということでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- １万から１００万の乱数を発生させるには？
■VBのバージョン : VB6 お世話になります。 斎藤と申します。 1万から１００万までの乱数を発生させたいのですが e = CInt(Int((100000 - 10000 + 1) * Rnd() + 10000)) 公式に書いてあったサンプルを用いたこのコードだとオーバーバッファしてしまい 途方にくれています。 お知恵を拝借したいと存じます。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- 乱数で・・・
ラベル１０枚に１～１０までを乱数を入れたいのです ただしダブらない どうすればいいのでしょうか?？ 自分で考えたのですがバグがあります ※コマンドをクリック ※クローンは用意済み Private Sub Command1_Click() Dim a(0 To 9) For i = 0 To 9 a(i) = Int(Rnd * 10)+1 For b = 0 To 9 If a(i) = a(b) Then If i <> b Then a(i) = Int(Rnd * 10) + 1 End If End If Next b Next i For c = 0 To 9 Label1(c).Caption = a(c) Next c End Sub バグの原因はなんとなくわかるのですがどうすればいいのか分かりません 素人ですいません。
- ベストアンサー
- Visual Basic
- VBAの乱数について質問
乱数 x (0<x<1)を0.1刻みで発生させたいんですが うまくいきません。 プログラム例 Sub 一様乱数() Dim bin#(10) n = 1000 For m = 1 To 10 bin#(m) = 0 Next m For J = 1 To n x = Rnd(1) ix = Int(10 * Rnd(1)) bin#(ix) = bin#(ix) + 1 Next J Cells(4, 1) = " I" Cells(4, 2) = "Bin#(I)度数分布" For I = 0 To 10 Cells(I + 5, 1).Value = I Cells(I + 5, 2).Value = bin#(I) Next I End Sub ここで、9行目ix = Int(10 * Rnd(1))で0.1刻みになり 15行目のFor I = 0 To 10を0 to 1に変えればできると思ったんですが できませんでした。 どこが問題なのかヒントでもいいので教えてください。
- 締切済み
- Visual Basic
- 乱数を扱いたい
Active Basicでプログラムの練習をしています。 今回、乱数を扱いたいのですが、どうしても分かりません。 例えば、1～100までの整数を用意して、その中から数字をランダムで1つ取り出すっと言ったことをしたいのですが・・・・ ((例：58 など)) Rnd( )と言う関数があるようなのですが、いまいち使い方がよく分かりません。 他の関数を使用するのかも分かりません。 すみませんが、どなたか知っていましたら、ご教授願います。
- ベストアンサー
- その他（プログラミング・開発）
お礼
できました！ ありがとうございました。