Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
bank transfer error numbers display from workbook to csv | Excel Worksheet Functions | |||
t-shit transfer - transfer | Excel Discussion (Misc queries) | |||
add numbers in a column and transfer result to another column | Excel Worksheet Functions | |||
Numbers I enter on one sheet transfer onto others sometimes. Why? | Excel Discussion (Misc queries) | |||
How I can transfer numbers in to text | New Users to Excel |