স্প্রেডশিট অনেক মানুষ তাদের দৈনন্দিন কাজে ব্যবহার করে, যা তাদের অফিসের একটি গুরুত্বপূর্ণ উপাদান। অধিকাংশ লোক স্প্রেডশিট যেকোনো cơ bảnভাবে ব্যবহার করে, কিন্তু কিছু অ্যাডভান্সড ইউজার এক্সেলে নম্বরকে শব্দে রূপান্তর করা কঠিন বা জটিল মনে করেন। এই গাইডে আমরা এই সমস্যাটি সমাধান করেছি এবং এক্সেলে নম্বরকে শব্দে রূপান্তর করার চারটি ভিন্ন পদ্ধতি দিয়েছি। তার ব البالা, নম্বরকে টেক্সট ফরম্যাটে রূপান্তর করার তিনটি আরও পদ্ধতি রয়েছে।
ওয়ার্কবুক ডাউনলোড করুন
আপনি এই আর্টিকেলে ব্যবহৃত ওয়ার্কবুকটি নিচে থেকে ডাউনলোড করে নিজে প্র্যাকটিস করতে পারেন।
এক্সেলে নম্বরকে শব্দে রূপান্তর করার ৪টি পদ্ধতি
এই আর্টিকেলের এই অংশে ব্যাখ্যা করা হলো এক্সেলে নম্বরকে শব্দে কীভাবে রূপান্তর করতে হয়। மேலும், আমরা অপারেশন সম্পন্ন করার চারটি টেকনিক প্রদর্শন করব। সেশন চালানোর জন্য আমরা Microsoft 365 ভার্সন ব্যবহার করব।
১. এক্সেলে কম্বাইনড ফাংশন ব্যবহার করে নম্বরকে শব্দে রূপান্তর করুন
এখানে যে এক্সেল ফর্মুলা ব্যবহার করা হয়েছে সেটি চারটি ফাংশনের ওপর নির্ভরশীল। LEFT, MID, TEXT এবং CHOOSE ফাংশন।
প্রথমে, LEFT ফাংশনের সিনট্যাক্স নিচে দেওয়া হলো:
বেসিক্যালি এই ফাংশন টেক্সট থেকে ক্যারেক্টার বের করতে ব্যবহৃত হয়।
=LEFT (text, [num_chars])Text: যে টেক্সট স্ট্রিং থেকে ক্যারেক্টার বের করা হবে।
num_chars [ঐচ্ছিক]: বের করার ক্যারেক্টার সংখ্যা। বাম দিক থেকে শুরু হয়। ডিফল্টভাবে num_chars=1।
দ্বিতীয়, MID ফাংশনের সিনট্যাক্স:
আসলে এই ফাংশন একটি স্ট্রিংয়ের ভেতর থেকে টেক্সট বের করতে ব্যবহৃত হয়।
=MID (text, start_num, num_chars)Text: যে টেক্সট থেকে বের করা হবে।
start_num: বের করার প্রথম ক্যারেক্টার লোকেশন।
num_chars: বের করার ক্যারেক্টার সংখ্যা।
তৃতীয়, TEXT ফাংশনের সিনট্যাক্স:
এই ফাংশন একটি নম্বরকে নম্বর ফরম্যাটে টেক্সটে কনভার্ট করে।
=TEXT (value, format_text)value: কনভার্ট করার নম্বর।
format_text: ব্যবহার করার নম্বর ফরম্যাট।
চতুর্থ, CHOOSE ফাংশনের সিনট্যাক্স:
এই ফাংশন পজিশন অনুযায়ী একটি লিস্ট থেকে ভ্যালু বের করে।
=CHOOSE (index_num, value1, [value2], …)index_num: বেছে নেওয়ার ভ্যালু। 1 এবং 254 এর মধ্যে একটি নম্বর।
value1: বেছে নেওয়ার প্রথম ভ্যালু।
value2 [ঐচ্ছিক]: বেছে নেওয়ার দ্বিতীয় ভ্যালু।
- এখানে আমরা Numbers in Words কলামের নম্বরটি রূপান্তর করব।
- এখন C5 সেলে নিচের ফর্মুলা লিখুন।
সম্পূর্ণ ফর্মুলা প্রথমে জটিল দেখতে পারে, কিন্তু এটি মূলত একটি অংশের পুনরাবৃত্তি। তাই যদি আপনি ফর্মুলার প্রথম অংশ বুঝতে পারেন, তবে বাকিগুলোও বুঝতে পারবেন।
- পরবর্তী, ENTER চাপুন।
ফলস্বরূপ নিচের আউটপুট দেখতে পাবেন।
ফর্মুলা ব্রেকডাউন:
প্রথমে, TEXT ফাংশন নম্বরকে “000000000.00” টেক্সট ফরম্যাটে রূপান্তর করতে ব্যবহৃত হয়।
TEXT(B7,”000000000.00″)
তারপর, LEFT ফাংশন নম্বর থেকে বামপাশের ক্যারেক্টার বের করতে ব্যবহৃত হয়। এটি আমাদের শনাক্ত করতে দেয় রিটার্ন নম্বর শূন্য কিনা অথবা অন্য কোনো মান।
LEFT(TEXT(B7,”000000000.00″))
পরের, CHOOSE ফাংশন বের করা নম্বরকে উপযুক্ত শব্দে রিপ্রেজেন্ট করতে ব্যবহৃত হয়।
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,,“One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight”,”Nine”)
এখন এটি চেক করে মান শূন্য কিনা। যদি শূন্য হয় তবে কিছুই দেখাবে না।
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,,“One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight”,”Nine”)
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,
এটি “Hundred” দেখাবে যদি পরের দুইটি নম্বর শূন্য হয়। অন্যথায় “Hundred and.” দেখাবে।
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,,“One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight”,”Nine”)
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))
এই ফর্মুলা VBA অথবা অ্যারে ছাড়া কাজ করে। নম্বরকে শব্দে রূপান্তর করার জন্য এটি একটি عالی পদ্ধতি। কিন্তু এর দুটি ত্রুটি রয়েছে। এক, ডেসিমাল পয়েন্টের পরের নম্বরগুলো পূরণভাবে রিপ্রেজেন্ট করতে পারে না। দুই, সর্বোচ্চ নম্বর লিমিট ৯৯৯, ৯৯৯, ৯৯৯। আসলে Mr. Pete M. এই ফর্মুলা आविष्कার করেছেন।
- এখন বাকি রোয়ের জন্য ফর্মুলা লিখুন অথবা সরাসরি Excel AutoFill Feature ব্যবহার করুন।
শেষে, আপনি সব রূপান্তরিত নম্বরকে শব্দে পাবেন।
২. VLOOKUP ফাংশন অ্যাপ্লাই করে নম্বরকে শব্দে রূপান্তর করুন
আপনি VLOOKUP ফাংশন ব্যবহার করে নম্বরকে শব্দে রূপান্তর করতে পারেন এক্সেলে। কিছু ভিন্ন করে দেখি। এখানে আপনাকে সব নম্বর শব্দে ম্যানুয়ালি C কলামে লিখতে হবে, তারপর সেই ফাংশন ব্যবহার করে যেকোনো নম্বরকে সেখান থেকে শব্দে রূপান্তর করতে পারবেন।
ধাপগুলো:
- প্রথমে সব নম্বর শব্দে ম্যানুয়ালি C কলামে লিখুন।
- এখন C12 সেলে নিচের ফর্মুলা ব্যবহার করুন।
=VLOOKUP(B12,B4:C9,2,FALSE)- তারপর ENTER চাপুন।
ফর্মুলা ব্রেকডাউন
এই ফর্মুলায় VLOOKUP ফাংশন একটি দেয়া অ্যারে থেকে ভ্যালু রিটার্ন করবে।
- প্রথমে, B12 হলো লুকআপ ভ্যালু যা দিয়ে টেবিলে সার্চ করবে।
- দ্বিতীয়, B4:C9 হলো টেবিল অ্যারে যেখানে টার্গেট ভ্যালু খুঁজবে।
- তৃতীয়, 2 হলো টেবিলের কলাম সংখ্যা যেখান থেকে ভ্যালু রিটার্ন হবে।
- চতুর্থ, False নির্দেশ করে একজাক্ট ম্যাচ।
৩. এক্সেলে নম্বরকে শব্দে রূপান্তর করতে VBA ব্যবহার করুন
সবচেয়ে আকর্ষণীয় অংশ হল আপনি এক্সেলে নম্বরকে শব্দে রূপান্তর করার জন্য নিজস্ব ফাংশন বানাতে পারেন। আরও, VBA কোড ব্যবহার করে একটি ডিফাইনড ফাংশন ডেভেলপ করতে পারেন। ধাপগুলো নিচে দেওয়া হলো।
ধাপগুলো:
- প্রথমে Developer ট্যাব বেছে নিন >> তারপর Visual Basic সিলেক্ট করুন।
- এখন Insert ট্যাব থেকে >> Module সিলেক্ট করুন।
- এই মুহূর্তে Module-এ নিচের Code লিখুন।
Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ") x_numb = Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP > 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0 x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb <> "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T <> "" Then x_output = x_T & x_P(x_cnt) & x_output End If If Len(x_numb) > 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Boolean x_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string <> "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If If Mid(x_string_Num, 2, 2) <> "00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1)) > 1 Then If y_b Then x_string = "and " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_string = "" Then If y_b Then x_string = "and " End If End If If Right(x_TDgt, 1) <> "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function
- এখন code সেভ করুন।
- তারপর Excel worksheet-এ যান।
এই মুহূর্তে আপনি আপনার ডিফাইনড ফাংশন ব্যবহার করতে পারেন। এর জন্য নিচের ধাপগুলো অনুসরণ করুন।
ধাপগুলো:
- এখন যে সেলে রূপান্তরিত আউটপুট দেখাতে চান সেটি সিলেক্ট করুন (আমাদের কেসে সেল C5)।
- তারপর সেলে Equal sign (=) লিখুন। এটি ফর্মুলা লিখতে সক্ষম করবে।
- এরপর “=number_converting_into_words” টাইপ করুন অথবা ড্রপ-ডাউন মেনু থেকে number_converting_into_words ফাংশন সিলেক্ট করুন।
- পরবর্তী, নম্বর ভ্যালুযুক্ত সেলটি সিলেক্ট করুন যা আপনি শব্দে রূপান্তর করতে চান (আমাদের কেসে সেল B5)।
- শেষে ENTER বাটন চাপুন।
ফলস্বরূপ, এটি আপনার সিলেক্টেড সেলের নম্বরকে সংশ্লিষ্ট শব্দে রূপান্তর করবে। শেষে, আপনি এই ফর্মুলাটি বাকি সেলগুলোতে কপি করতে পারেন।
৪. এক্সেলে করেন্সি শব্দে রূপান্তর করতে VBA ব্যবহার করুন
এই মেথড পূর্বেরটির মতোই। এটি VBA (Visual Basic for Application) ব্যবহার করে মডিউল ইনসার্ট করে এবং ফাংশন হিসেবে ব্যবহার করে। যেখানে এটি পূর্বের মেথড থেকে আলাদা, সেটি হলো এটি নম্বরকে উপযুক্ত করেন্সি শব্দে রূপান্তর করে। একটি উদাহরণ নিচে দেওয়া হলো।
375.65=Three Hundred Seventy Five Dollars and Sixty Five Centsএই পদ্ধতি অ্যাপ্লাই করার জন্য এই ধাপগুলো অনুসরণ করুন:
- প্রথমে method-3 ফলো করে মডিউল ইনসার্ট করুন।
- দ্বিতীয়, Module 2-এ নিচের কোড লিখুন।
Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal > 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number = Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number <> "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) <> 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) <> "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) <> "0" Then xHundred = xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If End If If xHundred <> "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If If Len(whole_number) > 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End If xIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One" converted_into_cent = " and One Cent" Case Else converted_into_cent = " and " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output = "Ten" Case 11: my_output = "Eleven" Case 12: my_output = "Twelve" Case 13: my_output = "Thirteen" Case 14: my_output = "Fourteen" Case 15: my_output = "Fifteen" Case 16: my_output = "Sixteen" Case 17: my_output = "Seventeen" Case 18: my_output = "Eighteen" Case 19: my_output = "Nineteen" Case Else End Select Else Select Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten = my_output End Function Function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select End Function
ফলস্বরূপ, আপনি আপনার ডিফাইনড ফাংশন নামক Convert_Number_into_word_with_currency ব্যবহার করতে পারেন। এর জন্য নিচের ধাপগুলো অনুসরণ করুন।
ধাপগুলো:
- এখন আপনাকে একটি সেল সিলেক্ট করতে হবে, যেখানে আপনি ফলাফল রাখতে চান। আমরা C5 সেল সিলেক্ট করেছি।
- তারপর C5 সেলে সংশ্লিষ্ট ফর্মুলা ব্যবহার করতে হবে।
=Convert_Number_into_word_with_currency(B5)- পরবর্তী, ENTER চাপুন।
- শেষে, বাকি সেল C6:C9 এর জন্য এক্সেল AutoFill Feature ব্যবহার করুন।
শেষে, আপনি সব রূপান্তরিত পরিমাণ পাবেন।
এক্সেলে নম্বরকে টেক্সট ফরম্যাটে কনভার্ট করুন
এতক্ষণ আমরা এক্সেলে নম্বরকে শব্দে রূপান্তর করার কথা বলেছি। এই আর্টিকেলের এই অংশ ব্যাখ্যা করে এক্সেলে নম্বরকে টেক্সট ফরম্যাটে কীভাবে পরিবর্তন করতে হয়। এটি নম্বরকে টেক্সটে রূপান্তর করার সবচেয়ে সহজ এবং দ্রুত পদ্ধতি।
এই পদ্ধতি অ্যাপ্লাই করতে এই ধাপগুলো অনুসরণ করুন:
- প্রথমে সেল বা সেলগুলো সিলেক্ট করুন যাদের নিউমেরিক ভ্যালু টেক্সটে রূপান্তর করতে চান (আমাদের কেসে সেল C5:C9)।
- দ্বিতীয়, Home ট্যাবে যান এবং Number সেকশনের অধীনে সেল ক্যাটাগরি ড্রপ-ডাউন মেনু থেকে Text অপশন সিলেক্ট করুন।
ফলস্বরূপ, এটি আপনার সিলেক্টেড সেলগুলোর নিউমেরিক ভ্যালুকে টেক্সটে রূপান্তর করবে। আপনি এটি অ্যালাইনমেন্ট দেখে বুঝতে পারেন। ডিফল্টভাবে, এক্সেলে টেক্সট বাম-অ্যালাইনড এবং নম্বর ডান-অ্যালাইনড থাকে।
অথবা আপনি CTRL+1 চাপে Format Cells নামক উইন্ডো খুলে Number অপশন সিলেক্ট করে সেখান থেকে Text ক্যাটাগরি সিলেক্ট করতে পারেন।
প্র্যাকটিস সেকশন
প্র্যাকটিস করার জন্য, আমরা প্রতিটি শিটের ডান পাশে একটি প্র্যাকটিস পোর্শন যোগ করেছি।
উপসংহার
এখানে, আমরা এই আর্টিকেলকে MS Excel-এ নম্বরকে উপযুক্ত শব্দ বা টেক্সটে রূপান্তর করার একটি अल্টিমেট গাইড बनाने চেষ্টা করেছি। আরও, আমরা এই আর্টিকেলে সাতটি ভিন্ন টেকনিক সংকুচিত করেছি যাতে আপনি আপনার নির্দিষ্ট পরিস্থিতির জন্য সেরা অপশন বেছে নিতে পারেন। তাই, আমরা আশা করি আপনি যে সমাধান খুঁজছিলেন সেটি পেয়ে গেলেন। কোনো সাজেশন বা প্রশ্ন থাকলে কমেন্ট করুন। ধন্যবাদ।
সম্পর্কিত আর্টিকেল
- ডেটাকে টেক্সট YYYYMMDD-এ কনভার্ট করা (৩ কুইক উপায়)
- এক্সেলে ডেটাকে টেক্সট মাসে কনভার্ট করা (৮ কুইক উপায়)
