Office中国论坛/Access中国论坛

标题: 请帮忙解决一个excel公式或者VBA的问题 [打印本页]

作者: lotus2002 时间: 2009-3-4 10:01
标题: 请帮忙解决一个excel公式或者VBA的问题
假如有个纵列k，这列单元格里面的内容为有效、失效和暂停三种内容

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

谢谢！！

作者: wait→alone 时间: 2009-3-4 11:26
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 时间: 2009-3-4 12:11
可以在单元格条件格式中设置，自定义公式
=k1='有效'

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

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

作者: wait→alone 时间: 2009-3-4 12:34
条件格式的话，选中A：K列，条件格式，公式：
=$K1<>"有效"，格式字体设置成红色
我升了星星，向版主致敬！

作者: excel201 时间: 2009-3-4 18:53
学到一招了……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)