Previous Topic Next Topic

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.
Related:

2 replies

Answer 1 / 2
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
Thank you

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

CCM 2942 users have said thank you to us this month

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

May the following link guide you to your solution:
https://support.microsoft.com/nl-nl/office/getallen-converteren-naar-woorden-a0d166fb-e1ea-4090-95c8-69442cd55d98?ui=nl-nl&rs=nl-nl&ad=nl

Best regards,
Trowa
Report
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".
Ask a question