Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Conditional Formatting
 
Posts: n/a
Default 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
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
E.Q.
 
Posts: n/a
Default 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

  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Bob Phillips
 
Posts: n/a
Default 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



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Conditional Formatting when inserting a row zahoulik Excel Worksheet Functions 2 January 7th 06 03:01 PM
mulitple conditional formatting Conditional Formatting Excel Worksheet Functions 1 June 25th 05 09:48 AM
Conditional Formatting Error ddate Excel Worksheet Functions 0 May 5th 05 09:00 PM
difficulty with conditional formatting Deb Excel Discussion (Misc queries) 0 March 23rd 05 06:13 PM
Conditional formatting not available in Excel BAB Excel Discussion (Misc queries) 2 January 1st 05 03:33 PM


All times are GMT +1. The time now is 08:13 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"