vba

vbaについて

F５からL20までのセルに、
ランダムにセルを選び、１～２０の20個の数字を
重複なしでランダムに表示させたいです。

省略できる所は省略した
簡潔なプログラム教えてほしいです・・・：：

No.1 ベストアンサー 回答者： watabe007 回答日時： 2012/05/19 10:22

どうぞ～

Sub Test()
　　Dim i As Long, 乱数 As Long
　　Dim v(1 To 112) As Boolean

　　Randomize
　　For i = 1 To 20
　　　　Do
　　　　　　乱数 = Int((Rnd * 112) + 1)
　　　　Loop While v(乱数)
　　　　v(乱数) = True
　　　　Range("F5:L20").Cells(乱数) = i
　　Next i
End Sub

この回答へのお礼

ありがとうございます！！

お礼日時：2012/05/19 11:15