点击工作表标签,查看代码,把下面代码复制过去,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 4 Then Exit Sub
With Target
If .Text = "" Then
.Value = "√"
.EntireRow.Interior.ColorIndex = 3
Else
.Value = ""
.EntireRow.Interior.ColorIndex = 0
End If
End With
End Sub
回到Excel,
可以达到这样的效果。
点击D列的单元格,如果是空的就在这个单元格打个勾,这行单元格颜色变成红。
如果不为空,它就变成空的,整行颜色变成无色