الوظيفة VBA: Rnd

وصف

ترجع الدالة VBA Rnd رقمًا عشوائيًا أقل من 1 وأكبر من أو يساوي 0.

بناء الجملة Rnd

Rnd

مثال VBA Rnd

بعض الأمثلة على القيم التي تُرجعها الدالة Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.1790262
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.734448
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.4870669
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.9100572
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.7860449
    MsgBox Rnd 'العوائد ، على سبيل المثال: 0.1607063
    
End Sub

قم دائمًا بإضافة عبارة Randomize إلى الإجراء أو الوظيفة قبل استخدام الدالة Rnd حتى لا تتكرر الأرقام العشوائية.

دعنا ننشئ عددًا صحيحًا عشوائيًا من 1 إلى 10 باستخدام دالة Rnd:

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

Sub RndExample2()
    
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 6
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 2
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 10
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 7
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 9
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 1
    MsgBox RandomNumber 'العوائد ، على سبيل المثال: 8
    
End Sub