Question about Microsoft Office Professional 2007 Full Version for PC

1 Answer

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

1 Answer

  • 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
  • 153 Answers

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."

1 Suggested Answer

6ya6ya
  • 2 Answers

SOURCE: I have freestanding Series 8 dishwasher. Lately during the filling cycle water hammer is occurring. How can this be resolved

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).
click here to download the app (for users in the US for now) and get all the help you need.
goodluck!

Posted on Jan 02, 2017

Add Your Answer

Uploading: 0%

my-video-file.mp4

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

×

Loading...
Loading...

Related Questions:

4 Answers

Please give me site for free down load converter for microsoft save as PDF or XPS add in for microsoft ofice 2007


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


<span> <p><span>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.</span><br /> <p><img src="compatibility-model-excel.jpg" /> <span>Follow these steps to convert older Office documents to Office 2007 format:</span><br /> <span>Open the Word document which you want to convert into Word 2007 format</span><br /> <span></span> <br /> <span></span> <br /> <br /> <span>Click on the Microsoft Office button on the top left.</span><br /> <span>Click on Convert on the left hand side of the menu.</span><br /> <img src="convert-excel.jpg" /> <p><span>Click on the OK button on the Microsoft Word Office dialog box which appears. </span><br /> <p><img src="corverting-documents.jpg" /> <p><span>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.</span><span> </span><br /> <p><img src="show-compatibility.jpg" /></span> <p><span><span> google_protectAndRun("ads_core.google_render_ad", google_handleError, google_render_ad); </span></span><br /> <p><b> </b><br />

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.
google_protectAndRun("render_ads.js::google_render_ad", google_handleError, google_render_ad);
compatibility-model-excel.jpg 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.
convert-excel.jpg Click on the OK button on the Microsoft Word Office dialog box which appears.
corverting-documents.jpg 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.
show-compatibility.jpg

on Sep 03, 2010 | Computers & Internet

1 Answer

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

2 Answers

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...

1 Answer

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). no-of-recent-docs.jpg
  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

1 Answer

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

1 Answer

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

1 Answer

MS Excel 2007 SERIES function


First thing: Have yo downloaded *all* the updates available for Office 2007 from Windows Update?

Mar 17, 2008 | Computers & Internet

Not finding what you are looking for?
Microsoft Office Professional 2007 Full Version for PC Logo

310 people viewed this question

Ask a Question

Usually answered in minutes!

Top Microsoft Computers & Internet Experts

micky dee

Level 3 Expert

2716 Answers

Piyal Perera
Piyal Perera

Level 3 Expert

528 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18390 Answers

Are you a Microsoft Computer and Internet Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...