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

lotus2002

假如有个纵列k，这列单元格里面的内容为有效、失效和暂停三种内容

有这种情况：如果K列某个单元格的内容不等于“有效”，则此行的内容（K列之前的，含K列）字体颜色全部自动更改为红色，请问该怎么设置？


谢谢！！

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

ACMAIN_CHM

可以在单元格条件格式中设置，自定义公式
=k1='有效'

具体操作请直接查看EXCEL自带的帮助手册中“条件格式”


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209

wait→alone

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

excel201

学到一招了……