Transfer numbers
Hi all ,
Is there any functions that I can use to transfer all the numbers to words. for example: 1 one 2 two 3 three 4 four 5 five .......... I need this kind of transfer for number 1 to number 100. Thanks lots for any inputs. Meme |
Transfer numbers
Meme,
Copy the Function below and paste it into a code module in your workbook, then use it like =MakeWord(A1) HTH, Bernie MS Excel MVP Function MakeWord(InValue As Integer) As String Dim unitWord As Variant Dim n As Integer Dim tenWord As Variant Dim hund As Integer Dim ten As Integer Dim unit As Integer unitWord = Array("", "one", "two", "three", "four", "five", _ "six", "seven", "eight", "nine", "ten", "eleven", _ "twelve", "thirteen", "fourteen", "fifteen", "sixteen", _ "seventeen", "eighteen", "nineteen") tenWord = Array("", "ten", "twenty", "thirty", "forty", "fifty", _ "sixty", "seventy", "eighty", "ninety") MakeWord = "" n = InValue If n = 0 Then MakeWord = "zero" End If hund = n \ 100 If hund 0 Then MakeWord = MakeWord & MakeWord(Int(hund)) & " hundred " End If n = n - hund * 100 If n < 20 Then ten = n MakeWord = MakeWord & unitWord(ten) & " " Else ten = n \ 10 MakeWord = MakeWord & tenWord(ten) & " " unit = n - ten * 10 MakeWord = Trim(MakeWord & unitWord(unit)) End If MakeWord = Application.WorksheetFunction.Proper(Trim(MakeWord )) End Function "Meme" wrote in message ... Hi all , Is there any functions that I can use to transfer all the numbers to words. for example: 1 one 2 two 3 three 4 four 5 five ......... I need this kind of transfer for number 1 to number 100. Thanks lots for any inputs. Meme |
All times are GMT +1. The time now is 12:07 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com