Rastgele sayı üretme 1

Bu kod excel kod parçacığı "B1" hücresine 0 ile 100 arasında rastgele tamsayı atar.


Sub rastgele()
    Dim sayi As Integer
    Randomize
    sayi = Int((100 * Rnd) + 1)
    Range("B1") = sayi
End Sub