In excell, spell or convert decimals to word

[apgmin]

I need help to convert decimals to word, example
1. The number 3.04 in Cell A1 should be spelled as Three point zero four zero in say Cell A2 similarly
2. The number 3.44 in Cell A1 should be spelled as Three point four four zero in say Cell A2 similarly
3. The number 3.446 in Cell A1 should be spelled as Three point four four six in say Cell A2

 

[skorpionkz]

Couple years ago I prepared converter to do this, but it works for up to 2 decimal places (converting currencies on the payment sheet). If you want I can give you this so you can play around.

 

[apgmin]

Couple years ago I prepared converter to do this, but it works for up to 2 decimal places (converting currencies on the payment sheet). If you want I can give you this so you can play around.

I am a novice.

If you can make it till 3 decimals it will make my life. I will not be able to do it myself. Please help

 

[skorpionkz]

try this Function:

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code
2. Open your NEW workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code
7. Press the keys ALT + Q to exit the Editor, and return to Excel

Function nConvert(iNum As String) As String


Dim nLen As Long
Dim cNum As String, NumConv As String


nLen = Len(iNum)
NumConv = Empty


For i = 1 To nLen
cNum = Mid(iNum, i, 1)
    If cNum = "0" Then
        NumConv = NumConv & "zero "
    ElseIf cNum = "1" Then
        NumConv = NumConv & "one "
    ElseIf cNum = "2" Then
        NumConv = NumConv & "two "
    ElseIf cNum = "3" Then
        NumConv = NumConv & "three "
    ElseIf cNum = "4" Then
        NumConv = NumConv & "four "
    ElseIf cNum = "5" Then
        NumConv = NumConv & "five "
    ElseIf cNum = "6" Then
        NumConv = NumConv & "six "
    ElseIf cNum = "7" Then
        NumConv = NumConv & "seven "
    ElseIf cNum = "8" Then
        NumConv = NumConv & "eight "
    ElseIf cNum = "9" Then
        NumConv = NumConv & "nine "
    ElseIf cNum = "." Then
        NumConv = NumConv & "point "
    End If
Next i


NumConv = Trim(NumConv)
nConvert = NumConv
End Function

	A	B
one point two five
zero point six five four
three point two five four

<colgroup><col style="width: 30px; font-weight: bold;"><col style="width: 64px;"><col style="width: 163px;"></colgroup><tbody>
[TD="bgcolor: #CACACA, align: center"]1[/TD]
[TD="align: right"]1.25[/TD]

[TD="bgcolor: #CACACA, align: center"]2[/TD]
[TD="align: right"]0.654[/TD]

[TD="bgcolor: #CACACA, align: center"]3[/TD]
[TD="align: right"]3.254[/TD]

</tbody>

Cell Function B1 =nConvert(A1) B2 =nConvert(A2) B3 =nConvert(A3) <tbody> </tbody>

<tbody>
</tbody>