Question about Microsoft Excel for PC

I have used a vlook up formula (which works) however when the result is found I need the code to look to the cell on left and if the cell contains a particular word I need the value placed, if not I would like it to be 0.

Ad

Vlookup can only locate values within the lookup range and to the right of the lookup column. to address your concern, i'd advise you to create a dummy column within the lookup range (and hide it) and link it to the lookup column. this way, we won't need a (-) column index number.

Posted on Nov 17, 2008

Ad

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.

Good luck!

Posted on Jan 02, 2017

Ad

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

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:

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

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.

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

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)

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

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

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

Step 1

Determine what formula is to be copied and to what location it is to be copied. Carefully consider the cells that are to be referenced in the formula and that they are indeed the cells that contain the information to be acted upon by this formula.

Step 2

Highlight a cell that has the formula in it and click the right mouse button. Select the "Copy" option.

Step 3

Move to the new destination cell for this formula, right click the mouse button and select "Paste."

Step 4

Check the first cell to make sure the correct calculation has been performed. If not, check the formula that appears in the cell that contains the result of the formula that was just copied. Make sure that the formula references the correct cells. If not, correct the formula and then copy the corrected formula to the rest of the cells that should have this formula applied to them.

The only time I have seen this not work is when the cells/pages are protected.

Note:

Some formulas will require references to multiple pages or a workbook. Make sure that the absolute cell address is used for specific numbers and those that are to be applied to subsequent cell addresses are clearly denoted by the use of "$" in the cell address.

Determine what formula is to be copied and to what location it is to be copied. Carefully consider the cells that are to be referenced in the formula and that they are indeed the cells that contain the information to be acted upon by this formula.

Step 2

Highlight a cell that has the formula in it and click the right mouse button. Select the "Copy" option.

Step 3

Move to the new destination cell for this formula, right click the mouse button and select "Paste."

Step 4

Check the first cell to make sure the correct calculation has been performed. If not, check the formula that appears in the cell that contains the result of the formula that was just copied. Make sure that the formula references the correct cells. If not, correct the formula and then copy the corrected formula to the rest of the cells that should have this formula applied to them.

The only time I have seen this not work is when the cells/pages are protected.

Note:

Some formulas will require references to multiple pages or a workbook. Make sure that the absolute cell address is used for specific numbers and those that are to be applied to subsequent cell addresses are clearly denoted by the use of "$" in the cell address.

Dec 17, 2009 | Microsoft Office Home and Student 2007...

You can number rows in a column by entering a number in cell A1 (usually the number 1 but youcan start with any number) and the formula (=A1+1) in the next row. The result there will be 2. Copy that formula down the rows you want to number and they will be numbered 3, 4, 5, etc. Each row adds 1 to the previous row so if you do anything that disrupts the sequence (like inserting a row between two others) you will have to copy the formulas down again to restore the sequence.
You can also use the Edit-Fill-... menu command to put a series of numbers into rows. Put the starting number in th efirst row. Highlight it and the rows that you want to number and select Edit-Fill-Series... Those numbers will not change if you insert columns or move the formulas.

Or you can use the formula =ROW(A1) in any cell to return the number of that row. (The result of =ROW(A1) is the number 1 in cell A1, the result of =ROW(A2) is the number 2 in cell B2, etc. In this case inserting rows will not affect the numbering (i.e. row A5 will always be numbered 5 even if the data in it is moved down.)

Or you can use the formula =ROW(A1) in any cell to return the number of that row. (The result of =ROW(A1) is the number 1 in cell A1, the result of =ROW(A2) is the number 2 in cell B2, etc. In this case inserting rows will not affect the numbering (i.e. row A5 will always be numbered 5 even if the data in it is moved down.)

Sep 18, 2009 | Microsoft Excel for PC

Most companies do up their own formulas, using a spreadsheet program. After they get the results they are looking for, they either remove any guidelines or copy & paste the parts they want into a word processor document.

Jan 13, 2009 | Computers & Internet

Yes you can create the formula outside the cell or you can create it one time and copy it down to the other cells. That way it will populate once it is used.

The formula should be Base Rate * .05 to get the result then add the result back to the base rate.

The formula should be Base Rate * .05 to get the result then add the result back to the base rate.

Dec 18, 2008 | Microsoft Excel for PC

go to the field with the number of day formula and modify the formula just add to it this *8. The result will be in hrs.

Assuming a holiday uses 8 hrs of pay. It sounds like everyone starts with 25 holiday X 8 hrs or 200 total hours,

Assuming a holiday uses 8 hrs of pay. It sounds like everyone starts with 25 holiday X 8 hrs or 200 total hours,

Jun 18, 2008 | Computers & Internet

Make sure that the cell is formatted as a number, not as text. (Right-click the cell, format cell, number, choose NUMBER.)

Dec 19, 2007 | Microsoft Excel for PC

Suppose the value for $ is stored in cell A3. Your formula would look like this: =(A3+A3*0.25)*1.5

The equals sign at the beginning of the formula is necessary. And if you want the result to be formatted as currency, you can do so by right-clicking the cell or column, format cell, number tab, choose currency.

The equals sign at the beginning of the formula is necessary. And if you want the result to be formatted as currency, you can do so by right-clicking the cell or column, format cell, number tab, choose currency.

Nov 15, 2007 | Computers & Internet

Select the cell(s), then click Data -> Validation.
On the settings Tab, in Allow box choose List.
In the Source box enter 0, 5.
This will only allow these 2 numbers to be entered into the selected cell(s).
There are many other validation combinations you can explore, this is the quickest way I found.
Hope this helps.

Sep 11, 2007 | Microsoft Office Standard for PC

Jan 28, 2016 | Microsoft Excel for PC

Dec 12, 2013 | Microsoft Excel for PC

Jul 23, 2013 | Microsoft Excel for PC

83 people viewed this question

Usually answered in minutes!

Thank you for your assistance, I had already fixed the issues using the same advice you have given above.

Regards

C.

×