Vba का उपयोग करके टेक्स्ट को केन्द्रित कैसे करें (उदाहरण के साथ)

आप Excel में विशिष्ट कक्षों में पाठ को क्रमशः क्षैतिज और लंबवत रूप से केन्द्रित करने के लिए VBA में क्षैतिज संरेखण और लंबवत संरेखण गुणों का उपयोग कर सकते हैं।

व्यवहार में इन गुणों का उपयोग करने के तीन सामान्य तरीके यहां दिए गए हैं:

विधि 1: वीबीए का उपयोग करके पाठ को क्षैतिज रूप से केन्द्रित करें

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

विधि 2: वीबीए का उपयोग करके पाठ को लंबवत रूप से केन्द्रित करें

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

विधि 3: वीबीए का उपयोग करके पाठ को क्षैतिज और लंबवत रूप से केन्द्रित करें

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

निम्नलिखित उदाहरण दिखाते हैं कि एक्सेल में निम्नलिखित डेटा सेट के साथ व्यवहार में प्रत्येक विधि का उपयोग कैसे करें:

उदाहरण 1: वीबीए का उपयोग करके पाठ को क्षैतिज रूप से केन्द्रित करें

हम A2:A11 श्रेणी में प्रत्येक सेल में टेक्स्ट को क्षैतिज रूप से केन्द्रित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

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

ध्यान दें कि A2:A11 श्रेणी में प्रत्येक सेल में पाठ क्षैतिज रूप से केंद्रित किया गया है।

उदाहरण 2: वीबीए का उपयोग करके पाठ को लंबवत रूप से केन्द्रित करें

हम A2:A11 श्रेणी में प्रत्येक सेल में टेक्स्ट को लंबवत रूप से केन्द्रित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

ध्यान दें कि A2:A11 श्रेणी में प्रत्येक कक्ष में पाठ लंबवत रूप से केन्द्रित किया गया है।

उदाहरण 3: वीबीए का उपयोग करके पाठ को क्षैतिज और लंबवत रूप से केन्द्रित करें

हम क्षैतिज और लंबवत रूप से A2:A11 श्रेणी में प्रत्येक सेल में टेक्स्ट को केन्द्रित करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter 
End Sub

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

ध्यान दें कि A2:A11 श्रेणी में प्रत्येक सेल में पाठ क्षैतिज और लंबवत रूप से केंद्रित किया गया है।

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

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

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