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 টিপুন আপনার কীবোর্ডে বা মেনু বার থেকে চালান -> সাব/ইউজারফর্ম চালান নির্বাচন করুন . এছাড়াও আপনি ছোট প্লে আইকনে ক্লিক করতে পারেন ম্যাক্রো চালানোর জন্য সাব-মেনু বারে।
আপনি একটি মাইক্রোসফ্ট এক্সেল পপ-আপ বার্তা বক্স পাবেন যেখানে চিঠির ঠিকানা (GR) প্রদর্শন করা হবে ) কলাম নম্বরের (যেমন 200 ) যা আপনি কোডের ভিতরে ইনপুট করেন।
আরো পড়ুন: VBA এক্সেলে কলাম নম্বরের উপর ভিত্তি করে পরিসর ব্যবহার করবে (৪টি পদ্ধতি)
একই রকম পড়া
- [স্থির] অক্ষরের পরিবর্তে এক্সেল কলাম সংখ্যা (2 সমাধান)
- এক্সেলে কলাম লেটারকে নম্বর চার্টে কীভাবে রূপান্তর করবেন (4 উপায়)
2. এক্সেলের ব্যবহারকারী-সংজ্ঞায়িত ফাংশন (UDF) সহ কলাম নম্বরকে অক্ষরে পরিবর্তন করতে VBA
UDF এর সাথে কলাম নম্বরকে অক্ষরে পরিবর্তন করার পদক্ষেপগুলি৷ এক্সেল এ VBA এর সাথে নিচে দেওয়া হল।
পদক্ষেপ:
- আগের মতই, ভিজ্যুয়াল বেসিক এডিটর খুলুন ডেভেলপার থেকে ট্যাব এবং ঢোকান একটি মডিউল কোড উইন্ডোতে।
- কোড উইন্ডোতে, নিচের কোডটি কপি করে পেস্ট করুন।
Public Function NumToLtr(ColNum)
NumToLtr = Split(Cells(1, ColNum).Address, "$")(1)
End Function
এটি VBA-এর জন্য একটি উপ-প্রক্রিয়া নয় প্রোগ্রাম চালানোর জন্য, এটি একটি ইউজার ডিফাইন্ড ফাংশন (UDF) তৈরি করছে . সুতরাং, কোড লেখার পরে, চালান বোতামে ক্লিক করার পরিবর্তে মেনু বার থেকে, সংরক্ষণ করুন ক্লিক করুন .
- এখন আগ্রহের ওয়ার্কশীটে ফিরে যান এবং VBA দিয়ে আপনার তৈরি করা ফাংশনটি লিখুন কোড (ফাংশন NumToLtr কোডের প্রথম লাইনে) এবং NumToLtr এর বন্ধনীর ভিতরে ফাংশন, সেল রেফারেন্স নম্বর পাস করুন যে আপনি চিঠিতে রূপান্তর করতে চান (আমাদের ক্ষেত্রে, আমরা সেল B5 পাস করি বন্ধনীর ভিতরে)।
তাই আমাদের চূড়ান্ত সূত্র বোঝায়,
=NumToLtr(B5)
- এন্টার টিপুন .
আপনি সংশ্লিষ্ট চিঠির ঠিকানা পাবেন (A ) কলাম নম্বরের (1 ) আপনার ডেটাসেটে।
- এখন ফিল হ্যান্ডেল দিয়ে সারিটি নিচে টেনে আনুন UDF প্রয়োগ করতে অক্ষরে রূপান্তর করার জন্য বাকি কোষগুলিতে।
GoTo স্টেটমেন্টের সাথে
উপরের পদ্ধতিটি GoTo দিয়েও করা যেতে পারে বিবৃতি।
- The VBA 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
- এখন, উপরে দেখানো হিসাবে, UDF কল করুন ডেটাসেটে, সেল রেফারেন্স নম্বর পাস করুন যুক্তি হিসাবে, এন্টার টিপুন এবং টেনে আনুন সারিটি কলাম নম্বরটিকে অক্ষরে রূপান্তর করুন এক্সেল এ GoTo দিয়ে VBA-এ বিবৃতি .
ডু-হাইল লুপের সাথে
করতে হবে লুপ হল VBA-এ কলাম নম্বরকে অক্ষরে রূপান্তর করার আরেকটি উপায় এক্সেল।
- The 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 .
আরো পড়ুন: Excel 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 দিয়ে এক্সেলের অক্ষরে সংখ্যা রূপান্তর করতে হয় . আমি আশা করি এই নিবন্ধটি আপনার জন্য খুব উপকারী হয়েছে. বিষয় সম্পর্কে আপনার কোন প্রশ্ন থাকলে নির্দ্বিধায় জিজ্ঞাসা করুন।
সম্পর্কিত প্রবন্ধ
- এবিসি থেকে এক্সেলে কলামের নাম কীভাবে পরিবর্তন করবেন 1 2 3
- এক্সেলে কলাম লেটারকে নম্বর চার্টে কীভাবে রূপান্তর করবেন (4 উপায়)
- এক্সেলে সারি এবং কলাম নম্বর দ্বারা সেল রেফারেন্স কিভাবে (4 পদ্ধতি)
- Excel VBA:একাধিক কলাম নির্বাচন করুন (3টি পদ্ধতি)
- এক্সেলে মিলের কলাম নম্বর কীভাবে ফেরত দিতে হয় (৫টি দরকারী উপায়)
