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


VBA का उपयोग करके टैब वर्ण निर्दिष्ट करने के दो तरीके हैं:

  • vbटैब
  • सीएचआर(9)

ये दो स्थिरांक VBA में एक टैब वर्ण का प्रतिनिधित्व करते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इनमें से प्रत्येक स्थिरांक का उपयोग कैसे करें।

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

मान लीजिए कि हमारे पास Excel में प्रथम और अंतिम नामों की निम्नलिखित सूची है:

मान लीजिए कि हम एक संदेश बॉक्स बनाने के लिए वीबीए का उपयोग करना चाहते हैं जिसमें इनमें से प्रत्येक प्रथम और अंतिम नाम को उनके बीच एक टैब के साथ प्रदर्शित किया जाए।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubUseTab ()
    
Dim i As Integer
Dim AllNames As String

For i = 2 To 11
AllNames = AllNames & Range("A" & i).Value & vbTab & Range("B" & i).Value & vbNewLine
Next i

MsgBox AllNames
    
End Sub

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

VBA vbTab वर्ण का उपयोग करता है

ध्यान दें कि हमने प्रत्येक पंक्ति में पहले और अंतिम नाम को एक टैब के साथ जोड़ने के लिए vbTab का उपयोग किया था।

फिर हमने संदेश बॉक्स में प्रत्येक नए नाम को एक नई पंक्ति में जोड़ने के लिए vbNewLine स्थिरांक का उपयोग किया।

यदि हम चाहते, तो हम टैब वर्ण निर्दिष्ट करने के लिए chr(9) का भी उपयोग कर सकते थे:

 SubUseTab ()
    
Dim i As Integer
Dim AllNames As String

For i = 2 To 11
AllNames = AllNames & Range("A" & i).Value & chr(9) & Range("B" & i).Value & vbNewLine
Next i

MsgBox AllNames
    
End Sub

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

VBA vbTab वर्ण का उपयोग करता है

ध्यान दें कि vbTab और chr(9) दोनों समान परिणाम देते हैं।

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

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

वीबीए में स्ट्रिंग को इंट में कैसे बदलें
वीबीए में एक स्ट्रिंग को डबल में कैसे बदलें
कैसे जांचें कि स्ट्रिंग में VBA में कोई अन्य स्ट्रिंग है या नहीं

एक टिप्पणी जोड़ने

आपका ईमेल पता प्रकाशित नहीं किया जाएगा. आवश्यक फ़ील्ड चिह्नित हैं *