Question about Business & Productivity Software

1 Answer

Excel in excel make a prog ans come as 2250 how it automaticall come in english astwo thousand fifty

Posted by on

  • keshave May 12, 2008

    means that how 2250 autonaticall come in words

×

1 Answer

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that got 5 achievements.

    Novelist:

    An expert who has written 50 answers of more than 400 characters.

    Champion:

    An expert who has answered 200 questions.

  • Expert
  • 214 Answers

First a question - is this school homework?

I ask because I have just spent about 2 hours on creating the answer - there is no function to do this except to convert to text as currency in Thai.

Posted on May 12, 2008

  • Les Clayton May 12, 2008

    I just found this (I haven't tried it):



    Here is a very popular bit of code from Microsoft that will convert any number in a cell to English words. All code and text from below here is the work of Microsoft.

    Summary
    This article contains sample Microsoft Visual Basic for Applications functions that you can use to convert a numeric value into its equivalent in English words. For example, you can change 32.50 into "Thirty Two Dollars and Fifty Cents" by entering the following formula into a cell:
    =SpellNumber(32.50)

    You can also use these functions to refer to other cells in the workbook. For example, if the number 32.50 was in A1, you could type the following into a cell:
    =SpellNumber(A1)

    The Function Wizard can also be used to enter a custom function in a worksheet. To use the Function Wizard, follow these steps:

    1. Click the Function Wizard button, and select User Defined under Function Category.
    2. Select SpellNumber, and enter your number or cell reference.
    3. Click Finish

    To Create the Sample Functions

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



    My own solution involveed IF statements (etc) and though it worked, the solution above may be easier.

×

Add Your Answer

Uploading: 0%

my-video-file.mp4

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

×

Loading...
Loading...

Related Questions:

2 Answers

Write 139,852 in word form


One hundred thirty nine thousand eight hundred and fifty two

Sep 20, 2016 | Business & Productivity Software

3 Answers

Re: Excel 2011, how can I change permissions


Amazon.com: Excel for Mac 2011

amazon.com > ... > Business & Office > Spreadsheet

Amazon.com, Inc.Excel for Mac 2011 lets you create easy-to-analyze spreadsheets you can ... MicrosoftOffice Home and Student 2016 for Mac ' Mac Key Card ... Learn More; ASIN: B003YCOJBC; Item model number: D46-00803; Date first .... Imagine my surprise when the Excel installation disk would not load on my Mac Mini's DVD drive.

Amazon.com: Customer Reviews: Excel for Mac 2011

www.amazon.com/Microsoft-D46-00803-Excel...201...

Amazon.com, Inc.Find helpful customer reviews and review ratings for Excel for Mac 2011 at Amazon.com. ... Desktops & Monitors Computer Accessories & Peripherals Externaldrives, .... I, too, much preferred Windows version of MS-Office 2003 over Windows ....when the Excel installation disk would not load on my Mac Mini's DVD drive.

ms excel mac 2011 english dvd [d46-00803] - Computer ...

www.cworld.com.au > Software and Licensing > Retail Software
MS EXCEL MAC 2011 ENGLISH DVD [D46-00803]

Jan 05, 2016 | Microsoft Office Business & Productivity...

1 Answer

I need the Manual For Excel 2013


There isn't one unless you but it but the help file has thousands of free tutorials.
Press F1 in excel and type Video tutorials in the search bar.

25531319-qztzwsd5tae24twsq5kxbvm0-3-0.jpg

Mar 07, 2015 | Microsoft Excel 2010

1 Answer

$2,250 11 yrs at 13 percent what the future value


Assuming you make no payments over the 11 years in Excel the formula would be =FV(0.13,11,0,-2250)

Mar 11, 2014 | Business & Productivity Software

1 Answer

Excel sheet not opening


You should perform a REPAIR installation of MS Office as one of the files is corrupt for some reason

Sep 18, 2009 | Microsoft Office 2003 Basic Edition...

1 Answer

I want the all excel formulas


You will never find a fully comprehensive list anywhere because there are literally hundreds in the basic Excel application and thousands that can be added in as you go via macros. More are being added every time a new version of Office comes out.

But, the easiest way however to get a basic list of functions if your not printing is to hit the function button and simply scroll down the list. The syntax (an example of the method by which you should be formatting the formula) and a definition will list in the bottom of the dialog as you select each function.

That said, you are better solving individual problems as you learn Excel then trying to memorize all the functions themselves. Many, such as mathematical operations are common sense anyway.

Jun 19, 2009 | Microsoft Business & Productivity Software

1 Answer

Excel merge to word office 2007


Hi,

This might be an issue with the way you have your field set up.
Right-click on your field and select TOGGLE FIELD CODES until you can see the word "mergefield".

Assuming the name of your field is "mydatefield" , the code below should give you the required format.

{ MERGEFIELD mydatefield \@"DD/MM/YYYY" \*Mergeformat }

Good luck...

Jan 16, 2009 | Microsoft Office Professional 2007 Full...

6 Answers

Indian Rupee format in Excel spreadsheet


Rupees with Paise
[>9999999]"Rs. "##\,##\,##\,##0.00;[>99999]"Rs. "##\,##\,##0.00;"Rs.
"##,##0.00

Rupees without Paise
[>9999999]"Rs. "##\,##\,##\,##0;[>99999]"Rs."##\,##\,##0;"Rs. "##,##0

Rupees without Rs. notation
[>9999999]##\,##\,##\,##0.00;[>99999]##\,##\,##0.00;##,##0.00

Sep 14, 2008 | Microsoft Excel for PC

4 Answers

CONVERT FIGURE INTO WORD


i want to convert the figure / number in word

eg. 1,000 = ONE THOUSAND

Aug 22, 2008 | Business & Productivity Software

1 Answer

How to convert my numirecal velue into text


There is no standard function for doing this in Access 2003, you will have to write a function yourself, or have someone do it for you.

Jun 28, 2008 | Microsoft Office Access 2003 (077-02871)...

Not finding what you are looking for?
Business & Productivity Software Logo

Related Topics:

129 people viewed this question

Ask a Question

Usually answered in minutes!

Top Business & Productivity Software Experts

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18297 Answers

Sudeep Chatterjee
Sudeep Chatterjee

Level 3 Expert

3267 Answers

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

Answer questions

Manuals & User Guides

Loading...