वीबीए सेल फ़ॉन्ट
VBA में, आप रेंज ऑब्जेक्ट के VBA फ़ॉन्ट गुण का उपयोग करके फ़ॉन्ट गुण बदल सकते हैं। VBA संपादक में निम्न कोड टाइप करें और आपको उपलब्ध सभी विकल्पों की एक सूची दिखाई देगी:
| 1 | रेंज ("ए 1)। फ़ॉन्ट। |
हम नीचे कुछ सबसे सामान्य गुणों पर चर्चा करेंगे।
फ़ॉन्ट रंग बदलें
फ़ॉन्ट रंग सेट करने के कुछ तरीके हैं।
वीबीरंग
रंग सेट करने का सबसे आसान तरीका vbColors है:
| 1 | रेंज ("ए 1")। फ़ॉन्ट। रंग = vbRed |
हालाँकि, आप उपलब्ध रंगों के मामले में बहुत सीमित हैं। ये एकमात्र विकल्प उपलब्ध हैं:
रंग - आरजीबी
आप RGB (रेड ग्रीन ब्लू) पर आधारित रंग भी सेट कर सकते हैं। यहां आप लाल, हरे और नीले रंग के लिए 0-255 के बीच रंग मान दर्ज करते हैं। इन तीन रंगों से आप कोई भी रंग बना सकते हैं:
| 1 | रेंज ("ए 1")। फ़ॉन्ट। रंग = आरजीबी (255,255,0) |
रंग सूचकांक
वीबीए/एक्सेल में कलरइंडेक्स प्रॉपर्टी भी है। यह आपको पूर्व-निर्मित रंग उपलब्ध कराता है। हालांकि, उन्हें इंडेक्स नंबर के रूप में संग्रहीत किया जाता है, जिससे यह जानना मुश्किल हो जाता है कि कौन सा रंग है:
| 1 | रेंज ("a1")। Font.ColorIndex =… |
हमने VBA कलर कोड के बारे में एक लेख लिखा, जिसमें VBA ColorIndex कोड की सूची भी शामिल है। वहां आप रंगों के बारे में अधिक जान सकते हैं।
फ़ॉन्ट आकार
यह फ़ॉन्ट आकार को 12 पर सेट करेगा:
| 1 | रेंज ("ए 1")। फ़ॉन्ट। आकार = 12 |
या 16 करने के लिए:
| 1 | रेंज ("ए 1")। फ़ॉन्ट। आकार = 16 |
बोल्ड फ़ॉन्ट
सेल फ़ॉन्ट को बोल्ड पर सेट करना आसान है:
| 1 | रेंज ("ए 1")। फ़ॉन्ट। बोल्ड = ट्रू |
या बोल्ड स्वरूपण साफ़ करने के लिए:
| 1 | रेंज ("A1")। Font.Bold = False |
फ़ॉन्ट का नाम
फ़ॉन्ट नाम बदलने के लिए का उपयोग करें नाम संपत्ति:
| 1 | रेंज ("A1")। Font.Name = "कैलिबर" |
| 1 | रेंज ("ए 1")। फ़ॉन्ट। नाम = "एरियल" |
| 1 | रेंज ("A1")। Font.Name = "टाइम्स न्यू रोमन" |
सेल स्टाइल
एक्सेल सेल "स्टाइल्स" बनाने की क्षमता प्रदान करता है। शैलियों में पाया जा सकता है होम रिबन > शैलियाँ:
शैलियाँ आपको अपने वांछित सेल स्वरूपण को सहेजने की अनुमति देती हैं। फिर उस शैली को एक नए सेल में असाइन करें और सभी सेल स्वरूपण तुरंत लागू हो जाते हैं। फ़ॉन्ट आकार, सेल रंग, सेल सुरक्षा स्थिति, और सेल फ़ॉर्मेटिंग मेनू से उपलब्ध कुछ भी शामिल है:
व्यक्तिगत रूप से, जिन मॉडलों पर मैं काम करता हूं, उनमें से कई के लिए, मैं आमतौर पर एक "इनपुट" सेल शैली बनाता हूं:
| 1 | रेंज ("ए 1")। शैली = "इनपुट" |
शैलियों का उपयोग करके आप आसानी से अपने कार्यपत्रक पर सेल प्रकारों की पहचान भी कर सकते हैं। नीचे दिया गया उदाहरण वर्कशीट में सभी सेल के माध्यम से लूप करेगा और स्टाइल = "इनपुट" के साथ किसी भी सेल को "इनपुट लॉक" में बदल देगा:
| 1234567 | रेंज के रूप में मंद सेलActiveSheet.Cells में प्रत्येक सेल के लिएअगर Cell.Style = "इनपुट" तोसेल.स्टाइल = "इनपुट लॉक"अगर अंतअगली सेल |
