如何使EXCEL单元行根据特定条件改变颜色

当然还是用宏了，为了你这个我特地研究了一下VB，做了一个给你

开一个窗体建一按钮和两个文本框，注意设置文本框的名字和值，分别为Textstart/Textend

用下面的窗体代码：

Private Sub TextBox1_Change()

End Sub

Private Sub 行分色_Click()

Dim temp1 As String

Dim C1, C2, C3 As Long

temp1 = Cells(Textstart.Value, 1)

C1 = RGB(255, 255, 255)

C2 = RGB(0, 255, 0)

Rows(Textstart).Interior.Color = C1

For Counter = (Textstart.Value + 1) To Textend.Value

    If (StrComp(temp1, Cells(Counter, 1), 1) <> 0) Then Rows(Counter).Interior.Color = C2: C3 = C1: C1 = C2: C2 = C3 Else Rows(Counter).Interior.Color = C1

    temp1 = Cells(Counter, 1)

Next Counter

End Sub

————————————————————

新建宏

加入代码：

Sub 分色()

userform1.Show

End Sub

可能用ALT+F8来执行刚建的宏了，还可以自己定义一个按钮，不懂的话发email:itsangler@163.com

全选工作表,格式--条件格式--选择公式--输入=OR($B1="红",$B1="绿")点下边格式---图案---选择颜色确定.

最简单的方法是用格式菜单下的条件格式
输入固定的数值后，下面可以直接选择 你想怎么显示格式

　　不用宏的情况下，使用辅助列加条件格式也能完成。

　　这里我就按你图里面只有4列的情况来看，进行以下操作就可以了：

1. 在E2中输入公式“=IF(A2=A1,E1,1-E1)”（不要引号）

2. 将E2单元格向下填充至表格最后一行

3. 全选表格，点击菜单中的格式→条件格式→新建规则

4. 在弹出的“新建格式规则”窗口中选择“使用公式确定要设置格式的单元格”

5. 在下面输入“=$E1=1”

6. 点击格式按钮，在弹出的窗口中点击填充，然后选择你要改变成的颜色

7. 点击确定，再次点击确定

　　通过以上步骤就可以实现不同内容则分色显示的效果了。

条件格式