W0RKAH0LIC
Technical User
How do you modify the background color of an active cell? I want the clicked cell to stand out more than the background.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Modifying the background color of an active cell 3
- Thread starter W0RKAH0LIC
- Start date
- Status
SkipVought
Programmer
Hi
{code]
ActiveCell.Interior.ColorIndex = 3
[/code]
will make the interior RED
Skip,
Skip@TheOfficeExperts.com
{code]
ActiveCell.Interior.ColorIndex = 3
[/code]
will make the interior RED
Skip,
Skip@TheOfficeExperts.com
SkipVought
Programmer
Hi
A better spreadsheet answer is
manu item Format/Cells/Patterns
pick a color
Skip,
Skip@TheOfficeExperts.com
A better spreadsheet answer is
manu item Format/Cells/Patterns
pick a color
Skip,
Skip@TheOfficeExperts.com
- Thread starter
- #4
W0RKAH0LIC
Technical User
How do I put "{code]
ActiveCell.Interior.ColorIndex = 3"
into the excel program?
ActiveCell.Interior.ColorIndex = 3"
into the excel program?
SkipVought
Programmer
just
Skip,
Skip@TheOfficeExperts.com
Code:
ActiveCell.Interior.ColorIndex = 3Skip,
Skip@TheOfficeExperts.com
-
3
- #6
Sometimes we forget that not everyone is familiar with VBA and how to use it.
If you right-click on the sheet tab, the VBA editor should open and you should see a window that has something that looks like this in it:
If you replace everything in that window with this...
[blue]
[/color]
... then you can close the VBA editor and you will have the funcionality you requested (assuming you wanted the cell to become RED (ColorIndex=3). If you want some other color, change the number.
This routine also includes the code to turn the cell color back to what it was before it was selected. (Unless you want to have the color changed permanently as a record of which cells you have visited.)
It gets tricky if you want to change the color of a cell manually. The routine sort of takes over and prevents that. The work-around is to select multiple cells and change the color of cells in groups.
If you right-click on the sheet tab, the VBA editor should open and you should see a window that has something that looks like this in it:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub[blue]
Code:
Option Explicit
Dim LastCell As String
Dim LastColor As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Cells.Count = 1 Then
'MsgBox Target.Interior.ColorIndex
If LastCell <> "" Then
Range(LastCell).Interior.ColorIndex = LastColor
End If
LastCell = ActiveCell.Address
LastColor = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 3
End If
End Sub... then you can close the VBA editor and you will have the funcionality you requested (assuming you wanted the cell to become RED (ColorIndex=3). If you want some other color, change the number.
This routine also includes the code to turn the cell color back to what it was before it was selected. (Unless you want to have the color changed permanently as a record of which cells you have visited.)
It gets tricky if you want to change the color of a cell manually. The routine sort of takes over and prevents that. The work-around is to select multiple cells and change the color of cells in groups.
- Status
Similar threads
- Locked
- Question