How to Convert Number to Words in Excel Without VBA

We often need to convert a number to words in Excel for various purposes. We can use it frequently in shops, educational institutes, banks, etc. A popular way to do this is using Excel. But there are two ways to convert from numbers to words. One is using the VBA code and the other is without VBA. In this article, we will learn how to convert numbers to words in Excel without VBA. We will also show how to do it with VBA as well for better understanding.

How to Convert Number to Words in Excel Without VBA: Step-by-Step Procedures

We will use a formula to convert number to words in Excel without VBA. Since Excel may contain very big numbers, the formula needs to be built in such a way that it can convert any number to words. So our first step should be building the formula. And the next step is to implement it in Excel to convert number to words without VBA.

Here we can consider the following Dataset. Also, we have some numbers that we want to convert to words.

Step 1: Building a Formula to Convert from Number to Words

Here we will be using a combined formula that can cover bigger numbers as well. So the formula is huge but it does give us the expected output.

The formula is:

Read More: How to Use Spell Number in Excel

Step 2: Applying the Formula in Excel

To apply this formula in Excel and convert numbers to words in Excel, we will follow the steps below:

• At first, we need to select the cell where we want the converted word of a number. In our case it’s C5.
• In addition, copy the entire formula and paste it into the C5 cell.

• As a result, pressing Enter will give us the converted word output of the adjacent B5 cell’s numeric value.

• Further, select cell C5, then drag the Fill Handle to the bottom where our members end. In our case, we need to pull it down to C13.

• At last, we will have the result as follows.

Convert Number to Words in Excel with VBA

We can convert numbers to words using the VBA code in Excel as well. To do so, we need to follow these steps.

Steps:

• Firstly, go to the Developer tab in the Ribbon tab and click on Visual Basic. A new window will appear.

• Secondly, in the window click on Insert and then click on Module.

• Thirdly, copy the following code and paste it into the window:

Function SpellNumber(ByVal MyNumber)
Dim uStr As String
Dim uFNum As Integer
Dim uStrPoint
Dim uStrNumber
Dim uPoint As String
Dim uNumber As String
Dim uP() As Variant
Dim uDP
Dim uCnt As Integer
Dim uResult, uT As String
Dim uLen As Integer
On Error Resume Next
uP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
uNumber = Trim(Str(MyNumber))
uDP = InStr(uNumber, ".")
uPoint = ""
uStrNumber = ""
If uDP > 0 Then
uPoint = " point "
uStr = Mid(uNumber, uDP + 1)
uStrPoint = Left(uStr, Len(uNumber) - uDP)
For uFNum = 1 To Len(uStrPoint)
uStr = Mid(uStrPoint, uFNum, 1)
uPoint = uPoint & Digits(uStr) & " "
Next uFNum
uNumber = Trim(Left(uNumber, uDP - 1))
End If
uCnt = 0
uResult = ""
uT = ""
uLen = 0
uLen = Int(Len(Str(uNumber)) / 3)
If (Len(Str(uNumber)) Mod 3) = 0 Then uLen = uLen - 1
Do While uNumber <> ""
If uLen = uCnt Then
uT = HundredsDigits(Right(uNumber, 3), False)
Else
If uCnt = 0 Then
uT = HundredsDigits(Right(uNumber, 3), True)
Else
uT = HundredsDigits(Right(uNumber, 3), False)
End If
End If
If uT <> "" Then
uResult = uT & uP(uCnt) & uResult
End If
If Len(uNumber) > 3 Then
uNumber = Left(uNumber, Len(uNumber) - 3)
Else
uNumber = ""
End If
uCnt = uCnt + 1
Loop
uResult = uResult & uPoint
SpellNumber = uResult
End Function
Function HundredsDigits(uHDgt, uB As Boolean)
Dim uRStr As String
Dim uStrNum As String
Dim uStr As String
Dim uI As Integer
Dim uBB As Boolean
uStrNum = uHDgt
uRStr = ""
On Error Resume Next
uBB = True
If Val(uStrNum) = 0 Then Exit Function
uStrNum = Right("000" & uStrNum, 3)
uStr = Mid(uStrNum, 1, 1)
If uStr <> "0" Then
uRStr = Digits(Mid(uStrNum, 1, 1)) & "Hundred "
Else
If uB Then
uRStr = "and "
uBB = False
Else
uRStr = " "
uBB = False
End If
End If
If Mid(uStrNum, 2, 2) <> "00" Then
uRStr = uRStr & TenDigits(Mid(uStrNum, 2, 2), uBB)
End If
HundredsDigits = uRStr
End Function
Function TenDigits(uTDgt, uB As Boolean)
Dim uStr As String
Dim uI As Integer
Dim uArr_1() As Variant
Dim uArr_2() As Variant
Dim uT As Boolean
uArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
uArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
uStr = ""
uT = True
On Error Resume Next
If Val(Left(uTDgt, 1)) = 1 Then
uI = Val(Right(uTDgt, 1))
If uB Then uStr = "and "
uStr = uStr & uArr_1(uI)
Else
uI = Val(Left(uTDgt, 1))
If Val(Left(uTDgt, 1)) > 1 Then
If uB Then uStr = "and "
uStr = uStr & uArr_2(Val(Left(uTDgt, 1)))
uT = False
End If
If uStr = "" Then
If uB Then
uStr = "and "
End If
End If
If Right(uTDgt, 1) <> "0" Then
uStr = uStr & Digits(Right(uTDgt, 1))
End If
End If
TenDigits = uStr
End Function
Function Digits(uDgt)
Dim uStr As String
Dim uArr_1() As Variant
uArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
uStr = ""
On Error Resume Next
uStr = uArr_1(Val(uDgt))
Digits = uStr
End Function

• After that, save the file as a macro-enabled Excel file with xlsm extension.
• Then select the C5 And in the cell and write ‘=SpellNumber(B5)’. Since our numeric data is in B5, here we wrote B5.

• Furthermore, by pressing Enter, We will get the word converted version of the number.

• Finally, drag the Fill Handle from C5 to C13 as before. We will have our results.

Things to Remember

• While practicing, we need to change the cell value of the formula. We need to replace each cell value with the cell you want.
• Moreover, the formula can show output only up to 2 decimal places.
• For higher decimal places, we need to go with the VBA method.

Download Practice Workbook

Conclusion

Number to words in Excel is a useful topic in terms of education and banking. Hope this article will help you with this purpose. If you’re still having trouble with any of these methods, let us know in the comments. Our team is ready to answer all of your questions.

Related Articles

• How to Convert Number to Words in Excel 
• How to Spell Number in Taka in Excel
• How to Spell Number in Dirhams in Excel 
• [Solved] Spell Number Not Working in Excel
• How to Convert Peso Number to Words in Excel
• How to Convert Number to Words in Excel in Rupees 
• How to Spell Number Without Currency in Excel

<< Go Back to Spell Number in Excel | Convert Number to Text | Learn Excel