Convert number to words in excel [Closed]

Report
Posts
2
Registration date
Thursday February 15, 2018
Status
Member
Last seen
February 16, 2018
-
Posts
2696
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 28, 2021
-
Hello,

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

2 replies

Posts
2696
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 28, 2021
457
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
2696
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 28, 2021
457
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".

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!