Vba: rastgele sayılar oluşturmak için randbetween nasıl kullanılır?

İki belirli değer arasında rastgele bir tamsayı oluşturmak için VBA’da RandBetween yöntemini kullanabilirsiniz.

Bu yöntemi pratikte kullanmanın iki yaygın yolu şunlardır:

Yöntem 1: Rastgele Bir Tamsayı Oluşturmak için RandBetween’i Kullanma

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Bu özel makro, A1 hücresinde 1 ile 100 arasında rastgele bir tamsayı üretecektir.

Yöntem 2: Birden Çok Rastgele Tam Sayı Oluşturmak için RandBetween’i Kullanma

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Bu özel makro, A1:A10 aralığındaki her hücre için 1 ile 100 arasında rastgele bir tam sayı üretecektir.

Aşağıdaki örnekler bu yöntemlerin her birinin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: Rastgele bir tamsayı oluşturmak için RandBetween’i kullanın

1 ile 100 arasında rastgele bir sayı oluşturmak ve sonucu Excel’deki mevcut sayfamızın A1 hücresine yerleştirmek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1 hücresinin 36 değerini içerdiğine dikkat edin.

Bu makroyu her çalıştırdığımızda 1 ile 100 arasında farklı bir tam sayı değerinin üretilebileceğini unutmayın.

Örnek 2: Birden fazla rastgele tamsayı oluşturmak için RandBetween’i kullanın

Bunun yerine A1:A10 aralığındaki her hücre için 1 ile 100 arasında rastgele bir tamsayı oluşturmak istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1:A10 aralığındaki her hücrenin 1 ile 100 arasında rastgele bir tam sayı içerdiğini unutmayın.

Not : RandBetween VBA yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?