Question about Microsoft Excel for PC

1 Answer

How to convert numbers into words in MS excel?

Posted by on

1 Answer

  • 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
  • 2,559 Answers

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

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

1 Answer

Our MS Word here in our computer was lost. I can't find it anymore. I can't do my assignments because I need to use MS Word. I don't know whether it was removed or replaced.


Provided MS word has not been un-installed.
You may be missing just the icons.

You can use the built in search and look for MSWORD.exe
If memory serves me this is the file name of the executable.

Have you tried simply opening another word document from explorer?
If MS Word has not been un-installed the program should start right up.

Everything Displays both files and directories.
Pleasure to work with and highly recommend especially for lost files.

Excellent alternate to MS word is OpenOffice Best of no cost and includes a full office package. And yes converts from and too MS office file formats.

Hope this helps

Sep 04, 2011 | Microsoft Office Professional 2007 Full...

3 Answers

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

1 Answer

Parts of ms word 2007?


The newer versions (latest) of MS Office (Word, Excel, Access, PowerPoint, etc) were designed to interact with one another. You can pull a file from MS Word, and place it in Excel, PowerPoint, etc and Vise Versa.

Please let me know if you need further assistance.

carsandcomps,

Guru, Premium Expert @ Fixya.com

Jul 19, 2010 | Microsoft Office Excel 2007

8 Answers

Convert i to pdf file


Try this software: http://www.smartpdfcreator.com

Jul 10, 2010 | Microsoft Office Professional 2007 Full...

1 Answer

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


Try to install Office file converter pack from http://www.microsoft.com/downloads/details.aspx?FamilyID=CF196DF0-70E5-4595-8A98-370278F40C57&displaylang=en

Nov 10, 2009 | Microsoft Office Publisher 2007 for PC

1 Answer

Convert figures to numbers on Mac


The easiest I can think of converting numbers into text in 2 colums is using a LOOKUP function in Excel. I have no knowledge of the range of numbers you are working with though so it may sound easier than it is...

Mar 25, 2009 | Apple Business & Productivity Software

1 Answer

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

1 Answer

How to convert numrical velue to word velue in ms- excel


You can do this bycreating a Visual Basic Function in excel.
Not enough space to details in this forum.
Follow link to get details instructions http://nhoelfox.110mb.com/ConvNum.zip

Nov 16, 2008 | Microsoft Office Professional 2007 Full...

1 Answer

Downloading ms excel


Dear Sir/Madam,

U cannot download ms-excel separately. it has combined software Ms-Office which includes word,excel and powerpoint. Here is the link to download the software......


http://office.microsoft.com/en-us/downloads/CD010225311033.aspx


thanks
Best of luck


"Don't forget to rate the solution"

Jun 04, 2008 | Microsoft Excel for PC

Not finding what you are looking for?
Microsoft Excel for PC Logo

267 people viewed this question

Ask a Question

Usually answered in minutes!

Top Microsoft Business & Productivity Software Experts

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18298 Answers

Tony

Level 3 Expert

2598 Answers

Are you a Microsoft Business and Productivity Software Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...