乱数

質問

乱数を発生させる際に
Sub Sample()
Debug.Print Int((10 - 1 + 1) * Rnd + 1)
End Sub

で、１から１０までの乱数を発生できますが、
１から１０と言う連続した数字ではなく、
例えば10,13,18,43・・・
という規則性のない複数の数字からランダムに数字を発生させるにはどうすればいいでしょうか？

10,13,18,43の中から10を返したり、18を返したりする方法を教えてください。

回答No.2

NotFound404 · ベストアンサー

たとえば
Sub sample2()
Dim ad As Variant
ad = Array(10, 13, 18, 43)
Debug.Print ad(Int(Rnd * (UBound(ad) + 1)))
End Sub

お礼

できました！
ありがとうございました。

回答No.1

black2005

あらかじめ決められた複数の数字の中から１つを取り出す、ということですか？

お礼

説明不足ですいません！その通りです！