How to Convert Number into Word in Excel in Dollar

 Sometimes we gets rows of amounts where we need to write them in words and it becomes impossible to write a thousand rows of data in words. There is no built in function for this in excel. If you are having problem converting currency into words then you are at the right place. We are about to solve this for good. Let’s follow the bellow steps to convert currency to words.

 

 Step 1: Click on the Developer Tab (How to add developer tab in
excel:

Step 2: Click on Visual Basic.

Step 3: Click Insert and then Module.

Step 4: Copy the code.

Function NumbersToWords(ByVal pNumber)

Dim Dollars, Cents arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") pNumber = Trim(Str(pNumber)) xDecimal = InStr(pNumber, ".") If xDecimal > 0 Then Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2)) pNumber = Trim(Left(pNumber, xDecimal - 1)) End If xIndex = 1 Do While pNumber <> "" xHundred = "" xValue = Right(pNumber, 3) If Val(xValue) <> 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) <> "0" Then xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) <> "0" Then xHundred = xHundred & GetTens(Mid(xValue, 2)) Else xHundred = xHundred & GetDigit(Mid(xValue, 3)) End If End If If xHundred <> "" Then Dollars = xHundred & arr(xIndex) & Dollars End If If Len(pNumber) > 3 Then pNumber = Left(pNumber, Len(pNumber) - 3) Else pNumber = "" End If xIndex = xIndex + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and Zero Cent" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select NumbersToWords = Dollars & Cents End Function Function GetTens(pTens) Dim Result As String Result = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else Select Case Val(Left(pTens, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit(Right(pTens, 1)) End If GetTens = Result End Function Function GetDigit(pDigit) Select Case Val(pDigit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function

Step 5: Close the Visual basic window.
Step 6: Write the function in any empty cell =NumbersToWords (A1)
Step 7: Press enter and done.

ভারতীয় হেল্পলাইন নম্বর

1) জাতীয় জরুরি নম্বর 112

2) পুলিশ 100 বা 112

3) ফায়ার 101

4) অ্যাম্বুলেন্স 102

5) দুর্যোগ ব্যবস্থাপনা সেবা 108

6) মহিলা হেল্পলাইন 1091

7) মহিলা হেল্পলাইন - ( গার্হস্থ্য নির্যাতন ) 181

8) এয়ার অ্যাম্বুলেন্স 9540161344

9)এইডস হেল্পলাইন 1097

10) অ্যান্টি পয়জন (নয়া দিল্লি) 1066 বা 011-1066

11) দুর্যোগ ব্যবস্থাপনা (N.D.M.A): 1078, 01126701728

12)ভূমিকম্প / বন্যা / দুর্যোগ ( N.D.R.F সদর দপ্তর ) NDRF হেল্পলাইন নম্বর : 011-24363260 9711077372

13) ডেপুটি কমিশনার অফ পুলিশ - নিখোঁজ শিশু এবং মহিলা 1094

14) রেলওয়ে তদন্ত 139

15) সিনিয়র সিটিজেন হেল্পলাইন 14567

16) অন্ধ্রপ্রদেশ, গুজরাট, উত্তরাখণ্ড, গোয়া, তামিলনাড়ু, রাজস্থান, কর্ণাটক, আসাম, মেঘালয়, এমপি এবং ইউপি - 108-এ মেডিকেল হেল্পলাইন

17) রেলওয়ে অ্যাক্সিডেন্ট ইমার্জেন্সি সার্ভিস 1072

18) রোড এক্সিডেন্ট ইমার্জেন্সি সার্ভিস 1073

19) বেসরকারী অপারেটরদের জন্য জাতীয় সড়কে সড়ক দুর্ঘটনা জরুরি পরিষেবা 1033

20) ORBO সেন্টার, AIIMS (অঙ্গ দানের জন্য) দিল্লি 1060

21) কিষাণ কল সেন্টার 18001801551

22) প্রাকৃতিক দুর্যোগের জন্য ত্রাণ কমিশনার 1070

23) কঠিন পরিস্থিতিতে শিশু 1098

24) জাতীয় পজিশন ইনফরমেশন সেন্টার - এইমস নিউ দিল্লি (24*7) 1800116117, 011-26593677, 26589391

25) পজিশন ইনফরমেশন সেন্টার (সিএমসি, ভেলোর) 18004251213

26) ট্যুরিস্ট হেল্পলাইন 1363 বা 1800111363

27) এলপিজি লিক হেল্পলাইন 1906

28) কিরন মানসিক স্বাস্থ্য হেল্পলাইন 18005990019

29) সাইবার ক্রাইম হেল্পলাইন 155620

30) কোভিড 19 হেল্পলাইন: 011-23978046 বা 1075

Indian Helpline Numbers

 1)NATIONAL EMERGENCY NUMBER  112

2)POLICE  100 or 112

3)FIRE  101

4)AMBULANCE  102

5)Disaster Management Services  108

6)Women Helpline  1091

7)Women Helpline - ( Domestic Abuse )  181

8)Air Ambulance 9540161344 

9)Aids Helpline  1097

10)Anti Poison ( New Delhi ) 1066 or 011-1066

11)Disaster Management ( N.D.M.A ) :1078, 01126701728

12)EARTHQUAKE / FLOOD / DISASTER ( N.D.R.F Headquaters ) NDRF HELPLINE NO :011-24363260 9711077372

13)Deputy Commissioner Of Police – Missing Child And Women  1094

14) Railway Enquiry  139

15) Senior Citizen Helpline  14567

16) Medical Helpline in Andhra Pradesh, Gujarat,Uttarakhand,Goa,Tamil  Nadu,Rajasthan,Karnataka,Assam,Meghalaya, M.P and U.P  - 108

17) Railway Accident Emergency Service  1072

18) Road Accident Emergency Service  1073

19) Road Accident Emergency Service On National Highway For Private Operators 1033 

20) ORBO Centre, AIIMS (For Donation Of Organ) Delhi 1060 

21) Kisan Call Centre 18001801551

22) Relief Commissioner For Natural Calamities  1070

23) Children In Difficult Situation 1098

24) National Poisions Information Centre - AIIMS NEW DELHI ( 24*7 ) 1800116117 , 011-26593677, 26589391

25) Poision Information Centre ( CMC , Vellore ) 18004251213

26) Tourist Helpline 1363 or 1800111363

27) LPG Leak Helpline 1906

28) KIRAN MENTAL HEALTH Helpline 18005990019

29) CYBER CRIME HELPLINE  155620

30) COVID 19 HELPLINE : 011-23978046 OR 1075

भारतीय हेल्पलाइन नंबर

1)राष्ट्रीय आपातकालीन नंबर 112

2)पुलिस 100 या 112

3)फायर 101

4)एम्बुलेंस 102

5)आपदा प्रबंधन सेवाएँ 108

6)महिला हेल्पलाइन 1091

7)महिला हेल्पलाइन - (घरेलू दुर्व्यवहार) 181

8)एयर एम्बुलेंस 9540161344

9)सहायता हेल्पलाइन 1097

10)विषरोधी (नई दिल्ली) 1066 या 011-1066

11)आपदा प्रबंधन (एन.डी.एम.ए.):1078, 01126701728

12)भूकंप/बाढ़/आपदा (एनडीआरएफ मुख्यालय) एनडीआरएफ हेल्पलाइन नंबर:011-24363260 9711077372

13) पुलिस उपायुक्त - लापता बच्चे और महिलाएं 1094

14) रेलवे पूछताछ 139

15) वरिष्ठ नागरिक हेल्पलाइन 14567

16) आंध्र प्रदेश, गुजरात, उत्तराखंड, गोवा, तमिलनाडु, राजस्थान, कर्नाटक, असम, मेघालय, एमपी और यूपी में मेडिकल हेल्पलाइन - 108

17) रेलवे दुर्घटना आपातकालीन सेवा 1072

18) सड़क दुर्घटना आपातकालीन सेवा 1073

19) निजी ऑपरेटरों के लिए राष्ट्रीय राजमार्ग पर सड़क दुर्घटना आपातकालीन सेवा 1033

20) ओर्बो सेंटर, एम्स (अंग दान के लिए) दिल्ली 1060

21) किसान कॉल सेंटर 18001801551

22) प्राकृतिक आपदा राहत आयुक्त 1070

23) कठिन परिस्थिति में बच्चे 1098

24) राष्ट्रीय विष सूचना केंद्र - एम्स नई दिल्ली (24*7) 1800116117, 011-26593677, 26589391

25) विष सूचना केंद्र (सीएमसी, वेल्लोर) 18004251213

26) पर्यटक हेल्पलाइन 1363 या 1800111363

27) एलपीजी लीक हेल्पलाइन 1906

28) किरण मानसिक स्वास्थ्य हेल्पलाइन 18005990019

29) साइबर क्राइम हेल्पलाइन 155620

30) कोविड 19 हेल्पलाइन: 011-23978046 या 1075

How to Convert Number into Word in Excel in Indian Rupees

Convert a number to words in Indian Rupees format in Microsoft Excel, you can follow these simple steps: 

Copy the code:

Function SpellNumber(amt As Variant) As Variant

Dim FIGURE As Variant

Dim LENFIG As Integer

Dim i As Integer

Dim WORDs(19) As String

Dim tens(9) As String

WORDs(1) = "One"

WORDs(2) = "Two"

WORDs(3) = "Three"

WORDs(4) = "Four"

WORDs(5) = "Five"

WORDs(6) = "Six"

WORDs(7) = "Seven"

WORDs(8) = "Eight"

WORDs(9) = "Nine"

WORDs(10) = "Ten"

WORDs(11) = "Eleven"

WORDs(12) = "Twelve"

WORDs(13) = "Thirteen"

WORDs(14) = "Fourteen"

WORDs(15) = "Fifteen"

WORDs(16) = "Sixteen"

WORDs(17) = "Seventeen"

WORDs(18) = "Eighteen"

WORDs(19) = "Nineteen"

tens(2) = "Twenty"

tens(3) = "Thirty"

tens(4) = "Fourty"

tens(5) = "Fifty"

tens(6) = "Sixty"

tens(7) = "Seventy"

tens(8) = "Eighty"

tens(9) = "Ninety"

FIGURE = amt

FIGURE = Format(FIGURE, "FIXED")

FIGLEN = Len(FIGURE)

If FIGLEN < 12 Then

FIGURE = Space(12 - FIGLEN) & FIGURE

End If

If Val(Left(FIGURE, 9)) > 1 Then

SpellNumber = "Rupees "

ElseIf Val(Left(FIGURE, 9)) = 1 Then

SpellNumber = "Rupee "

End If

For i = 1 To 3

If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))

ElseIf Val(Left(FIGURE, 2)) > 19 Then

SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))

SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))

End If

If i = 1 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & " Crore "

ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & " Lakh "

ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & " Thousand "

End If

FIGURE = Mid(FIGURE, 3)

Next i

If Val(Left(FIGURE, 1)) > 0 Then

SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "

End If

FIGURE = Mid(FIGURE, 2)

If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))

ElseIf Val(Left(FIGURE, 2)) > 19 Then

SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))

SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))

End If

FIGURE = Mid(FIGURE, 4)

If Val(FIGURE) > 0 Then

SpellNumber = SpellNumber & " Paise "

If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then

SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))

ElseIf Val(Left(FIGURE, 2)) > 19 Then

SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))

SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))

End If

End If

FIGURE = amt

FIGURE = Format(FIGURE, "FIXED")

If Val(FIGURE) > 0 Then

SpellNumber = SpellNumber & " Only "

End If

End Function

Copy the entire VBA function code that you provided.

Open Excel and Press "Alt+F11":
Open your Excel workbook and press "Alt +
 F11" to open the Visual Basic for Applications (VBA) editor.
Insert a Module:
In the VBA editor, click on "Insert" in the menu, and then select "Module." This will create a new module where you can paste the code.
Paste the Code:
Paste the copied code into the module you just inserted.
Close and Return to Microsoft Excel:
Close the VBA editor by clicking on "File" and then "Close and Return to Microsoft Excel."
Use the Function:

In your Excel sheet, where you want to convert a number into words, enter the formula. For example, if you want to convert the number in cell E7, type =SpellNumber(E7) and press "Enter."

Make sure that you understand how to use the function in your Excel sheet. It appears that the function takes a numeric value as an argument and returns the equivalent value in words in the Indian Rupees format.

Note: Be cautious when using VBA code from external sources, and make sure you understand the code and its implications for security and functionality in your Excel workbook. Additionally, macro settings in Excel may need to be adjusted to enable the execution of VBA code.