VBA का उपयोग करके एक्सेल कॉलम नंबर को अक्षर में बदलें – 3 सिद्ध तरीके

VBA मैक्रो लागू करना एक्सेल में किसी भी ऑपरेशन को चलाने का सबसे प्रभावी, तेज़ और सुरक्षित तरीका है। इस लेख में, हम आपको दिखाएंगे कि VBA का उपयोग करके एक्सेल में कॉलम नंबर को अक्षर में कैसे बदलें।

वर्कबुक डाउनलोड करें

आप यहां से मुफ्त अभ्यास एक्सेल वर्कबुक डाउनलोड कर सकते हैं।

VBA को लागू करके एक्सेल में कॉलम नंबर को अक्षर में बदलने के 3 तरीके

इस खंड में, आप VBA के साथ एक विशिष्ट कॉलम नंबर को अक्षर में बदलना, उपयोगकर्ता-इनपुट कॉलम नंबर को अक्षर में बदलना और UDF (उपयोगकर्ता-परिभाषित फंक्शन) बनाना कॉलम नंबर को अक्षर में बदलने के लिए एक्सेल में सीखेंगे।

1. एक्सेल में VBA से एक विशिष्ट कॉलम नंबर को अक्षर में बदलें

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 दबाएं या मेनू बार से रन -> रन सब/यूजरफॉर्म चुनें। आप सब-मेनू बार में छोटे प्ले आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।

आपको एक माइक्रोसॉफ्ट एक्सेल पॉप-अप मैसेज बॉक्स मिलेगा जो अक्षर पता (GR) दिखाएगा कॉलम नंबर (उदाहरण 200) का जिसे आपने कोड के अंदर इनपुट किया था।

और पढ़ें: एक्सेल में कॉलम नंबर के आधार पर रेंज उपयोग करने के लिए VBA (4 तरीके)

समान पठन

• [ठीक] एक्सेल कॉलम नंबर के बजाय अक्षर (2 समाधान)
• एक्सेल में कॉलम अक्षर को नंबर चार्ट में कैसे बदलें (4 तरीके)

2. एक्सेल में उपयोगकर्ता-परिभाषित फंक्शन (UDF) के साथ VBA से कॉलम नंबर को अक्षर में बदलें

VBA के साथ एक्सेल में UDF के साथ कॉलम नंबर को अक्षर में बदलने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्नलिखित कोड कॉपी करें और पेस्ट करें।

Public Function NumToLtr(ColNum) NumToLtr = Split(Cells(1, ColNum).Address, "$")(1) End Function

यह VBA प्रोग्राम के लिए एक सब प्रोसीजर नहीं है, यह एक उपयोगकर्ता-परिभाषित फंक्शन (UDF) बना रहा है। इसलिए, कोड लिखने के बाद, मेनू बार से रन बटन पर क्लिक करने के बजाय, सेव पर क्लिक करें।

• अब रुचि की वर्कशीट पर वापस जाएं और आपके द्वारा VBA कोड से बनाए गए फंक्शन को लिखें (कोड की पहली पंक्ति में फंक्शन NumToLtr) और NumToLtr फंक्शन के पैरेंथेसिस के अंदर, सेल संदर्भ संख्या पास करें जिसे आप अक्षर में बदलना चाहते हैं (हमारे मामले में, हम सेल B5 को पैरेंथेसिस के अंदर पास करते हैं)।

तो हमारा अंतिम फॉर्मूला संदर्भित करता है,

=NumToLtr(B5)

• एंटर दबाएं।

आपको अपने डेटासेट में कॉलम नंबर (1) का संबंधित अक्षर पता (A) मिलेगा।

• अब फिल हैंडल द्वारा पंक्ति को नीचे खींचकर बाकी सेल पर UDF लागू करें ताकि उन्हें अक्षर में बदला जा सके।

GoTo स्टेटमेंट के साथ

उपरोक्त प्रक्रिया GoTo स्टेटमेंट के साथ भी की जा सकती है।

• कॉलम नंबर को अक्षर में बदलने के लिए GoTo स्टेटमेंट के साथ VBA कोड है,

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

• ऊपर दिखाए अनुसार, डेटासेट में UDF को कॉल करें, आर्गुमेंट के रूप में सेल संदर्भ संख्या पास करें, एंटर दबाएं और खींचें पंक्ति को VBA में GoTo स्टेटमेंट के साथ कॉलम नंबर को अक्षर में बदलने के लिए।

Do-While लूप के साथ

Do-While लूप VBA एक्सेल में कॉलम नंबर को अक्षर में बदलने का एक और तरीका है।

• Do-While लूप के साथ कॉलम नंबर को अक्षर में बदलने के लिए 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

• इसी तरह, डेटासेट में UDF को कॉल करें, आर्गुमेंट के रूप में सेल संदर्भ संख्या पास करें, एंटर दबाएं और खींचें पंक्ति को VBA में Do-While लूप के साथ कॉलम नंबर को अक्षर में बदलने के लिए।

और पढ़ें: पंक्ति और कॉलम नंबर द्वारा एक्सेल VBA: रेंज सेट करें (3 उदाहरण)

3. एक्सेल में उपयोगकर्ता इनपुट से VBA से कॉलम नंबर को अक्षर में बदलें

VBA के साथ एक्सेल में उपयोगकर्ता इनपुट से कॉलम नंबर को अक्षर में बदलने के चरण नीचे दिए गए हैं।

चरण:

• पहले की तरह ही, डेवलपर टैब से विजुअल बेसिक एडिटर खोलें और कोड विंडो में एक मॉड्यूल इन्सर्ट करें।
• कोड विंडो में, निम्नलिखित कोड कॉपी करें और पेस्ट करें।

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

आपका कोड अब चलाने के लिए तैयार है।

• रन मैक्रो।
• एक माइक्रोसॉफ्ट एक्सेल पॉप-अप मैसेज बॉक्स दिखाई देगा जो कॉलम नंबर मांगेगा। बॉक्स के अंदर वह कॉलम नंबर लिखें जिसे आप अक्षर में बदलना चाहते हैं, फिर ओके दबाएं।

आपको आपके द्वारा इनपुट किए गए कॉलम नंबर (उदाहरण 200) के परिवर्तित परिणाम के साथ संबंधित अक्षर पता (GR) मिलेगा।

और पढ़ें: एक्सेल में कॉलम नंबर के आधार पर रेंज उपयोग करने के लिए VBA (4 तरीके)

निष्कर्ष

इस लेख ने आपको दिखाया कि VBA के साथ एक्सेल में नंबर को अक्षर में कैसे बदलें। मुझे आशा है कि यह लेख आपके लिए बहुत फायदेमंद रहा होगा। विषय के संबंध में यदि आपके कोई प्रश्न हैं तो बेझिझक पूछें।

संबंधित लेख

• एक्सेल में कॉलम नाम ABC से 1 2 3 कैसे बदलें
• एक्सेल में कॉलम अक्षर को नंबर चार्ट में कैसे बदलें (4 तरीके)
• पंक्ति और कॉलम नंबर द्वारा एक्सेल में सेल कैसे संदर्भित करें (4 तरीके)
• एक्सेल VBA: एकाधिक कॉलम चुनें (3 तरीके)
• एक्सेल में मिलान के कॉलम नंबर कैसे लौटाएं (5 उपयोगी तरीके)