राउंड फंक्शन
रैंड फ़ंक्शन के लिए यादृच्छिक संख्या जनरेटर द्वारा उपयोग किए जाने वाले बीज मान को बदलने के लिए उपयोग किया जाता है।
सरल रैंड उदाहरण
| 123456 | उप Rnd_Example ()मंद यादृच्छिक मानयादृच्छिक करेंरैंडमवैल्यू = रैंडअंत उप |
रैंड सिंटैक्स
VBA संपादक में, आप Rnd फ़ंक्शन के लिए सिंटैक्स देखने के लिए "Rnd(" टाइप कर सकते हैं:
Rnd फ़ंक्शन में एक तर्क होता है:
संख्या: [वैकल्पिक] कोई भी मान्य अंकीय व्यंजक।
एक्सेल वीबीए राउंड फंक्शन के उदाहरण
1 और 10 के बीच यादृच्छिक पूर्णांक मान उत्पन्न करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं।
| 12345678 | उप Rnd_Example1 ()मंद rndValue सिंगल के रूप मेंयादृच्छिक करेंमैं = 1 से 20 . के लिएrndValue = Int((Rnd * 10) + 1)अगला मैंअंत उप |
यह कोड 1 और 10 के बीच 20 यादृच्छिक पूर्णांक मान उत्पन्न करेगा।
निचले बाउंड और ऊपरी बाउंड के बीच यादृच्छिक मान उत्पन्न करने के लिए, आप निम्न फ़ंक्शन का उपयोग कर सकते हैं।
| 123 | फंक्शन RndSpecial (सिंगल के रूप में अपरबाउंड, सिंगल के रूप में लोअरबाउंड) सिंगल के रूप मेंRndSpecial = (अपरबाउंड - लोअरबाउंड) * Rndअंत समारोह |
| 12345 | उप Rnd_Example2 ()मंद यादृच्छिकवैल्यू एकल के रूप मेंrandomValue = RndSpecial(5, 30)MsgBox रैंडमवैल्यूअंत उप |
यह 5 और 30 के बीच एक यादृच्छिक मान लौटाएगा।
