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