Ask a question Report Reply to this topic

Convert number to words in excel

arunraaj 2 Posts Thursday February 15, 2018Registration date February 16, 2018 Last seen - Feb 15, 2018 at 03:39 AM - Latest reply: TrowaD 2345 Posts Sunday September 12, 2010Registration dateModeratorStatus April 23, 2018 Last seen

- Feb 22, 2018 at 11:04 AM

Excel Ask a question Report Reply to this topic

Hello,

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

3 replies

Reply to this topic

Report Respond to TrowaD

TrowaD 2345 Posts Sunday September 12, 2010Registration dateModeratorStatus April 23, 2018 Last seen - Feb 15, 2018 at 11:42 AM

Helpful

Hi Arunraaj,

May the following link guide you to your solution:
https://support.microsoft.com/nl-nl/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel

Best regards,
Trowa

Report Respond to arunraaj

arunraaj 2 Posts Thursday February 15, 2018Registration date February 16, 2018 Last seen - Feb 16, 2018 at 12:21 AM

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

Report Respond to TrowaD

TrowaD 2345 Posts Sunday September 12, 2010Registration dateModeratorStatus April 23, 2018 Last seen - Feb 22, 2018 at 11:04 AM

Helpful

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

Reply to this topic

Ask a question