execl2010如何使用OptionButton控件修改单元格颜

发布网友发布时间：2022-05-01 10:48

共1个回答

热心网友时间：2023-10-09 08:36

Private Sub OptionButton1_Click()
Range("h3").Interior.Color = 5287936
End Sub
Private Sub OptionButton2_Click()
Range("h3").Interior.Color = 255
End Sub
Private Sub UserForm_Activate()
OptionButton1.Value = True
End Sub追问...非常感谢确实可以了

稍后给上分数

只是还有些问题就是

我下面依次这样的单元格内都是这样的，有什么捷径可以这样添加下去还是就这样每个单元格都将代码复制然后添加进去？

还一个就是如何让默认是不选中任何并且背景是原来白色的？

追答Private Sub OptionButton1_Click()
Range("A1:C8").Interior.Color = 5287936 '1
With Selection.Interior
.Color = 5287936
End With
End Sub
Private Sub OptionButton2_Click()
Range("A1:C8").Interior.Color = 255 '1‘所选择a1-c8单元格
With Selection.Interior '所选择all单元格
.Color = 255
End With
End Sub
两种方法。录制一个宏，设置快捷键，在宏代码中加一句UserForm1.Show