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
|