DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kod geliştirilebilir.Sub toplma()
x = 250
ReDim tablo(1 To 5, 1 To 1)
For i = 1 To 5
tablo(i, 1) = 50
Next
10
a = WorksheetFunction.RandBetween(1, 5)
If tablo(a, 1) = 0 Then GoTo 10
tablo(a, 1) = tablo(a, 1) - 1
x = x - 1
If x = 50 Then
Range("A1").Resize(5, 1) = tablo
Exit Sub
End If
GoTo 10
End Sub
Artırma yöntemi ile de ulaşılabilir.Sub toplma2()
ReDim tablo(1 To 5, 1 To 1)
For i = 1 To 5
tablo(i, 1) = 0
Next
10
a = WorksheetFunction.RandBetween(1, 5)
tablo(a, 1) = tablo(a, 1) + 1
x = x + 1
If x = 50 Then
Range("A1").Resize(5, 1) = tablo
Exit Sub
End If
GoTo 10
End Sub