乱数を利用する　 次の文書

Dim 結果 As String
Sub 乱数()
Randomize
i = 1
max値 = Cells(2, 2)
結果 = ""
Sheets("sheet1").Select
Do Until i > max値
idx = Int((35 * Rnd) + 2)
結果 = 結果 & Cells(idx, 1)
i = i + 1
Loop
Cells(2, 3) = 結果
End Sub

　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)