Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32757 / 76734

←次へ　｜　前へ→


	【49211】インデックスの有効範囲

マイス - 07/5/27(日) 21:34 -


	引用なし

	パスワード

教えて下さい<(__)>お願いします。
６～１１の数字の中から、３つの数字をランダムにかつ
ダブリ無しで抽出し、セルのＡ列６行目～８行目に
出力したいのですが、インデックスが有効範囲にないと出ました。
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

2 hits

▼

【49211】インデックスの有効範囲 マイス 07/5/27(日) 21:34

≪