/ / एक्सेल वीबीए में एक पैटर्न बनाएँ

एक्सेल वीबीए में एक पैटर्न बनाएँ

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस एक पैटर्न बनाता है.

परिस्थिति:

एक्सेल वीबीए में एक पैटर्न बनाएँ

अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:

1. सबसे पहले, हम टाइप इंटेजर के दो चर घोषित करते हैं। एक नाम मैं और एक नाम जे।

Dim i As Integer, j As Integer

2. दूसरा, हम अगली लूप के लिए दो जोड़ते हैं।

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. अगला, हम उस रेखा को जोड़ते हैं जो कोशिकाओं के पृष्ठभूमि रंग को हल्के भूरे रंग में बदल देता है।

Cells(i, j).Interior.ColorIndex = 15

नोट: ColorIndex संख्या 15 (हल्के भूरे रंग) के बजाय, आप किसी भी रंग इंडेक्स नंबर का उपयोग कर सकते हैं।

4. अगली लूप के लिए दो बंद करें।

    Next j
Next i

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

अभी तक परिणाम।

एक पैटर्न परिणाम इतनी दूर क्रेट करें

उदाहरण के लिए, i = 1 और j = 1, एक्सेल वीबीए के लिएi = 1 और j = 3 (चरण 2) के लिए रंग कक्ष (1,1), एक्सेल वीबीए रंग कक्ष (1,3), i = 1 और j = 5, एक्सेल वीबीए रंग कक्ष (1,5) के लिए, i = 3 (चरण 2) और जे = 1, एक्सेल वीबीए रंग कक्ष (3,1), आदि के लिए

6. हम लगभग वहाँ हैं। केवल एक चीज जो हमें करने की ज़रूरत है, वह कोशिकाओं को रंग देती है जो नीचे 1 पंक्ति से ऑफसेट होती हैं और 1 कॉलम पहले से ही रंगीन कोशिकाओं के दाईं ओर होती हैं। लूप पर निम्न कोड लाइन जोड़ें।

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

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

परिणाम:

एक पैटर्न परिणाम बनाएँ

यह भी पढ़ें: