ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Mulitple conditional formatting (https://www.excelbanter.com/excel-worksheet-functions/65554-mulitple-conditional-formatting.html)

Conditional Formatting

Mulitple conditional formatting
 
Conditional formatting in excel limits to three. Is there a way can create
more than three condions. please help

thanks in advance

E.Q.

Mulitple conditional formatting
 
I don't know of any functions that will help (though I imagine one could be
coded - I've never tried). But in general, if you want only four conditions,
you may be able to use a default as one condition and then use the three
conditional formats for the others.
However if you need multiple formats you may need to use code.

The general format for this code would look like:
PRIVATE SUB WORKSHEET_CHANGE(BYVAL TARGET AS RANGE)
'declarations and initializations here

IF NOT INTERSECT (TARGET, RANGE(rangereference)) IS NOTHING THEN

'code for desired formats here

END IF

END SUB

where what I capitalized is usually in Proper case (initial letter cap) and
represents required code. What I used lower case unique to your application.

Hope that gives you a starting point.
E.Q.



"Conditional Formatting" wrote:

Conditional formatting in excel limits to three. Is there a way can create
more than three condions. please help

thanks in advance


Bob Phillips

Mulitple conditional formatting
 
Few options.

1. If you only want 4, colour all the cells then add 3 alternate CFs.

2. There is a free beta add-in for multiple conditions (and more formats) at
http://xldynamic.com/source/xld.CFPlus.Download.html

3. You could use worksheet event code. Here is an example

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10"

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

RP

"Conditional Formatting"
wrote in message ...
Conditional formatting in excel limits to three. Is there a way can create
more than three condions. please help

thanks in advance





All times are GMT +1. The time now is 10:34 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com