Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
When I click on a particular cell i want it to change to a particular color
and when i click on it again i want it to change back to the original color |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
Here is one way
'---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Cells.FormatConditions.Delete With Target .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" .FormatConditions(1).Interior.ColorIndex = 36 End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... When I click on a particular cell i want it to change to a particular color and when i click on it again i want it to change back to the original color |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
I guess I didn't explain very good what I wanted. but here goes again
Cell is white Click on cell Cell changes to color (orange) and stays the color Click on cell again Cell changes back to white or Click on cell Cell changes to color (Green) and stays the color Click on cell again Cell changes to white I would like to work with two colors I want to be able to do this with any cell. "Bob Phillips" wrote: Here is one way '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Cells.FormatConditions.Delete With Target .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" .FormatConditions(1).Interior.ColorIndex = 36 End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... When I click on a particular cell i want it to change to a particular color and when i click on it again i want it to change back to the original color |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
Okay, but this gives some interesting effects
'---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Const iColor As Long = 10 With Target.Interior If .ColorIndex = iColor Then .ColorIndex = xlColorIndexNone Else .ColorIndex = iColor End If End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... I guess I didn't explain very good what I wanted. but here goes again Cell is white Click on cell Cell changes to color (orange) and stays the color Click on cell again Cell changes back to white or Click on cell Cell changes to color (Green) and stays the color Click on cell again Cell changes to white I would like to work with two colors I want to be able to do this with any cell. "Bob Phillips" wrote: Here is one way '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Cells.FormatConditions.Delete With Target .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" .FormatConditions(1).Interior.ColorIndex = 36 End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... When I click on a particular cell i want it to change to a particular color and when i click on it again i want it to change back to the original color |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
Is there a way to add ctl or alt and click to do this
"Bob Phillips" wrote: Okay, but this gives some interesting effects '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Const iColor As Long = 10 With Target.Interior If .ColorIndex = iColor Then .ColorIndex = xlColorIndexNone Else .ColorIndex = iColor End If End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... I guess I didn't explain very good what I wanted. but here goes again Cell is white Click on cell Cell changes to color (orange) and stays the color Click on cell again Cell changes back to white or Click on cell Cell changes to color (Green) and stays the color Click on cell again Cell changes to white I would like to work with two colors I want to be able to do this with any cell. "Bob Phillips" wrote: Here is one way '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Cells.FormatConditions.Delete With Target .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" .FormatConditions(1).Interior.ColorIndex = 36 End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... When I click on a particular cell i want it to change to a particular color and when i click on it again i want it to change back to the original color |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change color in cells
You could maybe use the BeforeDoubleClick event.
-- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... Is there a way to add ctl or alt and click to do this "Bob Phillips" wrote: Okay, but this gives some interesting effects '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Const iColor As Long = 10 With Target.Interior If .ColorIndex = iColor Then .ColorIndex = xlColorIndexNone Else .ColorIndex = iColor End If End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... I guess I didn't explain very good what I wanted. but here goes again Cell is white Click on cell Cell changes to color (orange) and stays the color Click on cell again Cell changes back to white or Click on cell Cell changes to color (Green) and stays the color Click on cell again Cell changes to white I would like to work with two colors I want to be able to do this with any cell. "Bob Phillips" wrote: Here is one way '---------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------------------------------------------------- Cells.FormatConditions.Delete With Target .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE" .FormatConditions(1).Interior.ColorIndex = 36 End With End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (remove nothere from email address if mailing direct) "garr" wrote in message ... When I click on a particular cell i want it to change to a particular color and when i click on it again i want it to change back to the original color |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
have a name change cells between sheets | Excel Worksheet Functions | |||
Change the color of cells in the pivot table | Excel Discussion (Misc queries) | |||
Change the color of some cells in the pivot table | Excel Discussion (Misc queries) | |||
I Need to change reference sheet for all cells on a form | Excel Discussion (Misc queries) | |||
Change a cell's fill color dynamically? | Excel Discussion (Misc queries) |