/ / एक्सेल वीबीए में यादृच्छिक रूप से डेटा सॉर्ट करें

एक्सेल वीबीए में यादृच्छिक रूप से सॉर्ट डेटा

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस यादृच्छिक रूप से डेटा टाइप करता है (इस उदाहरण में यादृच्छिक रूप से नामों का प्रकार है)।

परिस्थिति:

एक्सेल वीबीए में यादृच्छिक रूप से सॉर्ट डेटा

1. सबसे पहले, हम चार चर घोषित करते हैं। एक स्ट्रिंग प्रकार स्ट्रिंग जिसे हम टेम्पपस्ट्रिंग कहते हैं, एक इंटेजर प्रकार का इंटेजर जिसे हम टेम्पपइंटर कहते हैं, एक प्रकार का इंटीजर जिसे मैं कॉल करता हूं, और एक इंटेजर प्रकार इंटीजर जिसे हम जे कहते हैं।

Dim tempString As String, tempInteger As Integer, i As Integer, j As Integer

2. हम कॉलम बी (प्रत्येक नाम के लिए एक) में 5 यादृच्छिक संख्याएं लिखते हैं। हम इसके लिए वर्कशीट फ़ंक्शन RandBetween का उपयोग करते हैं।

For i = 1 To 5
    Cells(i, 2).Value = WorksheetFunction.RandBetween(0, 1000)
Next i

परिणाम अब तक:

अभी तक परिणाम

हम नामों को क्रमबद्ध करने के लिए प्रत्येक नाम के बगल में संख्याओं का उपयोग करेंगे। पहले सबसे कम संख्या वाला नाम, दूसरा सबसे कम नंबर वाला दूसरा नाम, दूसरा, आदि।

3. हम एक डबल लूप शुरू करते हैं।

For i = 1 To 5
    For j = i + 1 To 5

4. निम्नलिखित कोड लाइन जोड़ें:

If Cells(j, 2).Value < Cells(i, 2).Value Then

उदाहरण: i = 1 और j = 2 के लिए, वेंडी और रिचर्ड की तुलना की जाती है। क्योंकि रिचर्ड की संख्या कम है, हम वेंडी और रिचर्ड को स्वैप करते हैं। रिचर्ड अब पहली स्थिति में है। I = 1 और j = 3 के लिए, रिचर्ड और जोओस्ट की तुलना की जाती है। जोओस्ट की संख्या अधिक है इसलिए कुछ भी नहीं होता है। इस तरह, एक्सेल वीबीए को पहली स्थिति में सबसे कम संख्या वाला नाम मिलता है। I = 2 के लिए, एक्सेल वीबीए को दूसरे स्थान पर दूसरी सबसे कम संख्या के साथ नाम मिलता है।

5. यदि सही है, तो हम नाम बदलते हैं।

tempString = Cells(i, 1).Value
Cells(i, 1).Value = Cells(j, 1).Value
Cells(j, 1).Value = tempString

6. और हम संख्याओं को स्वैप करते हैं।

tempInteger = Cells(i, 2).Value
Cells(i, 2).Value = Cells(j, 2).Value
Cells(j, 2).Value = tempInteger

7. अगर कथन को बंद करना न भूलें।

End If

8. दो loops बंद करने के लिए मत भूलना।

    Next j
Next i

9. कार्यक्रम का परीक्षण करें।

परिणाम:

यादृच्छिक रूप से डेटा परिणाम सॉर्ट करें

ध्यान दें: आप एक पंक्ति जोड़ सकते हैं जो स्तंभ बी में संख्याओं को हटा देता है। यह प्रत्येक नाम की संख्या को सरणी में रखने के लिए भी अच्छा है, इसलिए आपके वर्कशीट पर कोई संख्या नहीं रखी गई है। हालांकि, चित्रकारी उद्देश्य के लिए हमने " शीट पर मूल्य।

यह भी पढ़ें: