Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Color 8 cells on DBL click
Hello, If I clicked on a square/cell how could I get it to color a 4 X 4 cell
"8 cells all together" area with the cell that was clicked being the bottom left cell? I'm using this code to color the single cell. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim BorderColor As Long If Target.Interior.ColorIndex = 36 Then Target.Interior.ColorIndex = xlNone BorderColor = 0 Else Target.Interior.ColorIndex = 36 BorderColor = -16776961 End If With Target .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).Color = BorderColor .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).Color = BorderColor .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Color = BorderColor .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).Color = BorderColor End With Cancel = True End Sub -- Thanks, Chad |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Theme color doesn't change when I click it? | Excel Worksheet Functions | |||
Need a button to click to toggle cell color on/off | Excel Discussion (Misc queries) | |||
Right Click Fill Color | Excel Discussion (Misc queries) | |||
How do you change the color of a hyperlink after you click on it? | Excel Worksheet Functions | |||
Change cell back color on click | Excel Discussion (Misc queries) |