[已解决]求助各位老师，条件填充颜色。

yslvictor · 发表于 2012-6-19 08:20

条件：
如果B1等于A列的某一值，在C1填充红色;
如果B2等于A列的某一值，在C2填充红色;
如果B3等于A列的某一值，在C3填充红色;
……………………………………………………………
如果Bn等于A列的某一值，在Cn填充红色。
（n为大于0的自然数）
先谢谢了

根据条件填充颜色.rar (2.22 KB, 下载次数: 37)

lotte · 发表于 2012-6-19 08:34

根据条件填充颜色.xls (25.5 KB, 下载次数: 42)

sliang28 · 发表于 2012-6-19 08:35

请测试附件。

yslvictor · 发表于 2012-6-19 08:43

谢谢2楼老师给的最佳答案。

fjmxwrs · 发表于 2012-6-19 08:43

选择C列，条件格式，公式
=NOT(ISERROR(VLOOKUP($B1,$A:$A,1,)))
格式设置为填充红色，确定即可

根据条件填充颜色.rar (4.23 KB, 下载次数: 5)

hongqiqqq · 发表于 2012-6-19 08:45

使用条件公式
公式已经在表中了，看看是不是你要的

hongqiqqq · 发表于 2012-6-19 08:47

回晚了，都已经有经典回复了

ppp710715 · 发表于 2012-6-19 08:50

周义坤 · 发表于 2012-6-19 09:12

Sub ek_sky()
Dim arr1, arr2
Dim i&
Application.ScreenUpdating = False
Range("C:C").Interior.ColorIndex = 0
arr1 = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
arr2 = Range("B1:B" & Cells(Rows.Count, 2).End(3).Row)
For i = 1 To UBound(arr2)
For j = 1 To UBound(arr1)
If arr2(i, 1) = arr1(j, 1) Then
Range("C" & i).Interior.ColorIndex = 3
Exit For
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub

复制代码

yslvictor · 发表于 2012-6-19 22:23

本帖最后由 yslvictor 于 2012-6-19 22:33 编辑

周义坤发表于 2012-6-19 09:12

你好，版主老师，后来我才知道你发的代码填充颜色，占资源少，很实用。我对vba不懂，你的代码我套用别的地方都不成功，麻烦老师帮我写一段代码：

如果J1等于BT列的某一值，在U1填充红色;
如果J2等于BT列的某一值，在U2填充红色;
如果J3等于BT列的某一值，在U3填充红色;
……………………………………………………………
如果Jn等于BT列的某一值，在Un填充红色。
新帖子链接：http://www.excelpx.com/forum.php?mod=viewthread&tid=248796&extra=page%3D1

根据条件填充颜色2.rar (2.55 KB, 下载次数: 2)

		自动登录	找回密码
密码			注册

[已解决]求助各位老师，条件填充颜色。

相关帖子