如何使EXCEL单元行根据特定条件改变颜色
要把左图变为右图。是整行颜色的要变成那个颜色,不是单元格。
就是以款号那列为主,每改变一个款号就间隔一个颜色,方便查看,因为款号有几千个,如果一个一个的手动改颜色太痛苦了。
请仔细看我的图片,可以点击放大看,我的每款款号的行数都是不定的,有的款缺码,导致有的款号是5行有的款号是6行,后面有也许也有4行、7行的,是不固定行数,因此不能输入固定的数值来做。
另:一楼的公式我试了,没有改变,还是谢谢,还有其他方法吗? 展开
当然还是用宏了,为了你这个我特地研究了一下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
输入固定的数值后,下面可以直接选择 你想怎么显示格式
不用宏的情况下,使用辅助列加条件格式也能完成。
这里我就按你图里面只有4列的情况来看,进行以下操作就可以了:
在E2中输入公式“=IF(A2=A1,E1,1-E1)”(不要引号)
将E2单元格向下填充至表格最后一行
全选表格,点击菜单中的格式→条件格式→新建规则
在弹出的“新建格式规则”窗口中选择“使用公式确定要设置格式的单元格”
在下面输入“=$E1=1”
点击格式按钮,在弹出的窗口中点击填充,然后选择你要改变成的颜色
点击确定,再次点击确定
通过以上步骤就可以实现不同内容则分色显示的效果了。
广告 您可能关注的内容 |