Saturday , October 19 2019
Breaking News
Home / DCA / How to convert number to words in Excel

How to convert number to words in Excel

Microsoft Excel is a spreadsheet developed by macOS, Android and iOS. It features calculation, graphing tools, pivot tables, and a macro programming language called Visual Basic for Applications. It has been a very widely applied spreadsheet for these platforms, especially since version 5 in 1993, and it has replaced Lotus 1-2-3 as the industry standard for spreadsheets. Excel forms part of Microsoft Office. Use Visual Basic for Applications with the help of Macro programming.

The Windows version of Excel supports programming through Microsoft’s Visual Basic for Applications (VBA), which is a dialect of Visual Basic. Programming with VBA allows spreadsheet manipulation that is awkward or impossible with standard spreadsheet techniques. Programmers may write code directly using the Visual Basic Editor (VBE), which includes a window for writing code, debugging code, and code module organization environment. The user can implement numerical methods as well as automating tasks such as formatting or data organization in VBA and guide the calculation using any desired intermediate results reported back to the spreadsheet. we can create a module to How to convert number to words in Excel.

Read:- 7 Types of Hacker You Should Know

Now apply all these step to convert number to word in excel sheet.

Step 1:- Press Windows + R key then Run Command will be open on screen. Step 2:- Then type here “EXCEL” . Step 3:-  Excel will open. Step 4:- Now type any number then type “=spellnumber(now select any one cell where any number exist)” You can see that it will no work. Step 5:- Now press “ALT + F11” (in simple keyboard), OR “ALT + FN + F11” (in functional keyboard (in laptop)). Step 6:-  Now click on “INSERT” Menu Bar Then select “MODULE” Option. Step 7:- Now copy all this command you can also download this command . Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SpellNumber = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function

Step 8:- Then copied text will be paste on new module. press right click on new module option then paste. Step 9:- Now click on “File” menu bar then click on “Save Book” OR You can press “CTRL + S“. Step 10:- Now give file Name then select “Save as type:- Excel Macro Enabled Workbook” Option. Step 11:- Now click On “Save” Option. Step 12:- Now Write “=spellnumber(then select any cell where number is exist)” Now you can see the result. I hope that you understand my post. if you like this post then share my post, and comment on my post if you have any suggestion or Queries related to Excel. Thank you!

Check Also

Download And Activate Microsoft Office for lifetime Microsoft Office is a family of client software, …

1. I think other site proprietors should take this web site as an model, very clean and excellent user genial style and design, as well as the content. You’re an expert in this topic!

2. Some genuinely interesting details you have written.Aided me a lot, just what I was searching for : D.

3. Great blog! Is your theme custom made or did you download it from somewhere?

A theme like yours with a few simple adjustements would really
make my blog jump out. Please let me know where you got your theme.

With thanks

4. I’d like to find out more? I’d love to find out some additional information.

5. It’s appropriate time to make some plans for the
future and it’s time to be happy. I have read this post and
if I could I desire to suggest you few interesting things or
advice. Maybe you could write next articles

6. Sweet blog! I found it while searching on Yahoo News.
Do you have any tips on how to get listed in Yahoo News?
I’ve been trying for a while but I never seem to get there!
Appreciate it

7. Hey there just wanted to give you a brief heads up and let you know a few of the pictures aren’t loading properly.

I’m not sure why but I think its a linking issue. I’ve tried it in two different internet browsers and
both show the same results.

8. I am extremely impressed with your writing skills and also with the layout on your weblog.

Is this a paid theme or did you modify it yourself?
Either way keep up the nice quality writing, it’s rare to see a great blog like this one today.

9. Heya are using WordPress for your blog platform?

I’m new to the blog world but I’m trying to get started and create my own. Do you require any coding knowledge to make your own blog?
Any help would be greatly appreciated!