VBA मैक्रो को कार्यान्वित करना एक्सेल में किसी भी ऑपरेशन को चलाने के लिए सबसे प्रभावी, तेज और सुरक्षित तरीका है। इस लेख में, हम आपको दिखाएंगे कि एक्सेल में कॉलम नंबर को अक्षर में कैसे बदलें VBA . का उपयोग करना ।
कार्यपुस्तिका डाउनलोड करें
आप यहां से निःशुल्क अभ्यास एक्सेल वर्कबुक डाउनलोड कर सकते हैं।
एक्सेल में कॉलम नंबर को अक्षर में बदलने के लिए VBA को लागू करने के 3 तरीके
इस खंड में, आप सीखेंगे कि एक विशिष्ट कॉलम संख्या को अक्षर में कैसे बदलें , उपयोगकर्ता-इनपुट स्तंभ संख्या से अक्षर और कॉलम नंबर को अक्षर में बदलने के लिए एक UDF (यूजर-डिफाइंड फंक्शन) बनाएं एक्सेल में VBA . के साथ ।
1. एक्सेल में एक विशिष्ट कॉलम नंबर को अक्षर में बदलने के लिए VBA
a . को रूपांतरित करने के चरण एक अक्षर की विशिष्ट कॉलम संख्या एक्सेल में VBA . के साथ नीचे दिए गए हैं।
चरण:
- प्रेस Alt + F11 अपने कीबोर्ड पर या टैब पर जाएं डेवलपर -> विजुअल बेसिक विजुअल बेसिक संपादक खोलने के लिए ।
- पॉप-अप कोड विंडो में, मेनू बार से, सम्मिलित करें -> मॉड्यूल क्लिक करें ।
- निम्न कोड को कॉपी करें और कोड विंडो में पेस्ट करें।
Sub ColNumToLetter()
Dim ColNumber As Long
Dim ColLetter As String
'Input Column Number
ColNumber = 200
'Convert To Column Letter
ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
'Display Result
MsgBox "Column " & ColNumber & " = Column " & ColLetter
End Subआपका कोड अब चलने के लिए तैयार है।
यह कोड कॉलम संख्या 200 . को रूपांतरित कर देगा इसके संबद्ध अक्षर के पते . पर ।
- दबाएं F5 अपने कीबोर्ड पर या मेनू बार से चलाएं -> उप/उपयोगकर्ता प्रपत्र चलाएं . चुनें . आप केवल छोटे प्ले आइकन . पर भी क्लिक कर सकते हैं उप-मेनू बार में मैक्रो चलाने के लिए।
आपको पत्र का पता प्रदर्शित करने वाला एक Microsoft Excel पॉप-अप संदेश बॉक्स मिलेगा (GR ) स्तंभ संख्या का (उदा. 200 ) जिसे आप कोड के अंदर इनपुट करते हैं।
और पढ़ें: एक्सेल में कॉलम नंबर के आधार पर रेंज का उपयोग करने के लिए वीबीए (4 तरीके)
समान रीडिंग
- [फिक्स्ड] अक्षरों के बजाय एक्सेल कॉलम नंबर (2 समाधान)
- एक्सेल में कॉलम लेटर को नंबर चार्ट में कैसे बदलें (4 तरीके)
2. एक्सेल में यूजर-डिफाइंड फंक्शन (यूडीएफ) के साथ कॉलम नंबर को लेटर में स्विच करने के लिए वीबीए
स्तंभ संख्या को UDF के साथ अक्षर में बदलने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।
चरण:
- पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
- कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।
Public Function NumToLtr(ColNum)
NumToLtr = Split(Cells(1, ColNum).Address, "$")(1)
End Function
यह VBA . के लिए उप प्रक्रिया नहीं है प्रोग्राम चलाने के लिए, यह एक उपयोगकर्ता परिभाषित फ़ंक्शन (UDF) बना रहा है . इसलिए, कोड लिखने के बाद, रन बटन पर क्लिक करने के बजाय मेनू बार से, सहेजें . क्लिक करें ।
- अब रुचि के कार्यपत्रक पर वापस जाएं और VBA के साथ आपके द्वारा अभी-अभी बनाए गए फ़ंक्शन को लिखें कोड (फ़ंक्शन NumToLtr कोड की पहली पंक्ति में) और NumToLtr . के कोष्ठकों के अंदर फ़ंक्शन, सेल संदर्भ संख्या . पास करें जिसे आप पत्र में बदलना चाहते हैं (हमारे मामले में, हम सेल B5 . पास करते हैं कोष्ठक के अंदर)।
तो हमारा अंतिम सूत्र संदर्भित करता है,
=NumToLtr(B5)
- दर्ज करें दबाएं ।
आपको संबंधित पत्र का पता मिलेगा (A ) कॉलम संख्या का (1 ) आपके डेटासेट में।
- अब हैंडल भरें . द्वारा पंक्ति को नीचे खींचें यूडीएफ . लागू करने के लिए शेष कक्षों को अक्षरों में बदलने के लिए।
गो टू स्टेटमेंट के साथ
उपरोक्त प्रक्रिया GoTo . के साथ भी की जा सकती है वक्तव्य।
- द वीबीए GoTo . के साथ कॉलम नंबर को अक्षर में बदलने के लिए कोड कथन है,
Public Function Num_Letter(ByVal iColNum As Integer) As String
Dim SLetter As String
On Error GoTo iError
Num_Letter = Left(Cells(1, iColNum).Address(False, False), _
Len(Cells(1, iColNum).Address(False, False)) - 1)
Exit Function
iError:
Call MsgBox(Err.Number & " - " & Err.Description)
End Function
- अब, जैसा कि ऊपर दिखाया गया है, यूडीएफ को कॉल करें डेटासेट में, सेल संदर्भ संख्या पास करें तर्क के रूप में, Enter press दबाएं और खींचें पंक्ति को स्तंभ संख्या को अक्षर में बदलने के लिए एक्सेल में GoTo . के साथ VBA . में वक्तव्य ।
डू-व्हाइल लूप के साथ
डू-जबकि लूप VBA . में कॉलम नंबर को अक्षर में बदलने का एक और तरीका है एक्सेल।
- द वीबीए डू-व्हाइल . के साथ कॉलम नंबर को अक्षर में बदलने के लिए कोड लूप है,
Function NumberToLetter(iCol As Long) As String
Dim a As Long
Dim b As Long
a = iCol
NumberToLetter = ""
Do While iCol > 0
a = Int((iCol - 1) / 26)
b = (iCol - 1) Mod 26
NumberToLetter = Chr(b + 65) & NumberToLetter
iCol = a
Loop
End Function
- इसी तरह, यूडीएफ को कॉल करें डेटासेट में, सेल संदर्भ संख्या पास करें तर्क के रूप में, Enter press दबाएं और खींचें पंक्ति को स्तंभ संख्या को अक्षर में बदलने के लिए एक्सेल में डू-व्हाइल . के साथ VBA . में लूप करें ।
और पढ़ें: Excel VBA:पंक्ति और स्तंभ संख्या के आधार पर श्रेणी निर्धारित करें (3 उदाहरण)
3. एक्सेल में यूजर इनपुट से कॉलम नंबर को लेटर में बदलने के लिए VBA
उपयोगकर्ता इनपुट से कॉलम संख्या को अक्षर में बदलने के चरण एक्सेल में VBA . के साथ नीचे दिए गए हैं।
चरण:
- पहले की तरह ही, Visual Basic Editor खोलें डेवलपर . की ओर से टैब और सम्मिलित करें एक मॉड्यूल कोड विंडो में।
- कोड विंडो में, निम्न कोड को कॉपी करें और पेस्ट करें।
Sub GetNumberFromUser()
Dim ColNumber As Long
Dim ColLetter As String
'User Input: Column Number
ColNumber = InputBox("Please Enter a Column Number")
'Convert the user-entered Column Number To Column Letter
ColLetter = Split(Cells(1, ColNumber).Address, "$")(1)
'Display the Result
MsgBox "Column Number: " & ColNumber & _
" = Column Letter: " & ColLetter
End Subआपका कोड अब चलने के लिए तैयार है।
- चलाएं मैक्रो।
- एक Microsoft Excel पॉप-अप संदेश बॉक्स एक कॉलम नंबर मांगते हुए दिखाई देगा। कॉलम नंबर लिखें कि आप बॉक्स के अंदर अक्षर के रूप में कनवर्ट करना चाहते हैं, फिर ठीक press दबाएं ।
आपको कॉलम नंबर का परिवर्तित परिणाम मिलेगा (उदा. 200 ) कि आप संबद्ध पत्र पते पर इनपुट करते हैं (GR )।
और पढ़ें: एक्सेल में कॉलम नंबर के आधार पर रेंज का उपयोग करने के लिए VBA (4 तरीके)
निष्कर्ष
इस लेख में आपको दिखाया गया है कि कैसे VBA . के साथ एक्सेल में नंबर को अक्षर में बदलें . मुझे उम्मीद है कि यह लेख आपके लिए बहुत फायदेमंद रहा होगा। बेझिझक पूछें कि क्या इस विषय के संबंध में आपके कोई प्रश्न हैं।
संबंधित लेख
- एक्सेल में कॉलम का नाम ABC से 1 2 3 में कैसे बदलें
- एक्सेल में कॉलम लेटर को नंबर चार्ट में कैसे बदलें (4 तरीके)
- एक्सेल में पंक्ति और कॉलम संख्या के आधार पर सेल का संदर्भ कैसे दें (4 तरीके)
- Excel VBA:एकाधिक कॉलम चुनें (3 तरीके)
- एक्सेल में मैच की कॉलम संख्या कैसे लौटाएं (5 उपयोगी तरीके)