Changing Excel default highlighting
Bernie Dietrick posted the following a couple days ago...just make sure you
search for an answer before posting, please.
________________________________
You can't change that behavior through an application setting. You could
use the workbook or worksheet selection change event, like this below, but
it won't work when you select an entire column or row, or have other shapes
on your worksheet. Change the 25 to a level that you like - the higher the
number the more likely it is to affect speed. Copy the code, right-click
the sheet tab, select "View Code" and paste the code into the window that
appears. Note that this was not tested in 2007 - but works in 2003 (I don't
have any reason to run 2007 yet....)
Bernie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myShape As Shape
Dim myCell As Range
Dim myArea As Range
For Each myShape In ActiveSheet.Shapes
myShape.Delete
Next myShape
For Each myArea In Target.Areas
If myArea.Cells.Count < 25 Then
For Each myCell In myArea.Cells
Set myShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
myCell.Left, myCell.Top, _
myCell.Offset(0, 1).Left - myCell.Left, _
myCell.Offset(1, 0).Top - myCell.Top)
With myShape.Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 11
.Transparency = 0.75
End With
Next myCell
End If
Next myArea
End Sub
--
Please remember to indicate when the post is answered so others can benefit
from it later.
"Teri" wrote:
To create a quick subtotal, I want to select several cells on my Excel
workbook then view the total Excel figures at the bottom of my screen.
Excel 2003 showed great highlighting that would show me easily what cells I
had selected. How do I get Excel 2007 highlighting to do the same? Right
now the default is the same color as the unselected cells.
|