Question about Microsoft Excel for PC

How to convert numbers into words in MS excel?

Posted by on

• Level 3:

An expert who has achieved level 3 by getting 1000 points

All-Star:

An expert that got 10 achievements.

MVP:

An expert that got 5 achievements.

President:

An expert whose answer got voted for 500 times.

• Master

1. Insert a module sheet into a workbook. To do this in Microsoft Excel 97 or Microsoft Excel 98, point to Macro on the Tools menu, and then click Visual Basic Editor. In the Visual Basic Editor, click Module on the Insert menu. In Microsoft Excel 5.0 or 7.0, point to Macro on the Insert menu and click Module.

2. Type the following code into the module sheet.
Option Explicit '**************** ' Main Function * '**************** Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function '******************************************* ' Converts a number from 100-999 into text * '******************************************* Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function '********************************************* ' Converts a number from 10 to 99 into text. * '********************************************* Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function '******************************************* ' Converts a number from 1 to 9 into text. * '******************************************* Function GetDigit(Digit) Select Case Val(Digit) 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" Case Else: GetDigit = "" End Select End Function To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function (Shift+F3).

Posted on Jan 19, 2009

Hi,
a 6ya expert can help you resolve that issue over the phone in a minute or two.
best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
goodluck!

Posted on Jan 02, 2017

×

my-video-file.mp4

×

Related Questions:

In my PC Office 2003 is installed. Now sometimes I received Word & Excell 2007 files which is not opening in my PC. Can you tell me without installing Office 2007 how can I convert those docx and xlsx...

You don't have to convert the .docX or .xlsX to view in MS Office 2003, just install the "Microsoft Office Compatibility Pack for Word, Excel, and PowerPoint File Formats" and you should be able to open files, created or saved as the MS Office 2007 format.

If you need to edit the files you can too, but you will saved it in the MS Office 2003 formats.

Hope it helps.

Feb 18, 2011 | Computers & Internet

What is ms-excel

ms excel is a program that you can make graphs and set up all sorts of things like prices at a petrol station on the front neon sign you can set it up that each time the price rises it will automatically increase that rise in dollars and cents
hope this helps

Feb 15, 2011 | Broderbund Learn MS Windows XP and Excel...

There are quite a few free PDF creator on the Internet to choose from.
I suggest you Google search for these programs.
Cute PDF is one I recommend, try this WEB site -
http://www.cutepdf.com/products/cutepdf/writer.asp

Jan 30, 2011 | Computers & Internet

Unable to convert into a Word document. It just opens a blank document. What is wrong?

The easiest way to convert a word document to .pdf is to simply right-click on the file to see if there is an option to "convert to .pdf"., then left-click on that option.

Hope this helps. :)

Sep 29, 2010 | ScanSoft PDF Converter Professional...

When i open an excel doc it is only numbers not words

Hi! It probably was created in Excel 2007. You need a converter to open the file.

Sep 18, 2010 | Microsoft Excel for PC

Hi..
Microsoft Word is a part of Microsoft Office software..
MS office contains many softwares like MS word, Outlook,Excel,Powerpoint etc
Now, MS Office is a PAID software, you need to pay for the whole software to use it.
However you can use openoffice software which is FREE alternative to MS office suite. Openoffice has it's own word, excel ,powerpoint files and it FREE TO USE.

Good Luck :)
I have provided you a free of charge solution to your problem, please rate me accordingly.

May 19, 2010 | Computers & Internet

I have over 10,000 2003 or earlier MS office Excel and MS word files those I need to convert to MS Office 2007.

Nov 10, 2009 | Microsoft Office Publisher 2007 for PC

How to convert numbers into words in MS excel?

Hi there

Start typing with single apostrophe ( ' )

Means you can use ' as a prefix to start typing the numbers.

Regards

Jan 19, 2009 | Microsoft Excel for PC

I need help converting a word document into a fillable form.

You can make use of several softwares like Solid Converter PDF, Adobe Acrobat, Scansoft etc to convert a word document into a fillable form. If you are looking at any specific application please let us know.

May 01, 2008 | ScanSoft PDF Converter Professional...

Open Questions:

Related Topics:

279 people viewed this question

Level 3 Expert

Level 3 Expert