| |
教えて下さい<(__)>お願いします。
６〜１１の数字の中から、３つの数字をランダムにかつ
ダブリ無しで抽出し、セルのＡ列６行目〜８行目に
出力したいのですが、インデックスが有効範囲にないと出ました。
i=7なのが原因だと思うのですが、どうすれば良いでしょうか・・・
Sub ex_A()
Dim col_bef As Collection, col_aft As Collection
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, u As Integer
Dim key As Integer, i As Integer
a = 6 '母集団の頭番号
b = 11 '母集団の尾番号
c = 6 'セルの出力開始行
d = 8 'セル出力終了行
e = 1 'Excelの列
Set col_bef = New Collection
Set col_aft = New Collection
For i = a To b
col_bef.Add i
Next i
Do Until col_bef.Count = 0
key = Int(Rnd(1) * (col_bef.Count)) + 1
col_aft.Add col_bef(key)
col_bef.Remove key
Loop
For i = c To d
Cells(i, e) = col_aft(i)
Next i
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
