Conditional Formating - Currency

  • Thread starter Thread starter EA
  • Start date Start date
E

EA

Does anyone know if it is possible to conditionally format cells based on
whether a cell is formatted to display either £, $ or Euro?
 
Hi,

Think it would be possible, provided the Currency format is applied ...
with Formula Is
=LEFT(CELL("format",A1),1)="C"

HTH
Cheers
Carim
 
Using a user-defined-function and Styles, it can be done.

1) create a style called 'POUND'
- Select 'Format'
- Select 'Style'
- Select 'Modify'
- Select 'Number' tab
- Select 'Currency'
- Change the 'Symbol' to 'English (United Kingdom)'
- Select 'OK'
- Change the 'Style Name' to "POUND" from "Normal"
- Select 'OK'
2) create a style called 'EURO'
- see above steps / selecting the Euro symbol
3) The style 'Currency' has probably already been created.
- If not, create it using the same steps as above
4) create the following UDF

'/=======================================/
' Function Purpose: Return the name of the style of the selected
' cell formatted to UPPER CASE
' ie the 'Currency' style returns 'CURRENCY'
'
Public Function CellStyle(Select_Cell As Range) As String
On Error Resume Next

Application.Volatile

CellStyle = UCase(Select_Cell.Style)

End Function
'/=======================================/

5) Format>Conditional Formatting...
Condition 1:
=CellStyle(B1)="POUND"
and coloring, etc.
Condition 2:
=CellStyle(B1)="CURRENCY"
and coloring, etc.
Condition 3:
=CellStyle(B1)="EURO"
and coloring, etc.

HTH,
 
Back
Top