How to convert Number into word in Excel?

How to convert Number into word in Excel?


 1. Open MS Excel.
2. Press Alt+F11 it will open Visual Basic editor.

3. Click on Insert->Module
Excel Visual Basic editor - insert module

4. In module copy following code and paste it.
SpellNumber VBA macro to convert numbers to words
============================================
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
===================================================
5. Close Visual Basic Editor.
6. Save Excel file with "Excel-Macro Enabled Workbook" with extenuation ".xlsm".
Save your book as 'Excel macro-enabled workbook'

 7. Open Saved excel and use =SpellNumber() function to convert numbers into word.
Use SpellNumber macro in your Excel worksheets


Comments

Post a Comment

Popular posts from this blog

How to Enable Recycle Bin on Mapped drive.

Image
How to Enable Recycle Bin on Mapped Drive. Here is the solution for enabling Recycle Bin on Mapped Drive. I have tested it in My existing environment Windows Server 2019 and Windows Server 2012 and it's running fine.  Step 1. Press Win+R and type regedit and hit the enter key. Step 2. Goto " HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions " Step 3. Press Right Click on Mouse and Create New Key under FolderDescriptions and paste  " {9147E464-33A6-48E2-A3C9-361EFD417DEF} " as value. Step 4. After creating the key Right Click under  " {9147E464-33A6-48E2-A3C9-361EFD417DEF} " and Create New REG_DWORD-32Bit with Name = Category and set Value to 4. Step 5. Create New String with Name = RelativePath and set the value to Y:\  (Note: Replace volume letter Y with your existing letter. ) Step 6.  Create New String with Name = Name  and set the  value to YDrive Step 7. Goto " HKCU\Software\Microsoft\Windows\CurrentVersion\Exp...
Read more

How To Setup Internet Access Priority With Multiple Networks On Windows

Image
How To Setup Internet Access Priority With Multiple Networks On Windows If you are using multiple NIC's (Network Adapters) to access more than one network, it gets tricky from where you internet connection comes from. Here is one such scenario and solution to make Microsoft Windows prioritize internet connection from a particular network over the other. In my example setup I have one LAN connection (192.168.0.1) and one  WiFi  connection  (192.168.1.1) and would like Windows to use internet from my fixed-line broadband connected via LAN. To get started with configuring the internet access priority on your Windows computer, follow the steps below : Setup Network Card Priority at  Control Panel -> Network and Internet -> Network Connections -> Advanced menu –> Advanced settings . However, the above will not prioritize the internet access. To achieve that "Right-click on your  network  adapter " and click "Properties". Clic...
Read more

Fix: Documents Folder opens automatically at Windows Startup.

Image
Fix: Documents Folder opens automatically at Windows Startup Some often report this strange but quite annoying issue. While logging in to the computer, the Computer folder or the Documents folder opens automatically at Windows Startup . Unless you have placed its shortcut in the Startup folder, the most likely cause of this issue is the  incorrect or duplicated Usernit value in the Windows Registry. The fix for this problem does exists, but it requires modifying the registry. Serious problems might occur if you modify the registry incorrectly. Therefore, it is essential you follow these steps carefully. For added protection, back up the registry before you modify it or else create a  system restore point  first. Then, you can restore or revert if the changes are not what you expected. Documents folder opens automatically If when you start your  Windows 8  | 7, the This PC / Computer or Documents folder opens up automatically at start-up, first check...
Read more