एक्सेल वीबीए में संभावित फुटबॉल मैच

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो सभी का प्रिंट पूर्वावलोकन दिखाता है संभव फुटबॉल मैच टीमों की एक सूची से।

परिस्थिति:

1. सबसे पहले, हम एक रेंज ऑब्जेक्ट और चार चर घोषित करते हैं। हम रेंज ऑब्जेक्ट आरएनजी कहते हैं। एक स्ट्रिंग वेरिएबल जिसे हम मिलान नाम कहते हैं, और तीन इंटीजर वैरिएबल जिन्हें हम काउंटर, आई और जे कहते हैं।

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

2. हम टीम के नामों के साथ आरएनजी शुरू करते हैं। हम CurrentRegion का उपयोग करते हैं क्योंकि हम पहले से ही सीमा की सटीक सीमाओं को नहीं जानते हैं (हम चाहते हैं कि यह प्रोग्राम 3 टीमों के लिए काम करे लेकिन 12 टीमों के लिए भी)। हम मूल्य 0 के साथ काउंटर प्रारंभ करते हैं।

Set rng = Range("A1").CurrentRegion
counter = 0

3. हम कॉलम सी के सभी संभावित फुटबॉल मैचों को लिखते हैं। सबसे पहले, हम कॉलम सी खाली करते हैं।

Worksheets(1).Columns(3) = ""

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

For i = 1 To rng.Count
For j = i + 1 To rng.Count

5. हम परिवर्तनीय मिलान नाम के लिए एक मिलान नाम लिखते हैं।

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

उदाहरण के लिए, i = 1 और j = 2 के लिए, एक्सेल वीबीए मैच नाम किकर्स बनाम निशानेबाजों को लिखता है। I = 1 और j = 3 के लिए, एक्सेल वीबीए मैच नाम किकर्स बनाम लिटिल दिग्गजों आदि लिखता है।

6. हम स्तंभ सी को मिलाननाम लिखते हैं।

Cells(counter + 1, 3).Value = matchname

7. काउंटर कॉलम सी पर लिखे गए मिलान नामों की संख्या का ट्रैक रखता है। एक्सेल वीबीए वृद्धि 1 बार जब यह कॉलम सी के लिए एक मिलान नाम लिखता है तो इसे काउंटर सी प्राप्त करने के लिए, निम्न कोड पंक्ति जोड़ें:

counter = counter + 1

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

Next j
Next i

9. हम सभी संभावित फुटबॉल मैचों का एक प्रिंट पूर्वावलोकन दिखाते हैं।

ActiveSheet.Columns(3).PrintPreview

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

परिणाम का हिस्सा: