Question

Excel 工作表 单击指定区域单元格自动填充颜色，在次点击恢复

任何实现 Excel 工作表 单击指定的区域单元格自动填充颜色，在次点击恢复。

Answer 1

这格式菜单上面有一行常用的工具，其中有一个填充颜色的按钮。选定了单元格区域以后，单击这个填充颜色的按钮，它就会自动填充颜色。再次单击这个按钮，它就会恢复原来的颜色。

追问

谢谢您的回答，我要的不是这个效果，不过还是非常感谢！：）

Answer 2

Answer 3

Sub 填充颜色()
[A1] = [A1] + 1
n = [A1] Mod 2
If n = 1 Then
    Range("A1:E10").Interior.ColorIndex = 3 '填充红色
    Else
  Range("A1:E10").Interior.ColorIndex = xlNone
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim tr, tc
 tr = Target.Row
 tc = Target.Column
 If tr >= 1 And tr <= 10 And tc <= 5 Then 'A1:E10
 填充颜色
 End If
 End Sub

追问

抱歉没有表达清楚， 我想要的效果是 在指定的区域内 鼠标点击某个单元格，此单元格就自动填充颜色 。比如 在G列里 鼠标点G2单元格，G2单元格就自动填充红色 ，点击G5单元格G5就填充 只要不重复点就保留下来。

追答

cells(tr,tc)