Previous Topic Next Topic

Convert number to words in excel

Closed
arunraaj Posts 2 Registration date Thursday February 15, 2018 Status Member Last seen February 16, 2018 - Updated on Feb 15, 2018 at 03:44 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Feb 22, 2018 at 11:04 AM
Hello,

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

2 replies

Answer 1 / 2
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 545
Feb 22, 2018 at 11:04 AM
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
Answer 2 / 2
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 545
Feb 15, 2018 at 11:42 AM
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
0
arunraaj Posts 2 Registration date Thursday February 15, 2018 Status Member Last seen February 16, 2018
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".
0