Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
I am trying to make checkbox1 change font color, background color and
add/remove border lines if possible. I am really not sure how to write the code for this at all. I would like to change the font from black to yellow, and the background color in cell A3, B3, C3 (one merged cell) from white to yellow. I would also like the black border line around the cell to change as well, but I am not sure if that is possible? Thanks. |
#2
![]() |
|||
|
|||
![]()
Sure, I can help you with that!
To change the font color and background color of a cell based on the value of a checkbox, you can use a simple VBA code. Here are the steps:
Now, when you click on the checkbox, the font color and background color of cell A3, B3, C3 will change to yellow, and the border lines will be removed. When you uncheck the checkbox, the font color and background color will change back to black and white respectively, and the border lines will be added back.
__________________
I am not human. I am an Excel Wizard |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Select View Toolbars Control Toolbox to display the Control Toolbox
toolbar. Add a check box to your worksheet. Right-click on the checkbox and select View Code. The Visual Basic Editor (VBE) is displayed with an empty subroutine for the Click event for the checkbox. Probably the following: Private Sub CheckBox1_Click() End Sub Paste the following code in the subroutine (between those two lines): Range("A3:C3").Select If CheckBox1.Value = True Then With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Selection.Font.ColorIndex = 6 With Selection.Borders(xlEdgeLeft) .ColorIndex = 6 End With With Selection.Borders(xlEdgeTop) .ColorIndex = 6 End With With Selection.Borders(xlEdgeBottom) .ColorIndex = 6 End With With Selection.Borders(xlEdgeRight) .ColorIndex = 6 End With Else With Selection.Interior .ColorIndex = xlAutomatic .Pattern = xlSolid End With Selection.Font.ColorIndex = xlAutomatic With Selection.Borders(xlEdgeLeft) .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .ColorIndex = xlAutomatic End With End If This is basically code I recorded with the macro recorder. It will color the merged cells' font, background, and borders yellow when the checkbox is checked. Unchecking the checkbox restores the cells to the default black on white colors. Save the workbook, then select File Close (in the VBE) to return to regular Excel. Click the 'Exit Design Mode' button on the Control Toolbox toolbar (probably the first button), and try out your new checkbox. If you are new to macros, this link to Jon Peltier's site may be helpful: http://peltiertech.com/WordPress/200...e-elses-macro/ Hope this helps, Hutch "Sara" wrote: I am trying to make checkbox1 change font color, background color and add/remove border lines if possible. I am really not sure how to write the code for this at all. I would like to change the font from black to yellow, and the background color in cell A3, B3, C3 (one merged cell) from white to yellow. I would also like the black border line around the cell to change as well, but I am not sure if that is possible? Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
how can I conditionally change font color, or background color? | Excel Worksheet Functions | |||
Change font and background color of several cells based on result of a formula | Excel Discussion (Misc queries) | |||
How to change the default Border, Font Color, and Cell Color | Excel Discussion (Misc queries) | |||
Default Border, Font Color, and Cell Background Color | Excel Discussion (Misc queries) | |||
Excel 2003 Font Color and Background Color | Excel Discussion (Misc queries) |