İşlev VBA: Rnd

Tanım

VBA Rnd işlevi, 1'den küçük ve 0'dan büyük veya ona eşit rastgele bir sayı döndürür.

Sözdizimi Rnd

Rnd

Örnek VBA Rnd

Rnd işlevi tarafından döndürülen bazı değer örnekleri:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Örneğin şunu döndürür: 0,1790262
    MsgBox Rnd 'Örneğin şunu döndürür: 0,734448
    MsgBox Rnd 'Örneğin şunu döndürür: 0,4870669
    MsgBox Rnd 'Örneğin şunu döndürür: 0,9100572
    MsgBox Rnd 'Örneğin şunu döndürür: 0,7860449
    MsgBox Rnd 'Örneğin şunu döndürür: 0,1607063
    
End Sub

Rastgele sayıların tekrarlanmaması için Rnd işlevini kullanmadan önce daima prosedürünüze veya işlevinize bir Randomize deyimi ekleyin.

Rnd işlevini kullanarak 1'den 10'a kadar rastgele bir tamsayı üretelim:

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber 'Örneğin şunu döndürür: 6
    MsgBox RandomNumber 'Örneğin şunu döndürür: 2
    MsgBox RandomNumber 'Örneğin şunu döndürür: 10
    MsgBox RandomNumber 'Örneğin şunu döndürür: 7
    MsgBox RandomNumber 'Örneğin şunu döndürür: 9
    MsgBox RandomNumber 'Örneğin şunu döndürür: 1
    MsgBox RandomNumber 'Örneğin şunu döndürür: 8
    
End Sub