Excel中用按钮切换一个格的颜色

发布网友发布时间：2022-04-26 04:06

共4个回答

热心网友时间：2022-06-20 16:48

一定要那么多按钮吗？

我这里用一个按钮（“按钮1”），每次选中需变换颜色的单元格，然后再按按钮，就可以切换颜色了，这里的颜色是随机分配的

Sub 按钮1_Click()
With ActiveSheet
    With Selection.Interior
        .Color = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
    End With
End With
End Sub

热心网友时间：2022-06-20 16:49

直接点击单元格变色就行了呀，省按钮
用Worksheet_SelectionChange事件，判断target的颜色，然后重新赋值一个颜色。追问如果按一次让A5变成true A1 变成红149绿179蓝215
再按一次让A5变成false A1 变成红 217 绿151 蓝149
有办法么？
我是想要这样的

追答

其实你这个要求用按钮倒是挺方便的。

Sub 按钮1_Click()
[A5] = Not ([A5])
If [A5] = True Then [A1].Interior.Color = RGB(149, 179, 215) Else [A1].Interior.Color = RGB(217, 151, 149)
End Sub

A5预先输入true或者false

热心网友时间：2022-06-20 16:49

自己录个
sub
宏1()
cells.select'选中工作表所有单元格
selection.locked
=
false
'锁定
selection.locked
=
true
'解锁
end
sub

热心网友时间：2022-06-20 16:50

录个宏,稍做修改就可以了追问我想要两个色的切换
如果按一次让A5变成true A1 变成红149绿179蓝215
再按一次让A5变成false A1 变成红 217 绿151 蓝149
有办法么？

追答为什么不用单元格本身作为按钮呢? 这样应该能很好的解决你说的"卡"的问题