Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
Target.EntireRow.Interior.ColorIndex = 10
End If
End Sub
试试吧,代码是上面的,附件在下面
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
Target.EntireRow.Interior.ColorIndex = 10
End If
End Sub
试试吧,代码是上面的,附件在下面