VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。
Function makeRndInt(minInt As Integer, maxInt As Integer) As Integer
'乱数ジェネレータを初期化
Randomize
'sInt~eIntまでの整数をランダム取得
makeRndInt = Int((maxInt - minInt + 1) * Rnd + minInt)
End Function
こちらは戻り値が必要ですので、functionプロシージャで対応しています。引数には取得する整数の「最小値」「最大値」の2つが設定されています。以下が引数の詳細になります。
構文 | makeRndInt(minInt, maxInt) | ||||
---|---|---|---|---|---|
引数名 | データ型 | 内容 | 値の事例 | 初期値 | 省略 |
minInt | Integer | 取得する整数の最小値 | 0 | × | |
maxInt | Integer | 取得する整数の最大値 | 100 | × |
「minInt」「maxInt」は必須項目です。「minInt」には取得する整数の最小値を設定します。「maxInt」には取得する整数の最大値を設定します。