Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How do I change color of active cell in Excel
I would like the active cell (cell I am currently working in) to be a
different color. Example: I am working in cell AD58 I would like for that cell to be blue, then as I move through the sheet, the current active cell would be blue. |
#2
|
|||
|
|||
right click sheet tabview codeinsert thisSAVE
to use for only one cell change Set MyRng = Target.EntireRow to Set MyRng = Target ===== 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "lfletcher" wrote in message ... I would like the active cell (cell I am currently working in) to be a different color. Example: I am working in cell AD58 I would like for that cell to be blue, then as I move through the sheet, the current active cell would be blue. |
#3
|
|||
|
|||
Go to Chip Pearson's site and view this article
http://www.cpearson.com/excel/excelM...ightActiveCell "lfletcher" wrote: I would like the active cell (cell I am currently working in) to be a different color. Example: I am working in cell AD58 I would like for that cell to be blue, then as I move through the sheet, the current active cell would be blue. |
#4
|
|||
|
|||
Can that be applied to the entire workbook rather than a single sheet? And,
is there a reference for the color codes? I see 33 yields a blue color, which is what he wanted; it also changes the color of the border from black to red. "Don Guillett" wrote in message ... right click sheet tabview codeinsert thisSAVE to use for only one cell change Set MyRng = Target.EntireRow to Set MyRng = Target ===== 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "lfletcher" wrote in message ... I would like the active cell (cell I am currently working in) to be a different color. Example: I am working in cell AD58 I would like for that cell to be blue, then as I move through the sheet, the current active cell would be blue. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change the color of all series in an excel chart in one go. | Charts and Charting in Excel | |||
Excel should let me circle a cell or number in the spreadsheet fo. | Excel Discussion (Misc queries) | |||
How to change the color of all series in an excel chart in one go. | Charts and Charting in Excel | |||
I have typed in an excel cell and cannot advance to next cell by . | Excel Discussion (Misc queries) | |||
Excel: how to formulate conditional cell references | Excel Worksheet Functions |