How to convert number to words in Excel, comments page 2

Comments page 2. Total comments: 530

rouba says:
2023-02-15 at 4:14 pm

how to set excel formulas number to word in Lebanese pound
John Paulo Dical says:
2022-10-23 at 8:28 am

Good day po! I am using Bahrain Dinar currency for coverting number to word. And I have a little problem when it have a cents or "fils" in Bahrain. I manage to convert ten fils but what I need is hundred fils. I rarely see a tutorial on internet that has a Bahrain Dinar currency topic. US Dollars is the common so I don't have any idea on how to make a format for hundred fils which is in Bahrain Dinar. Until I found your link in google and I am really hoping that you can help me with my concern. Thank you in advance. I am looking forward to hearing from you. Have a nice weekend.
placido canete says:
2022-10-18 at 5:45 am

How to set excel formulas number to word in Philippine Peso?
1. Erick says:
  2024-06-14 at 2:30 am
  
  replace dollar with peso in the VBA after pasting the formula
Khalid Faisal says:
2022-10-17 at 10:08 am

Hi Sir,

I would like to have a formula to convert the Bahraini Dinar (BD) as 37.285 (THIRTY SEVEN AND FILS 285/1000 ONLY)

Thanks
Dhanushka says:
2022-09-04 at 5:56 am

please help me on how to put the following format in excel.

Eg: Two thousand and cents ninety two

Thanks,
Dipak Uprety says:
2022-08-26 at 11:04 am

Hi experts,
I'm looking for a BVA code to convert numbers into words without showing currency and 3 decimal values. i.e. 10,550,125,589.325 (Ten Billion Five Hundred Fifty Million One Hundred Twenty-Five Thousand Five Hundred Eighty-Nine And 325/1000 only).
Thank you
Dipak
Ramachandra Reddy says:
2022-08-25 at 9:12 am

For rupees not working
Mendo says:
2022-08-25 at 8:59 am

Sir, I have converted 1056 and the result is one thousand fifty-six only. I was wondering if there's any way to make it like this:

One Thousand and Fifty-Six Only
syra mae says:
2022-08-09 at 7:53 am

hello sir thank you so much for this but I do have an inquiry instead of converting the cents to words how to make it stay as figure only?

One Hundred Ninety Pesos and 87 /100 Only

Select Case Cents
Case ""
Cents = " Only"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " /100 Only"
End Select
happy says:
2022-05-12 at 5:12 am

How to set as below format:

For example:

RM 3,600.00
in Words: ***THREE THOUSAND SIX HUNDRED ONLY***
Zedoa says:
2022-04-21 at 10:59 am

Brilliant.

Thank you , made my workload much easier.
??
Mukesh Kumar says:
2022-02-26 at 11:16 am

Thanks for sharing this.
This is very helpful in excel for me.
But still i have one query whenever i am opening a new excel, i need to insert module formula's in each excel and need to save every time to each excel. Is there any solution for my solution, because i don't want to save this module formula for each excel many times.
1. Alexander Trifuntov (Ablebits Team) says:
  2022-02-28 at 8:25 am
  
  Hello!
  Try saving your custom function in an add-in file as described in this tutorial.
  I hope I answered your question. If something is still unclear, please feel free to ask.
Mohamed Almansoor says:
2022-01-23 at 10:35 am

How can make it up to 3 decimals, currently it is only 2 desimals, I want it instead of 0.39 thirty nine to be three hundred ninty one
1. Alexander Trifuntov (Ablebits Team) says:
  2022-01-24 at 8:52 am
  
  Hi!
  To get 0.391 in cell, change the number format as described in this guide.
  You may also need to apply to round the number to 3 decimal places.
  Hope this is what you need.
Marianne Barnard says:
2022-01-10 at 12:58 pm

Amazing!
Thank you so much!
Made my life supre easy!
HARSHADKUMAR M. VYAS says:
2022-01-03 at 6:41 am

Actually all the formula / function don't work in excel program in Android mobile.
As the formula given requires Add In / VBA.
I require a simple formula to convert Number in Words in Indian method
e.g. Rs 99,99 999.99 should be in Words "Rupees Ninety Nine Lakh Ninety Nine Thousand Nine Hundred Ninety Nine Paise Ninety Nine Only"
Please help me to have such formula which works directly in excel cell without any Add ins / VBA.
EXPECTING A FAVORABLE HELP.
Angel says:
2021-12-18 at 9:17 am

Thank you for this! Big Help!
Dina says:
2021-11-14 at 3:21 pm

dears,

please need this macro without currency :)

thanks
Kayser says:
2021-10-18 at 9:20 am

Hi mine is working perfectly! thank you
but having issue sometime (Seventeen Dollars and Thirty Two Cents) but excel numeric digit show 17.33 anyone help me to find the solution or having only option to change the decimal places 2 to 3
1. Alexander Trifuntov (Ablebits Team) says:
  2021-10-18 at 9:44 am
  
  Hello!
  Your number is the result of a calculation. If you increase the number of visible decimal places in the cell, you will see 17.3268 or something similar. Excel automatically rounds the number it shows you on the worksheet. But the value in the cell does not change. The SpellNumber function does not round a number. To make the data match, use the ROUND function in your formula.
  1. Kalim says:
    2023-06-12 at 8:46 am
    
    Sir Alexander Trifuntov
    
    Please help me on this I am using the below VBA code as a result I get the word "Rupees" at the beginning of the result and the word "Only" at the end.
    
    Example
    123
    =Spell Number(One Hundred and Twenty Three )
    Need Result
    Rupees One Hundred and Twenty Three Only
    
    (Using Below Code)
    
    Option Explicit
    Function SpellNumber(ByVal MyNumber)
    Dim uStr As String
    Dim uFNum As Integer
    Dim uStrPoint
    Dim uStrNumber
    Dim uPoint As String
    Dim uNumber As String
    Dim uP() As Variant
    Dim uDP
    Dim uCnt As Integer
    Dim uResult, uT As String
    Dim uLen As Integer
    On Error Resume Next
    uP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
    uNumber = Trim(Str(MyNumber))
    uDP = InStr(uNumber, ".")
    uPoint = ""
    uStrNumber = ""
    If uDP > 0 Then
    uPoint = " point "
    uStr = Mid(uNumber, uDP + 1)
    uStrPoint = Left(uStr, Len(uNumber) - uDP)
    For uFNum = 1 To Len(uStrPoint)
    uStr = Mid(uStrPoint, uFNum, 1)
    uPoint = uPoint & Digits(uStr) & " "
    Next uFNum
    uNumber = Trim(Left(uNumber, uDP - 1))
    End If
    uCnt = 0
    uResult = ""
    uT = ""
    uLen = 0
    uLen = Int(Len(Str(uNumber)) / 3)
    If (Len(Str(uNumber)) Mod 3) = 0 Then uLen = uLen - 1
    Do While uNumber ""
    If uLen = uCnt Then
    uT = HundredsDigits(Right(uNumber, 3), False)
    Else
    If uCnt = 0 Then
    uT = HundredsDigits(Right(uNumber, 3), True)
    Else
    uT = HundredsDigits(Right(uNumber, 3), False)
    End If
    End If
    If uT "" Then
    uResult = uT & uP(uCnt) & uResult
    End If
    If Len(uNumber) > 3 Then
    uNumber = Left(uNumber, Len(uNumber) - 3)
    Else
    uNumber = ""
    End If
    uCnt = uCnt + 1
    Loop
    uResult = uResult & uPoint
    SpellNumber = uResult
    End Function
    Function HundredsDigits(uHDgt, uB As Boolean)
    Dim uRStr As String
    Dim uStrNum As String
    Dim uStr As String
    Dim uI As Integer
    Dim uBB As Boolean
    uStrNum = uHDgt
    uRStr = ""
    On Error Resume Next
    uBB = True
    If Val(uStrNum) = 0 Then Exit Function
    uStrNum = Right("000" & uStrNum, 3)
    uStr = Mid(uStrNum, 1, 1)
    If uStr "0" Then
    uRStr = Digits(Mid(uStrNum, 1, 1)) & "Hundred "
    Else
    If uB Then
    uRStr = "and "
    uBB = False
    Else
    uRStr = " "
    uBB = False
    End If
    End If
    If Mid(uStrNum, 2, 2) "00" Then
    uRStr = uRStr & TenDigits(Mid(uStrNum, 2, 2), uBB)
    End If
    HundredsDigits = uRStr
    End Function
    Function TenDigits(uTDgt, uB As Boolean)
    Dim uStr As String
    Dim uI As Integer
    Dim uArr_1() As Variant
    Dim uArr_2() As Variant
    Dim uT As Boolean
    uArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
    uArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
    uStr = ""
    uT = True
    On Error Resume Next
    If Val(Left(uTDgt, 1)) = 1 Then
    uI = Val(Right(uTDgt, 1))
    If uB Then uStr = "and "
    uStr = uStr & uArr_1(uI)
    Else
    uI = Val(Left(uTDgt, 1))
    If Val(Left(uTDgt, 1)) > 1 Then
    If uB Then uStr = "and "
    uStr = uStr & uArr_2(Val(Left(uTDgt, 1)))
    uT = False
    End If
    If uStr = "" Then
    If uB Then
    uStr = "and "
    End If
    End If
    If Right(uTDgt, 1) "0" Then
    uStr = uStr & Digits(Right(uTDgt, 1))
    End If
    End If
    TenDigits = uStr
    End Function
    Function Digits(uDgt)
    Dim uStr As String
    Dim uArr_1() As Variant
    uArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
    uStr = ""
    On Error Resume Next
    uStr = uArr_1(Val(uDgt))
    Digits = uStr
    End Function
Mazhar says:
2021-09-25 at 3:12 am

hello all genius,
can anyone help me?

100000 ... when i tried this code it is coming "one hundred thousand".

i need it as "one lakh"/ or "Point million"

how can i add this extra requirement??
Naeem says:
2021-09-23 at 12:16 pm

SO Helping ... Specially by pics....
Momtaz U says:
2021-08-16 at 10:17 am

I don't know what to say. This worked for me like magic. I was looking for this for hours and at last, I found you. WOW! Let me salute you, Mr. Admin. Thank you very much.
Amon says:
2021-08-11 at 7:38 pm

Please help me with the formula for shillings
Philin says:
2021-08-02 at 12:43 pm

Hi there,

As far as VBA is often disabled for security reasons, I have written the FORMULA which spells sums up to 999 billion dollars, e.g.:

907 654 000 012,99
nine hundred and seven billion six hundred and fifty four million twelve dollars and 99 cents

The formula is sensitive to Zero thousands/mln/bln (omits thousands/mln/bln if they are 000)
Also spells "dollar" or "dollars" depending if the last digit of dollars is 1 or more (21 dollar, and 17 dollars)

Simply replace "A1" in tjhe code with the name of the cell you need (better with Ctrl-H)

---

=CONCATENATE(IF(INT(A1/1000000000)>=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(A1/1000000000)>99;CONCATENATE(CHOOSE(INT(INT(A1/1000000000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(A1/1000000000)>100;MOD(INT(A1/1000000000);100)>0);"and ";"");IF(MOD(INT(A1/1000000000);100)=0;"";IF(MOD(INT(A1/1000000000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000000000)/1000000)>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000000000)/1000000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000000000)/1000000)>100;MOD(INT(MOD(A1;1000000000)/1000000);100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000000000)/1000000);100)=0;"";IF(MOD(INT(MOD(A1;1000000000)/1000000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000000)/1000)>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000000)/1000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000000)/1000)>100;MOD(INT(MOD(A1;1000000)/1000);100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000000)/1000);100)=0;"";IF(MOD(INT(MOD(A1;1000000)/1000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000))>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000))/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000))>100;MOD(INT(MOD(A1;1000));100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000));100)=0;"";IF(MOD(INT(MOD(A1;1000));100)<20;CHOOSE(MOD(INT(MOD(A1;1000));100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine";"ten";"eleven";"twelve";"thirteen";"fourteen";"fifteen";"sixteen";"seventeen";"eighteen";"nineteen");CONCATENATE(CHOOSE(INT(MOD(INT(MOD(A1;1000));100)/10);"ERROR";"twenty";"thirty";"forty";"fifty";"sixty";"seventy";"eighty";"ninety";"MORE");CHOOSE(INT(MOD(INT(MOD(A1;1000));10))+1;"";" one";" two";" three";" four";" five";" six";" seven";" eight";" nine"))))));" ");"");IF(INT(MOD(A1;10))=1;"dollar and ";"dollars and ");ROUND(MOD(A1;1)*100;0);" cents")
1. Philin says:
  2021-08-02 at 12:51 pm
  
  Sorry, the code somehow ripped.
  Write once more:
  
  =CONCATENATE(IF(INT(A1/1000000000)>=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(A1/1000000000)>99;CONCATENATE(CHOOSE(INT(INT(A1/1000000000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(A1/1000000000)>100;MOD(INT(A1/1000000000);100)>0);"and ";"");IF(MOD(INT(A1/1000000000);100)=0;"";IF(MOD(INT(A1/1000000000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000000000)/1000000)>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000000000)/1000000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000000000)/1000000)>100;MOD(INT(MOD(A1;1000000000)/1000000);100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000000000)/1000000);100)=0;"";IF(MOD(INT(MOD(A1;1000000000)/1000000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000000)/1000)>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000000)/1000)/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000000)/1000)>100;MOD(INT(MOD(A1;1000000)/1000);100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000000)/1000);100)=0;"";IF(MOD(INT(MOD(A1;1000000)/1000);100)=1;CONCATENATE(TRIM(CONCATENATE(IF(INT(MOD(A1;1000))>99;CONCATENATE(CHOOSE(INT(INT(MOD(A1;1000))/100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine");" hundred ");"");IF(AND(INT(MOD(A1;1000))>100;MOD(INT(MOD(A1;1000));100)>0);"and ";"");IF(MOD(INT(MOD(A1;1000));100)=0;"";IF(MOD(INT(MOD(A1;1000));100)<20;CHOOSE(MOD(INT(MOD(A1;1000));100);"one";"two";"three";"four";"five";"six";"seven";"eight";"nine";"ten";"eleven";"twelve";"thirteen";"fourteen";"fifteen";"sixteen";"seventeen";"eighteen";"nineteen");CONCATENATE(CHOOSE(INT(MOD(INT(MOD(A1;1000));100)/10);"ERROR";"twenty";"thirty";"forty";"fifty";"sixty";"seventy";"eighty";"ninety";"MORE");CHOOSE(INT(MOD(INT(MOD(A1;1000));10))+1;"";" one";" two";" three";" four";" five";" six";" seven";" eight";" nine"))))));" ");"");IF(INT(MOD(A1;10))=1;"dollar and ";"dollars and ");ROUND(MOD(A1;1)*100;0);" cents")
  1. Philin says:
    2021-08-02 at 12:56 pm
    
    sorry again, the code rips while publishing... half the text simply disappears :(
KRISHNAN says:
2021-06-29 at 11:06 am

Hi Friends,

Could you tell me the code where I can mention "and" before the last figures e.g. Rs 1,987,290
(Rupees one million nine Hundred eighty seven thousand two hundred and ninety only)
Mohammed Nishad Irshad says:
2021-06-11 at 8:09 am

Hi,

First of all thanks for the wonderful formulas. May I get the formula for UAE dirham and Indian Rupees as well
asil says:
2021-05-08 at 7:24 pm

Thanks from yours formula
MARY GRACE GANANCIAS says:
2021-04-26 at 4:17 am

hi can you help me

I want to convert amount like this;

Php. 1,982.56

one thousand nine hundred eighty two pesos & 56/100 only
shir says:
2021-04-20 at 7:47 am

I'd like to convert the digits to words but without the "dollar or cents"
i.e. 342,880 will be:
"Three Hundred Forty Two Thousand Eight Hundred and Eighty"
and not
"Three Hundred Forty Two Thousand Eight Hundred Eighty Dollars and No Cents"

how do I do that? thank you!
Satyajit Sarkar says:
2021-04-20 at 3:07 am

Hi, Please insert INR in currency too.
amir says:
2021-04-11 at 10:56 pm

There's Error ????

Option Explicit

'Main Function

Function SpellNumber(ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "

' String representation of amount.

MyNumber = Trim(Str(MyNumber))

' Position of decimal place 0 if none.

DecimalPlace = InStr(MyNumber, ".")

' Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Count = 1

Do While MyNumber ""

Temp = GetHundreds(Right(MyNumber, 3))

If Temp "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 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 No Cents"

Case "One"

Cents = " and One Cent"

Case Else

Cents = " and " & Cents & " Cents"

End Select

SpellNumber = Dollars & Cents

End Function

' Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right("000" & MyNumber, 3)

' Convert the hundreds place.

If Mid(MyNumber, 1, 1) "0" Then

Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

End If

' Convert the tens and ones place.

If Mid(MyNumber, 2, 1) "0" Then

Result = Result & GetTens(Mid(MyNumber, 2))

Else

Result = Result & GetDigit(Mid(MyNumber, 3))

End If

GetHundreds = Result

End Function

' Converts a number from 10 to 99 into text.

Function GetTens(TensText)

Dim Result As String

Result = "" ' Null out the temporary function value.

If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

Select Case Val(TensText)

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 ' If value between 20-99...

Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.

End If

GetTens = Result

End Function

' Converts a number from 1 to 9 into text.

Function GetDigit(Digit)

Select Case Val(Digit)

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
TJAY says:
2021-04-05 at 7:51 am

Can any body help for Omani Rials Formulae, for digit to word conversion?
I am trying to copy Bahraini Dinar formulae but getting syntax error : do while Mynumber " ".

thanks
Ragesh says:
2021-03-25 at 11:50 am

For Bahrani dinar i'm getting error- compile error: syntax error. Do While MyNumber " "

Please assist
Alaa Baldawi says:
2021-03-23 at 8:58 am

Hello Brother....

I wanna change numbers to arabic text .... like this:

40 will be اربعون

can you help me please
Sheela says:
2021-03-19 at 7:18 am

How about Philippine Peso? How can I Convert excel number to Word. Thank you
1. nemo says:
  2023-03-24 at 9:02 am
  
  Changes dollar words to Peso and Cents to Centavos.
vy says:
2021-03-13 at 8:58 am

the debugging taking to long.
vasudev palav says:
2021-03-05 at 9:34 am

It works...great...!!
I just want small correction in the formula:

When I am trying to convert Number 11726.27 it gives me the answer as:

Eleven Thousand Seven Hundred Twenty Six Dollars and Twenty Seven Cents

I need Dollars to be mention at the starting as well Cents to be mentioned at starting. i.e.
USD Eleven Thousand Seven Hundred Twenty Six and Cents Twenty Seven only.

Can I get the code for this? Please.
dona says:
2021-03-04 at 8:01 pm

how to set excel formulas number to word in lebanese pound only ?
Aijaz Khan says:
2021-02-24 at 12:17 pm

How can I change to Omani Riyal & Baise or no currency either one will be helpful.

Thanks
Isaac Njuguna says:
2021-02-24 at 5:40 am

How can I change the Currency from Dollars to Kenya shillings. Is there a way when using visual basic
A Sale says:
2021-02-17 at 6:50 pm

Thanks, Worked perfectly
lakshman says:
2021-02-17 at 5:34 am

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

In this code something wrong where we use in Indian Currency there it should come as "one laksh twenty six thousand seven hundred rupees only" but the output is like
"one hundred twenty six thousand seven hundred rupees only.

where exactly the code has to change ... can anyone support me for clear the issue.
lakshman says:
2021-02-17 at 5:33 am

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Loop
Select Case Rupees
Case ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupee"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " One Paise Only"

Case Else
Paise = " and " & Paise & " Paise Only"
End Select
SpellNumber = Rupees & Paise
End Function

Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
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 ' If value between 20-99...
Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

Function GetDigit(Digit)
Select Case Val(Digit)
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

In this code something wrong where we use in Indian Currency there it should come as "one laksh twenty six thousand seven hundred rupees only" but the output is like
"one hundred twenty six thousand seven hundred rupees only.

where exactly the code has to change ... can anyone support me for clear the issue.
sheva says:
2021-02-16 at 8:34 am

Hi

how to set excel formulas number to word in Malaysia Ringgit.

sample: RM 3181.60
three thousand one hundred eighty one and cents sixty only

sample: RM20.00
twenty ringgit only

(how to set?) please help to set this.
Mohammad Sohel says:
2021-02-10 at 4:42 am

it works only those files where I applied this code. but when I open another/new file it not works.
1. Alexander Trifuntov (Ablebits Team) says:
  2021-02-10 at 8:29 am
  
  Hi,
  You need to place the code in each file, or use add-in as described in the manual above.
  Please check out the following article on our blog, it’ll be sure to help you with your task: Personal Macro Workbook in Excel - make macros available in all workbooks.
Narasi says:
2021-02-07 at 6:20 am

Thank you. Very useful utility
LINDO ALEX says:
2021-02-06 at 2:33 pm

3 Decimal.
Bahraini Dinar

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dinar, fils, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to Dinar amount.
If DecimalPlace > 0 Then
fils = GetHundreds(Left(Mid(MyNumber, DecimalPlace + 1) & _
"000", 3))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Dinar = Temp & Place(Count) & Dinar
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dinar
Case ""
Dinar = "No Dinar"
Case "One"
Dinar = "One Dinar"
Case Else
Dinar = Dinar & " Dinar"
End Select
Select Case fils
Case ""
fils = " and No fils"
Case "One"
fils = " and One fils"
Case Else
fils = " and " & fils & " fils"
End Select
SpellNumber = Dinar & fils
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
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 ' If value between 20-99...
Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
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
1. anni says:
  2023-03-06 at 11:03 am
  
  hi i cannot make it any one can help
2. Zaka says:
  2021-08-21 at 3:16 pm
  
  hi this is zaka working in Dubai, how i convert number to AED in excel
  my number is +971 555 246 286
Suman Dev says:
2021-02-05 at 2:03 pm

Sir,
I Need a formulae for qty Incl Kgs, Ltrs and Nos & Amount all. Will you help me
ZOE says:
2021-02-04 at 4:49 am

Hi

how to set excel formulas number to word in Malaysia Ringgit.

sample: RM 3181.6
three thousand one hundred eighty one and cents sixty only (how to set?)
Ash says:
2021-02-03 at 5:12 am

How to set excel formulas number to word in a Malaysian Ringgit MYR?
Santhosh Kumar Tirunahari says:
2021-01-31 at 8:34 pm

Hi Md.Delwar,

Try this for indian rupees and paises:

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "

MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 2))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Loop
Select Case Rupees
Case ""
Rupees = ""
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupee"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " One Paise Only"

Case Else
Paise = " and " & Paise & " Paise Only"
End Select
SpellNumber = Rupees & Paise
End Function

Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
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 ' If value between 20-99...
Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

Function GetDigit(Digit)
Select Case Val(Digit)
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

Comments on: Two best ways to convert numbers to words in Excel

Comments page 2. Total comments: 530