07/07/29 23:51:52 0
>>480
>>477に便乗で悪いんだけど、
０～１１までの数字をランダムに、かつかぶらないように代入したい
て時に俺は
Dim RndNum As Long
Dim NumCnt As Integer
'抜き出す数字の個数
NumCnt = 3
Set Dic = CreateObject("Scripting.Dictionary")
RndNum = Int(Rnd * 12)
Dic.Add RndNum, RndNum
Do While Dic.Count < NumCnt
RndNum = Int(Rnd * 12)
If Not Dic.Exists(RndNum) Then
Dic.Add RndNum, RndNum
End If
Loop
みたいなやりかたするんだけどダメ？