एक्सेल वीबीए में संपूर्ण कॉलम के माध्यम से लूप
नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA उस पूरे पहले कॉलम के माध्यम से loops और सभी मानों को रंग देता है जो एक निश्चित मान से कम होते हैं।
अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइनें जोड़ें:
1. सबसे पहले, एक प्रकार का घोषित करें जिसे मैं प्रकार का लांग कहलाता हूं। हम यहां एक प्रकार के चर का उपयोग करते हैं क्योंकि लंबे चर के पूर्णांक की तुलना में लंबी क्षमता होती है।
2. अगला, कोड लाइन जोड़ें जो कॉलम ए में सभी कोशिकाओं के फ़ॉन्ट रंग को काला में बदल देती है।
3. लूप जोड़ें।
Next i
ध्यान दें: Excel 2003 में वर्कशीट में 65,536 पंक्तियां और Excel 2007 या बाद में 1,048,576 पंक्तियां हो सकती हैं। कोई फर्क नहीं पड़ता कि आप किस संस्करण का उपयोग कर रहे हैं, ऊपर पंक्ति कोड सभी पंक्तियों के माध्यम से loops (डाउनलोड करने योग्य एक्सेल फ़ाइल एक्सेल 97-2003 प्रारूप में है)।
4. अगला, हम सभी मानों को रंगते हैं जो सेल डी 2 में दर्ज मान से कम हैं। खाली कोशिकाओं को नजरअंदाज कर दिया जाता है। लूप को निम्न कोड लाइन जोड़ें।
Cells(i, 1).Font.Color = vbRed
End If
परिणाम जब आप शीट पर कमांड बटन पर क्लिक करते हैं (इसमें कुछ समय लग सकता है):
