Question about Computers & Internet

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


    An expert that got 5 achievements.


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


    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.

    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:

    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:

    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)
    MyNumber = ""
    End If
    Count = Count + 1

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


1 Suggested Answer

  • 2 Answers

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

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.

Posted on Jan 02, 2017

Add Your Answer

Uploading: 0%


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



Related Questions:

2 Answers

Write 139,852 in word form

One hundred thirty nine thousand eight hundred and fifty two

Sep 20, 2016 | Computers & Internet

3 Answers

Re: Excel 2011, how can I change permissions Excel for Mac 2011 > ... > Business & Office > Spreadsheet, 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. Customer Reviews: Excel for Mac 2011, Inc.Find helpful customer reviews and review ratings for Excel for Mac 2011 at ... 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 ... > Software and Licensing > Retail Software

Jan 05, 2016 | Microsoft Office Computers & Internet

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.


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 | Computers & Internet

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 Computers & Internet

1 Answer

Excel merge to word office 2007


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.

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

Rupees without Rs. notation

Sep 14, 2008 | Microsoft Excel for PC

4 Answers


i want to convert the figure / number in word

eg. 1,000 = ONE THOUSAND

Aug 22, 2008 | Computers & Internet

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?
Computers & Internet Logo

Related Topics:

130 people viewed this question

Ask a Question

Usually answered in minutes!

Top Computers & Internet Experts

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers


Level 3 Expert

100288 Answers

David Payne
David Payne

Level 3 Expert

14160 Answers

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

Answer questions

Manuals & User Guides