Results 1 to 5 of 5

Thread: VBA Conditional Formatting in Microsoft Excel

  1. #1
    Join Date
    Jan 2012
    Posts
    23

    VBA Conditional Formatting in Microsoft Excel

    I am trying to CONDITIONAL FORMAT RANGE OF CELLS BASED ON ANOTHER RANGE OF CELLS I.E IF THEY MATCH (CELL FOR CELL) no format if one cell different to its counterpart formatting applied. I have achieved this in office 2007's excel which works as i want however the pc this program is destined for runs on excel 2003 so the conditional formatting doesn't work. So im looking to create vba code for it but cant get my head around converting the working formula into code : NOT (E8:R31=E54:R77) SETS OFF A CELL FILL. Thanks in advance to anyone who can help out.

  2. #2
    Join Date
    Aug 2011
    Posts
    582

    Re: VBA Conditional Formatting in Microsoft Excel

    From memory (of Excel 2003 and below) if you put the Conditional Format in the first cell and use the Format Painter on all subsequent cells it should work. Try the Conditional Format:=IF(E8<>E54,1,0) and format it accordingly. You may have to re-edit the Conditional Format formula to remove any $ automatically put in there by Excel - e.g. change "=IF($E$8<>$E$54,1,0)" to read as above. When you use the format painter on cells E8 thru to R31, it should increment the E8 and E54 in the Conditional Format formula for each cell individually (I think). If you do this in Excel 2007, it will just apply the same Conditional Format across the range you selected - gives the same result in Excel 2007, but may not translate back to 2003 properly.

  3. #3
    Join Date
    Aug 2011
    Posts
    542

    Re: VBA Conditional Formatting in Microsoft Excel

    It is not easy to find the exact solution but something similar to that can put more highlight on the same. I know this vbcode which can help you to get the results you are

    expecting :
    Code:
    Private Sub Worksheet_Change (ByVal Target As Excel.Range) 
     If Not Intersect (Target, Range ("E4: E23")) Is Nothing Then 
     With Target 
     Select Case Target.Value 
     Case Is <0.5 
     . Interior.ColorIndex = 3 
     Case 0.5 To 0.79 
     . Interior.ColorIndex = 44 
     Case 0.8 To 0.99 
     . Interior.ColorIndex = 6 
     End Select 
     End With 
     End If 
     End Sub

  4. #4
    Join Date
    Aug 2011
    Posts
    700

    Re: VBA Conditional Formatting in Microsoft Excel

    I think this is possible with macro in Excel. For select the range [E4: E23] right click and choose format cells. Enables the Number tab and check the standard list Custom. In the Type field before [Red] [<0.49] Standard; [Orange] Standard. Let the Range [E4: E23] selected format and place, not Last conditional formatting. Fill in the fields of a condition to get the cell value is between 0.80 and 0.99. Click Format and click on Active Yellow. In condition 2 filled fields to obtain the cell value is between 1 and 1.33 and then click Format and select pattern in green and white police clicks. In the third condition value between 1.34 and 9.99. Active format click click click font and blue on white. And finally click OK twice. I hope you can take advantage of it.

  5. #5
    Join Date
    Aug 2011
    Posts
    568

    Re: VBA Conditional Formatting in Microsoft Excel

    Here is another sample vb code. Try to have a look on the same
    Code:
    Option Explicit 
    Private Sub Worksheet_Change (ByVal Target As Excel.Range) 
    Dim cell As Range 
    For Each cell In Range ("B2: H10") 
    If cell.Value = "X" Then cell.Font.ColorIndex = 15 
    If cell.Value = "L" Then cell.Font.ColorIndex = 3 
    If cell.Value = "T" Then cell.Font.ColorIndex = 41 
    If cell.Value = "R" Then cell.Font.ColorIndex = 10 
    If cell.Value = "R" Then cell.Font.FontStyle = "bold" 
    If cell.Value = "E" Then cell.Font.ColorIndex = 15 
    If cell.Value = "F" Then cell.Font.ColorIndex = 3 
    If cell.Value = "D" Then cell.Interior.ColorIndex = 3 
    If cell.Value = "" Then cell.Clear 
    Next 
    End Sub

Similar Threads

  1. Replies: 3
    Last Post: 28-04-2012, 07:32 AM
  2. Excel Macros for conditional formatting statement in Excel
    By Kungfu Pandey in forum Microsoft Project
    Replies: 1
    Last Post: 08-01-2012, 07:35 PM
  3. Microsoft Excel 2007 formatting
    By Meditation in forum Windows Software
    Replies: 4
    Last Post: 29-01-2011, 03:58 PM
  4. Writing a conditional formatting with Excel 2007
    By KAMAL60 in forum Software Development
    Replies: 5
    Last Post: 23-10-2009, 06:19 PM
  5. Conditional formatting in excel
    By RockeЯ in forum Windows Software
    Replies: 4
    Last Post: 27-06-2009, 12:06 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •