ランダムな整数を発生

ランダムな整数を発生させます。

'---------------------------------------------------------------------------------------------------
'【処 理 名】乱数発生
'【処理概要】整数の乱数を発生させる
'【引    数】[I]ByVal min As Integer  最小値
'            [I]ByVal max As Integer  最大値
'【返 却 値】ランダムな整数
'---------------------------------------------------------------------------------------------------
Public Function randomeInt(ByVal min As Integer, ByVal max As Integer) As Integer
    Randomize
    'Int((最大値 - 最小値 + 1）＊ Rnd + 最小値)
    randomeInt = Int((max - min + 1) * Rnd + min)
End Function

配列の要素に使えば、文字列をランダムに選択することもできます。

Sub test()
    Dim i As Integer
    Dim arr() As Variant
    
    arr = Array("かぼちゃ", "きゃべつ", "レタス", "大根")
    For i = 0 To 10
        'Debug.Print randomeInt(1, 10)
        Debug.Print arr(randomeInt(LBound(arr), UBound(arr)))
    Next
End Sub