Vba का उपयोग करके फ़ॉन्ट आकार कैसे सेट करें (उदाहरण के साथ)

आप Excel में विशिष्ट कक्षों का फ़ॉन्ट आकार प्राप्त करने और सेट करने के लिए VBA में फ़ॉन्ट.साइज़ प्रॉपर्टी का उपयोग कर सकते हैं।

उदाहरण के लिए, आप सेल A1 के वर्तमान फ़ॉन्ट आकार को प्रदर्शित करने वाला एक संदेश बॉक्स बनाने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं:

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

या आप सेल A1 का फ़ॉन्ट आकार 20 पर सेट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetFontSize()
Range(“ A1 ”). Font.Size = 20
End Sub

या आप A1:C1 श्रेणी में प्रत्येक सेल में फ़ॉन्ट आकार को 20 के बराबर बनाने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि Excel में निम्नलिखित डेटा सेट के साथ VBA का उपयोग करके फ़ॉन्ट आकार कैसे प्राप्त करें और सेट करें:

उदाहरण 1: वीबीए का उपयोग करके फ़ॉन्ट आकार प्राप्त करें

हम एक संदेश बॉक्स बनाने के लिए निम्नलिखित मैक्रो बना सकते हैं जो सेल A1 का वर्तमान फ़ॉन्ट आकार प्रदर्शित करता है:

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

संदेश बॉक्स हमें बताता है कि सेल A1 का फ़ॉन्ट आकार वर्तमान में 11 है।

यह Excel में डिफ़ॉल्ट फ़ॉन्ट आकार है.

उदाहरण 2: वीबीए का उपयोग करके किसी विशिष्ट सेल का फ़ॉन्ट आकार सेट करें

हम सेल A1 का फ़ॉन्ट आकार 20 पर सेट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetFontSize()
Range(" A1 ").Font.Size = 20
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

हम देख सकते हैं कि सेल A1 का फ़ॉन्ट आकार बदलकर 20 कर दिया गया है जबकि अन्य सभी सेल का फ़ॉन्ट आकार अपरिवर्तित रहा है।

उदाहरण 3: VBA का उपयोग करके कक्षों की श्रेणी का फ़ॉन्ट आकार सेट करें

हम प्रत्येक सेल का फ़ॉन्ट आकार A1:C1 से 20 तक सेट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

हम देख सकते हैं कि A1:C1 रेंज में प्रत्येक सेल का फ़ॉन्ट आकार 20 में बदल दिया गया है जबकि अन्य सभी सेल का फ़ॉन्ट आकार अपरिवर्तित रहा है।

नोट : आप VBA फ़ॉन्ट.आकार संपत्ति के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: फ़ॉन्ट का रंग कैसे बदलें
वीबीए: फ़ॉन्ट को बोल्ड कैसे करें
वीबीए: स्ट्रिंग में वर्णों को कैसे बदलें