वीबीए फंक्शन - रैंडम वैल्यू के साथ एक रेंज को पॉप्युलेट करना - वीबीए कोड उदाहरण

यादृच्छिक मूल्यों के साथ कोशिकाओं को आबाद करें

निम्नलिखित कोड 0 और 1000 के बीच एक यादृच्छिक संख्या के साथ दी गई श्रेणी को पॉप्युलेट करेगा:

उप Randomise_Range(Cell_Range As Range) 'रेंज डिम सेल में प्रत्येक सेल को रैंडमाइज करेगा' स्क्रीन अलर्ट एप्लिकेशन को बंद करें। स्क्रीन अपडेटिंग = सेल_रेंज सेल में प्रत्येक सेल के लिए गलत। वैल्यू = राउंड * 1000 नेक्स्ट सेल एप्लीकेशन। स्क्रीनअपडेटिंग = ट्रू एंड सब

कोड "Application.ScreenUpdating = FALSE" और "Application.ScreenUpdating = TRUE" स्क्रीन अलर्ट को बंद करने और चालू करने के लिए काम करते हैं - कोड को चलाने के लिए बहुत तेज बनाते हैं।

इसे एक क्लिक इवेंट के माध्यम से सेट किया जा सकता है, जिसमें मुख्य रूटीन सीमा निर्दिष्ट करता है:

निजी उप कमांडबटन 1_क्लिक () Randomise_Range (शीट्स ("शीट 3")। रेंज ("ए 1: टी 8000")) एंड सब

तो इस मामले में, शीट 3 पर कक्ष A1:T8000 यादृच्छिक संख्याओं से भरे हुए हैं - एक बार कमांड बटन 1 क्लिक करने के बाद।

यहां .XLSM फ़ाइल डाउनलोड करें