Question about The Computers & Internet

Open Question

Wizard of oz challenge

Was playinf the witchs army challenge . the screen up and said i won 1 billion nine hundred dollars and then it said opps.

Posted by on

Ad

5 Suggested Answers

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

Ad
  • 10 Answers

SOURCE: Sharp Wizard OZ-770 working with Windows Vista

The www.wizardshop.net
can help you get it working with vista 32bit.
Go to www.thewizardshop.net and email or call them.

Posted on Mar 03, 2009

Ad
myjosh007
  • 530 Answers

SOURCE: Sharp wizard oz-290HII --fading screens

Friend, try to replace the battery. If it doesn't work try to press firmly the LCD connection interface underneath the screen because such unit has lossen connection.use T6 screwdriver to open the unit then slowly firmly press the LCD connector on the interface. Such thing will solve the problem. good luck

Posted on Jun 16, 2009

  • 1779 Answers

SOURCE: colored rings on screen

Sounds like someone put a magnet or speaker to close to the set. I believe it needs degaussed.

Posted on Oct 02, 2009

  • 88 Answers

SOURCE: round off to the place

12336+54+
532369.000235.2548e=mc2

Posted on Jul 14, 2011

Add Your Answer

Uploading: 0%

my-video-file.mp4

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

×

Loading...
Loading...

Related Questions:

1 Answer

1730020910,0109 in words


1730020910,0109 is not a number in standard format. You have a comma in that. If it is a decimal point then that is another issue.
1,730,020,910.0109 is one billion seven hundred thirty million twenty thousand nine hundred and ten and one hundred and nine ten thousandths.

Mar 17, 2017 | Computers & Internet

1 Answer

How do i round this number to the nearest ten billion


Hi Sjonmarie:
Wow! That is a large number that you are playing with.
Starting at the decimal point, you go through the hundreds, thousands, and millions, before you get to the billions.
That is nine digits to the left of the decimal point.
The tenth digit to the left of the decimal is the first billion digit.
The next digit to the left is the 10 billion digit.
If you ignore all of the first nine digits, and
add the tenth digit to the rest of the number, and then
ignore the 10th digit of the result,
you will have
the number rounded to the nearest 10 billion.
Ta Da!

Apr 08, 2016 | Office Equipment & Supplies

1 Answer

Is there cheats?


Cheats and Hints :
All primary weapons : Complete the game on Recruit difficulty mode.
Professional Difficulty : Complete the game on Recruit difficulty mode and Contractor.
All secondary and special weapons :
Complete the game on Professional difficulty level. Get extra points unlocking achievements . The game has 47 achievements (10 and 9 in Online extra) for a total of 1250 points. To get the achievements "[Extra]" is necessary to have the SSC Challenge Pack, available at the market.
mcith_army_of_two_the_40th_day_0147.jpgmcith_army_of_two_1.jpg

10 points:
  • Boots on the ground : Finish a game of confrontation even. [Online]
15 points :
  • Complete Mission 3 : Mission 3 completed as Contractor or higher. [Secret]
  • Complete Mission 4 : Mission 4 as Contractor or higher completed. [Secret]
  • Complete Mission 5 : Mission 5 completed as Contractor or higher. [Secret]
  • Complete Mission 6 : Mission 6 completed as Contractor or higher. [Secret]
  • Without Debt : Heal your partner for the first time. Training is not valid.
  • Weapons Specialist : Purchase 3 weapons.
  • That's it. Let's see who's laughing now : Buy weapons pack "pack 8" in a multiplayer ranked match. [Extra] [Online]
20 points:
  • The devil is in the details : Make 20 minor objectives in a ranked match. [Online]
  • Mission failed : Kill 25 Martyrs by shooting against the bombs that are attached to the chest.
  • Toma. Take, take and take : Deletes a total of 50 enemies in melee attacks.
  • Big boom! Big bada boom! : Kill 25 enemies total using rocket launchers.
  • Where to put the eye : Kill 100 enemies total using Sniper Rifles.
  • Let's see, who wants some? : Kill a total of 250 enemies using machine guns.
  • The dead man's hand : Kill a total of 150 enemies using guns.
  • Rain of Lead : Kill a total of 250 enemies using machine guns.
  • Try this : Kill 250 enemies total using Shotguns.
  • Seven six two millimeter : Kill a total of 250 enemies using assault rifles.
  • The beast with two heads : Kill 50 enemies in back to back.
  • Arnold : Eliminates 300 objects in mission 7-8. [Extra]
mcith_army_of_two_10.jpg 25 points:
  • Surviving the game : Make a ranked match without having to Revive once. [Online]
  • Authentic SSC Challenge : Win every stage of a ranked SSC Challenge to three rounds. [Extra] [Online]
  • Victory Challenge in the SSC : Beating a ranked SSC Challenge. [Extra] [Online]
  • Gunman SSC Challenge : Get a 75% accuracy after a ranked SSC Challenge to three rounds. [Extra] [Online]
  • SSC Challenge barrels : Remove 500 barrels in ranked matches SSC Challenge. [Extra] [Online]
  • I want to be cleaner : The final blow to Dalton is a shot in the head with a .44 pistol Model 29 tuned. [Extra]
30 points:
  • If it bleeds, it can die : Kill 25 with heavy armor.
  • Medical field : Drag your partner and heal him 25 times.
  • Riots : Kill 50 enemies in total using a riot shield in cooperative mode.
  • Mission 1 complete : Mission 1 completed as Contractor or higher. [Secret].
  • Complete Mission 2 : Mission 2 completed as Contractor or higher. [Secret]
  • Corridor : Eliminate 75 enemies stealthily mode Annihilation.
  • L'Abattoir : Kill 100 enemies in way of Annihilation.
  • Stone wall : Kill 30 enemies using melee attack riot shield.
  • I'll kill you last, promised : Kill Dalton in less than 40 seconds. [Extra]
  • Complete Mission 7 : Mission 7 completed as Contractor or higher. [Secret] [Extra]
  • Complete Mission 8 : Mission 8 completed as Contractor or higher. [Secret] [Extra]
35 points:
  • A weapon is sufficient : Ends in a ranked match without purchasing additional weapons. [Online]
  • Four eyes are better than one : Kill 5 enemies using sniper tactics cooperatives.
  • My virtual friend : Make all missions with an AI-controlled partner.
40 points
  • Pension Plan : Get one billion dollars in total in ranked matches. [Online]
  • If I were rich : Get a million dollars in total in campaign mode.
  • My kit! : Collect the briefcases with information throughout the game.
45 points :
  • Fear, the murderer of the mind : Spend 1 full minute at maximum aggression.
  • Hello to my little friends : Get the following: MP7, M134, DAO-X Protecta, MGL MK-X, and M107 Light Fifty.
50 points :
  • A man of many masks : Buy all variants of mask.
  • PMC elite : Make all missions as a professional.
  • Unlock big heads : Finish the campaign occasional difficulty
  • Unlock unlimited ammunition : Finish the campaign occasional difficulty
try these

Apr 30, 2010 | EA Canada Army Of Two The 40th Day for PS3

2 Answers

I NEED MS EXCEL CONVERT FORMULA FOR NUMBER TO CURRENCY


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

Summary
This article shows you how to create a sample, user-defined function named ConvertCurrencyToEnglish() to convert a numeric value to an English word representation. For example, the function will return the following words for the number 1234.56: One Thousand Two Hundred Thirty Four Dollars And Fifty Six Cents

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 ConvertCurrencyToEnglish, 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.
Function ConvertCurrencyToEnglish (ByVal MyNumber)

Dim Temp

Dim Dollars, Cents

Dim DecimalPlace, Count



ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "



' Convert MyNumber to a string, trimming extra spaces.

MyNumber = Trim(Str(MyNumber))



' Find decimal place.

DecimalPlace = InStr(MyNumber, ".")



' If we find decimal place...

If DecimalPlace > 0 Then

' Convert cents

Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)

Cents = ConvertTens(Temp)



' Strip off cents from remainder to convert.

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If



Count = 1

Do While MyNumber <> ""

' Convert last 3 digits of MyNumber to English dollars.

Temp = ConvertHundreds(Right(MyNumber, 3))

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

' Remove last 3 converted digits from MyNumber.

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop



' Clean up dollars.

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & " Dollars"

End Select



' Clean up cents.

Select Case Cents

Case ""

Cents = " And No Cents"

Case "One"

Cents = " And One Cent"

Case Else

Cents = " And " & Cents & " Cents"

End Select



ConvertCurrencyToEnglish = Dollars & Cents

End Function







Private Function ConvertHundreds (ByVal MyNumber)

Dim Result As String



' Exit if there is nothing to convert.

If Val(MyNumber) = 0 Then Exit Function



' Append leading zeros to number.

MyNumber = Right("000" & MyNumber, 3)



' Do we have a hundreds place digit to convert?

If Left(MyNumber, 1) <> "0" Then

Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "

End If



' Do we have a tens place digit to convert?

If Mid(MyNumber, 2, 1) <> "0" Then

Result = Result & ConvertTens(Mid(MyNumber, 2))

Else

' If not, then convert the ones place digit.

Result = Result & ConvertDigit(Mid(MyNumber, 3))

End If



ConvertHundreds = Trim(Result)

End Function







Private Function ConvertTens (ByVal MyTens)

Dim Result As String



' Is value between 10 and 19?

If Val(Left(MyTens, 1)) = 1 Then

Select Case Val(MyTens)

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

' .. otherwise it's between 20 and 99.

Select Case Val(Left(MyTens, 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



' Convert ones place digit.

Result = Result & ConvertDigit(Right(MyTens, 1))

End If



ConvertTens = Result

End Function







Private Function ConvertDigit (ByVal MyDigit)

Select Case Val(MyDigit)

Case 1: ConvertDigit = "One"

Case 2: ConvertDigit = "Two"

Case 3: ConvertDigit = "Three"

Case 4: ConvertDigit = "Four"

Case 5: ConvertDigit = "Five"

Case 6: ConvertDigit = "Six"

Case 7: ConvertDigit = "Seven"

Case 8: ConvertDigit = "Eight"

Case 9: ConvertDigit = "Nine"

Case Else: ConvertDigit = ""

End Select

End Function

Apr 15, 2010 | Broderbund Learn MS Windows XP and Excel...

1 Answer

Convert numbers to text in excell


  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
uparrow.gifBack to the top How to use the SpellNumber sample function loadTOCNode(2, 'moreinformation'); To use the sample functions to change a number to written text, use one of the methods demonstrated in the following examples: uparrow.gifBack to the top Method 1: Direct Entry loadTOCNode(2, 'moreinformation'); You can change 32.50 into "Thirty Two Dollars and Fifty Cents" by entering the following formula into a cell: =SpellNumber(32.50) uparrow.gifBack to the top Method 2: Cell reference loadTOCNode(2, 'moreinformation'); You can refer to other cells in the workbook. For example, enter the number 32.50 into cell A1, and type the following formula into another cell: =SpellNumber(A1) uparrow.gifBack to the top Method 3: Paste Function or Insert Function loadTOCNode(2, 'moreinformation'); To enter a custom function into a worksheet, you can use Paste Function in Excel 2000, or you can use Insert Function in Excel 2002 and in Excel 2003. Excel 2000 loadTOCNode(3, 'moreinformation'); To use Paste Function, follow these steps:
  1. Select the cell that you want.
  2. Click Paste Function on the Standard toolbar.
  3. Under Function category, click User Defined.
  4. Under Function name, click SpellNumber, and then click OK.
  5. Enter the number or cell reference that you want, and then click OK.
Excel 2002 and Excel 2003 loadTOCNode(3, 'moreinformation'); To use Insert Function, follow these steps:
  1. Select the cell that you want.
  2. Click Insert Function on the Standard toolbar.
  3. Under Or select a category, click User Defined.
  4. In the Select a function list, click SpellNumber, and then click OK.
  5. Enter the number or cell reference that you want, and then click OK.

Apr 01, 2010 | Microsoft Windows XP Professional

1 Answer

Suppose 1011 amt convert in words like 'One


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

Sep 10, 2009 | Microsoft Office Professional 2007 Full...

1 Answer

How to convert numbers into words in MS excel?


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

Jan 19, 2009 | Microsoft Excel for PC

Not finding what you are looking for?
Computers & Internet Logo

Related Topics:

32 people viewed this question

Ask a Question

Usually answered in minutes!

Top The Computers & Internet Experts

Darren  Means
Darren Means

Level 2 Expert

36 Answers

d3yavu3

Level 2 Expert

57 Answers

kimblebear

Level 1 Expert

9 Answers

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

Answer questions

Manuals & User Guides

Loading...