Question about Microsoft Office Professional 2007 Full Version for PC

Suppose 1011 amt convert in words like 'One

How to convert integer value in words in excel-2007??

e.g. 1011 amt convert in words like 'One thousand eleone'

Posted by on

• Level 2:

An expert who has achieved level 2 by getting 100 points

MVP:

An expert that got 5 achievements.

Mentor:

An expert who has written 3 tips or uploaded 2 video tips.

Governor:

An expert whose answer got voted for 20 times.

• Expert

Hiii

1. Start Microsoft Excel.
2. Press ALT+F11 to start the Visual Basic Editor.
3. On the Insert menu, click Module.
4. 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
Hope this will solve ur problem

Regards.
G'Day

Posted on Sep 10, 2009

Testimonial: "Thanks for solution."

Hi there,
Save hours of searching online or wasting money on unnecessary repairs by talking to a 6YA Expert who can help you resolve this 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.

Here's a link to this great service

Good luck!

Posted on Jan 02, 2017

×

my-video-file.mp4

×

Related Questions:

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

Tip

How to convert older Office documents to Office 2007 format

on Dec 12, 2010 | Computers & Internet

Tip

How to convert older Office documents to Office 2007 format

The Office 2007 applications such as Word and Excel can open a spreadsheet or a document which is in an older edition of Office. They can open such older version documents in Compatibility Mode. However, if you need to make use of various newer features available in Office 2007, you will have to convert older Office documents to Office 2007 format. The feature to covert older Office documents to Office 2007 format is very useful. For example, you can now utilize 1.1 million rows in the 2007 version of Excel. In the older versions you could only use sixty-five thousand rows. The method to convert older Office documents to Office 2007 format is the same for all applications. Here we are using the example of a Word document of previous version. If you open a Word or Excel document of an older version, you see [Compatibility Mode] as part of the title.
Follow these steps to convert older Office documents to Office 2007 format:
Open the Word document which you want to convert into Word 2007 format.
Click on the Microsoft Office button on the top left.
Click on Convert on the left hand side of the menu.
Click on the OK button on the Microsoft Word Office dialog box which appears.
By clicking on the OK button, the document will be automatically converted into the Word 2007 format. You will notice that now the window does not show [Compatibility Mode] as part of the title bar any longer.

on Sep 03, 2010 | Computers & Internet

Do you have a formula in Microsoft Excel that a value can convert to a word...(Ex. 15,000 then it will convert to in words fifteen Thousand..)thanks. need immediate reply.

Hi enelrah_mel0,

You can create a function called SpellNumber using the Visual Basic Editor in the Microsoft Excel to spell the number.

1. Please Open Microsoft Excel. Then press Alt + F11 to open the Visual Basic Editor.
2. Then, click "Insert" option above the Visual Basic Editor window and select "Module".
3. Then, in the Book1 Module1 (Code) window, paste the below code there. (pasted in the next post separately for your convenience)
4. Then, press Alt+Q to close the Visual Basic Editor window.
5. After that, please type the formula " =SpellNumber( * )" in the Excel Sheet and press the Enter Key.
6. Then, save the Excel Sheet.
eg: =SpellNumber(A1)

Where A1 is the first cell in the excel sheet.

Good Luck!

Please post back the result and let me know if you require further assistance.

Thanks for using Fixya.

Oct 29, 2010 | IBM ThinkPad T30 2366 Notebook

How can i convert documents in wordpad 2003 frm 2007 in windows 2

Open the file in word 2007 and from the office menu take the option CONVERT!

Then the things you want to convert are done..

May 30, 2010 | Microsoft Office Professional 2007 Full...

Deleting file from Excel also from recently created documents.

Hi jv_oberg,

The recent documents area of excel is just a snapshot of what it last opened, it's not really linked that document to excel. Eventually, after you open enough documents it will fall off the list. However, if it something that you would like to change, you can

1. Click on Office button, and then click on Word Options (in Word 2007) or Excel Options (in Excel 2007) or PowerPoint Options (in PowerPoint 2007) in the bottom of Office Menu.
2. Go to the Advanced tab.
3. Scroll down to the Display section.
4. Set the value for Show this number of Recent Documents: to 0 (zero).
5. Click OK button.
6. Repeat steps above again, and set back the value for the number of Recent Documents to show to its original default, i.e. 17. If you don’t want this particular Office 2007 application to remember any Recent Documents, you can leave the value at 0 and skip this step.

That will clear your recent documents.

Good Luck,

Mark

Don't forget to leave a rating!

Thanks

Jan 06, 2009 | Computers & Internet

Need Formula

TEXT CASE
Convert to UPPER, Proper or lower
Auto Convert to UPPER, Proper or lower
Stop VBA Being Case Sensitive

SELECT CASE VBA
Select Case Statement. Great alternative to Else If Statements

CONVERSION
VBA: CBool(),CByt(),CCur(),CDate(),CDbl()Double,CDec(),CInt(),CLng(),CSng(),CStr(),CVar().
Example
dDate=cDate("25-Jan-07")
Convert Numbers to Words
Convert Numbers to Dollar Amount in Words
Spreadsheet Converter. Versions: HTML/JavaScript,Excel ASP.Net and Excel Java/JSP. \$
SQL Database Migration \$
Converters. Database Converters, Spreadsheet Converters, Text Converters, E-mail Conversion, Document Conversion, PDF Conversion and more! \$
CSV Converter \$

IMPORTING
Import SQL Into Excel-SQL Tester \$
Import Excel Into Access \$

CONDITIONAL FORMATTING
Conditional Formatting
More Than 3 Conditional Formats
Conditional Format Fonts for greater than 3

CUSTOM FORMATS
Custom Formats
Excel see a cells format as having four Sections. These are, from left to right: Positives;Negatives;Zeros;Text.

To hide zeros cell-by-cell use a Custom Number Format like 0.00;-0.00; where 0.00 is desired format for non zeros. Note the use of -0.00 for negatives.

To hide zeros on the Workbook level go to Tools>Options>View - Zero Values.

Dec 15, 2008 | Microsoft Windows XP Home Edition

EXCEL

You will need to write a Macro that questions each position and turns it into a word depending on it's value ...

Something like :

DIM WordValue as String
DIM LenghtIndex as integer

FOR lenghtindex = 1 to Len(ExcelCellValue) DO

CASE StrCpy (Number, LenghtIndex , 1)
1 : WordValue = WordValue & "one"
2 : WordValue = WordValue & "two"
3 : WordValue = WordValue & "three"
4 : WordValue = WordValue & "four"
END CASE

END FOR

If you want it to realy say fourthy four when the value is 44 instead of have it say "four four" you need to question the position. If it's in second position starting from left it will be fourty , if it's in third place it will be fourhundred ... etc

Aug 22, 2008 | Computers & Internet

MS Excel 2007 SERIES function

Mar 17, 2008 | Computers & Internet

Open Questions:

Related Topics:

310 people viewed this question

Level 3 Expert

Level 3 Expert