请帮忙解决一个excel公式或者VBA的问题

wait→alone

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
   If Target.Text <> "有效" Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Font.ColorIndex = 3
   ElseIf Target.Text = "有效" Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Font.ColorIndex = 1
   End If
End If
End Sub

wait→alone

条件格式的话，选中A：K列，条件格式，公式：
=$K1<>"有效"，格式字体设置成红色
我升了星星，向版主致敬！