✅ VBA Rnd İşlevi

İçindekiler

Rnd Fonksiyonu

Rastgele sayı üreteci tarafından Rnd işlevi için kullanılan tohum değerini değiştirmek için kullanılır.

123456

Alt Rnd_Örnek()Rastgele Değeri karartrastgelerastgeleDeğer = RndAlt Bitiş

VBA Düzenleyicide, Rnd İşlevinin sözdizimini görmek için “Rnd(” yazabilirsiniz:

Rnd işlevi bir argüman içerir:

Sayı: [İsteğe bağlı] Herhangi bir geçerli sayısal ifade.

1 ile 10 arasında rastgele bir tamsayı değeri oluşturmak için aşağıdaki kodu kullanabilirsiniz.

12345678

Alt Rnd_Örnek1()Dim rndValue As Singlerastgelei = 1 ila 20 içinrndValue = Int((Rnd * 10) + 1)sonraki benAlt Bitiş

Bu kod, 1 ile 10 arasında 20 rastgele tamsayı değeri üretecektir.

Bir alt sınır ile bir üst sınır arasında rastgele değer üretmek için aşağıdaki işlevi kullanabilirsiniz.

123	İşlev RndSpecial(üst sınır As Single, alt sınır As Single) As SingleRndSpecial = (üst sınır - alt sınır) * RndBitiş İşlevi

12345

Alt Rnd_Örnek2()RandomValue As SinglerandomValue = RndSpecial(5, 30)MsgBox randomValueAlt Bitiş

Bu, 5 ile 30 arasında rastgele bir değer döndürür.