View Single Post
  #4  
Old May 13th, 2010, 08:45 PM posted to microsoft.public.excel.misc
bala_vb[_16_]
external usenet poster
 
Posts: 1
Default View Conditional Formats on worksheet?


Bob Umlas, Excel MVP;953424 Wrote:
Certainly not by hovering the mouse over the cell, but you can set up a

worksheet_change event to bring up the formatting (and maybe set a
ceertain
cell to turn this "feature" off), something like this (on the
sheet-code):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim rg As Range
If Range("A1").Value = "No" Then Exit Sub
Err.Clear
Application.EnableEvents = False
Set rg = Application.Intersect(Target,
Cells.SpecialCells(xlCellTypeAllFormatConditions))
Application.EnableEvents = True
If Err.Number 0 Then Exit Sub
If rg Is Nothing Then Exit Sub
Application.SendKeys "%E"
Application.Dialogs(xlDialogConditionalFormatting) .Show
End Sub



"Bill E" wrote:
-
Is there an easy way to scroll over a worksheet to see what the

Conditional
Formatting is for various cells? I know you can go through 'Format'

-
'Conditional Formatting', but that can be very laborious. I'm

reviewing a
fairly large worksheet where there are errors in the conditional

formatting,
but most appear fine. I'd like to be able to scroll over cells and

see what
the formatting is. Is this possible? Thanks! -Bill-


try this code, all the cells which have conditional formatting turns to
bold and font size to 14, you can easily debug them

Private Sub Workbook_Open()
Dim i, j As Integer
ActiveWorkbook.Sheets("sheet1").Select
For i = 1 To 100
For j = 1 To 100
If Worksheets("sheet1").Cells(i, j).FormatConditions.Count 0 Then
Worksheets("sheet1").Cells(i, j).Font.Bold = True
Worksheets("sheet1").Cells(i, j).Font.Size = 14


End If
Next j
Next i
End Sub


all the best




--
bala_vb