Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
More than 3 specifications for conditional formatting in Excel
Is there any way to get more (up to 10 at least) specifications for
conditional formatting in Excel? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
More than 3 specifications for conditional formatting in Excel
'----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "H1:H10" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Select Case .Value Case 1: .Interior.ColorIndex = 3 'red Case 2: .Interior.ColorIndex = 6 'yellow Case 3: .Interior.ColorIndex = 5 'blue Case 4: .Interior.ColorIndex = 10 'green End Select End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "tpage" wrote in message ... Is there any way to get more (up to 10 at least) specifications for conditional formatting in Excel? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
More than 3 specifications for conditional formatting in Excel
Should I be able add up to 10 conditions from the "Format", -- "Conditional
formatting" drop down with this code insertion? B/c I tried and it did not work. Got any other suggestions for achieving this capability? "Bob Phillips" wrote: '----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "H1:H10" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Select Case .Value Case 1: .Interior.ColorIndex = 3 'red Case 2: .Interior.ColorIndex = 6 'yellow Case 3: .Interior.ColorIndex = 5 'blue Case 4: .Interior.ColorIndex = 10 'green End Select End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "tpage" wrote in message ... Is there any way to get more (up to 10 at least) specifications for conditional formatting in Excel? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
More than 3 specifications for conditional formatting in Excel
You can have hundreds, just add extra a case conditions and actions.
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "tpage" wrote in message ... Should I be able add up to 10 conditions from the "Format", -- "Conditional formatting" drop down with this code insertion? B/c I tried and it did not work. Got any other suggestions for achieving this capability? "Bob Phillips" wrote: '----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "H1:H10" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Select Case .Value Case 1: .Interior.ColorIndex = 3 'red Case 2: .Interior.ColorIndex = 6 'yellow Case 3: .Interior.ColorIndex = 5 'blue Case 4: .Interior.ColorIndex = 10 'green End Select End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "tpage" wrote in message ... Is there any way to get more (up to 10 at least) specifications for conditional formatting in Excel? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
unhide menu bar in excel - just disappeared | Setting up and Configuration of Excel | |||
Running Excel 2000 VBA Application on Excel 2003 | Excel Worksheet Functions | |||
Formatting cells, Need help solving a problem with excel | Excel Discussion (Misc queries) | |||
Lost formatting in Excel | Excel Discussion (Misc queries) | |||
Excel could not save all the data and formatting you recently ad.. | Excel Worksheet Functions |