Converting Numbers Into Words

Just a quick language-related aside:
On revisiting this tip I noticed that the text version of 40 is given as "fourty". This struck me as odd, so I did some searching and found that the correct spelling is "forty" - and it doesn't seem to be yet another English vs American difference.
The fact that, by contrast, the text version of 14 is "fourteen" is one of the quirks of the language.
Fortunately any change to the coding would be quick and simple.

Thanks, Peter 👍

@Kiwerry: If you are interested in Word fields, look at http://www.gmayor.com/formatting_word_fields.htm

@Mike: Thanks for the heads-up - this time it worked.

@Kiwerry: It might be worth one more try - I just tested it and it was back.

@Peter: Thanks very much for the useful link to an interesting article😉 Some of the figures seem to be missing and the link to a PDF version didn't work but most of the important information is still there. I'll be trying that out.

Coincidentally, today I discovered that Word can convert dollar amounts to words: { tfValue1 \*Dollartext \*FirstCap } (
from ttps://www.techrepublic.com/article/10-power-tricks-for-using-word-field-switches/)

@Mike: Thanks for the hint, but when I tried it the result was an error. I tried another browser, checked that I had not made a mistake selecting the text in your link, same. Tried removing everything after ".com" and took a look around the site and used its search. No success. My impression was that the source code has been removed and the functionality is now part of a package called kutools, which you have to buy.

Another excellent version can be found here.

https://www.extendoffice.com/documents/excel/1446-excel-convert-change-numbers-to-words.html

Much longer than Willy Vanhaelen's version, but handles 15 digit precision, including decimals, so up to 999 Trillion and down to 0.000000000000001

Woolley
thanks.

You can download an early version of "spell dollars" from Chapter 9 of John Walkenbach's "Excel 2013 Power Programming with VBA." It is easy to customize. See
https://www.wiley.com/en-us/Excel+2013+Power+Programming+with+VBA-p-9781118490396#downloads-section

Kimberly, Pl share your code. my email id is sandeepkothari2010@gmail.com.
thanks.

Interesting macro that performs this very complex operation impeccably. It is a school book example of defining arrays and how to populate them but this makes it very long however.

Thinking that a user defined function (UDF) version would be more useful I decided to adapt it and while doing so I found that, especially the three functions, are prone to compaction. This can be achieved by using the Split method which makes the making of the arrays considerably shorter.

Declaring the sTemp, iTemp1 and iTemp2 variables in each function, assigning the result of a rather simple formula like "lNumber Mod 10" to them and then use it only a few times is rather cumbersome. In this case I prefer to put those formulas directly where they are needed. This also makes easier to understand the working of the function:
SetOnces(Nr Mod 10) is easier than SetOnes(iTemp2). What is it again what iTemp2 contains? :-)

Here is the result of my work (only half the size of the macro):

Function Number2Words(Nr)
If Not IsNumeric(Nr) Then GoTo wrong
If Nr <> CLng(Nr) Then GoTo wrong
Nr = CLng(Nr)
Select Case Nr
   Case 0:           Number2Words = "Zero"
   Case 1 To 999999: Number2Words = SetThousands(Nr)
   Case Else:        GoTo wrong
End Select
Exit Function
wrong:
Number2Words = "Argument must be a positive integer max. 999999"
End Function

Private Function SetOnes(ByVal Nr As Integer) As String
SetOnes = Split("0 One Two Three Four Five Six Seven Eight Nine")(Nr)
End Function

Private Function SetTens(ByVal Nr As Integer) As String
If Nr > 10 And Nr < 20 Then
   SetTens = Split("0 Eleven Twelve Thirteen Fourteen Fifteen" _
      & " Sixteen Seventeen Eighteen Nineteen")(Nr - 10)
Else
   SetTens=Split("0 Ten Twenty Thirty Fourty Fifty Sixty Seventy Eighty Ninety")(Nr\10)
   If Nr Mod 10 > 0 Then SetTens = SetTens & " " & SetOnes(Nr Mod 10)
End If
End Function

Private Function SetHundreds(ByVal Nr As Integer) As String
If Nr \ 100 Then SetHundreds = SetOnes(Nr \ 100) & " Hundred"
If Nr Mod 100 > 0 Then
   If SetHundreds > "" Then SetHundreds = SetHundreds & " "
   If Nr Mod 100 < 10 Then SetHundreds = SetHundreds & SetOnes(Nr Mod 100)
   If Nr Mod 100 > 9 Then SetHundreds = SetHundreds & SetTens(Nr Mod 100)
End If
End Function

Private Function SetThousands(ByVal Nr As Long) As String
If Nr \ 1000 > 0 Then SetThousands = SetHundreds(Nr \ 1000) & " Thousand"
If Nr Mod 1000 > 0 Then
   If SetThousands > "" Then SetThousands = SetThousands & " "
   SetThousands = SetThousands & SetHundreds(Nr Mod 1000)
End If
End Function

To use this UDF enter either =Number2Words(1234) in any cell or if cell A1 contains a number you can enter in cell B2 =Number2Words(A1).

@J Woolley: thanks for the pointer, I'll take a look.
Pity there seems to be no way to use User Defined Functions in Word as well.

My Excel Toolbox includes the following functions:
SpellDecimal(Amount)
SpellDollars(Amount)
SpellOrdinal(Amount)
Amount can have up to 15 significant digits.
Here are examples results for Amount=123.456:
One Hundred Twenty-Three point Four Five Six
One Hundred Twenty-Three & 46/100 Dollars
One Hundred Twenty-Third
See https://sites.google.com/view/MyExcelToolbox/

Thanks for yet another useful tool, Allen

I did some tweaking so that it can handle numbers between -999999 and + 999999 (as is it doesn't translate negative numbers), and used your sub as the basis for a complementary function which may be used as a user-defined function.
I also added some coding to check the application language ID and add the word "and" for UK, South African, New Zealand, Australian and Irish installations. This so that, for example, 123 translates to "One Hundred and Twenty Three"

If anyone is interested in the code leave a comment here and I'll post it.