Convert number to words in excel

[Closed]
Report
Posts
2
Registration date
Thursday February 15, 2018
Status
Member
Last seen
February 16, 2018
-
Posts
2807
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
September 21, 2021
-
Hello,

how to convert numbers to words in excel like 113 as one one three.

2 replies

Posts
2807
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
September 21, 2021
482
Hi Arunraaj,

Well, it was suppose to guide you.

Here is a modified version:
Function NumbersToWord(ByVal MyNumber)
Dim x As Integer
Dim Result As String

For x = 1 To Len(MyNumber)
    Result = Result & GetDigit(Mid(MyNumber, x, 1)) & " "
Next x

NumbersToWord = Result
End Function

Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 0: GetDigit = "Zero"
        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"
    End Select
End Function


Best regards,
Trowa
1
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2942 users have said thank you to us this month

Posts
2807
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
September 21, 2021
482
Posts
2
Registration date
Thursday February 15, 2018
Status
Member
Last seen
February 16, 2018

i don't want above type answer, i want, like "112" then "one one two", "450" then "four five zero".