求VBA写法已解决，谢谢 kzg2013 老师

nmwjh · 发表于 2019-1-14 21:55

本帖最后由 nmwjh 于 2019-1-15 12:22 编辑

微信图片_20190115081720.png

如果 (A1：A10,C1:C10)范围包含× 并且包含×的单元格没有填充色，那么填充成黄色。
如果 (A1：A10,C1:C10)范围包含× 并且包含×的单元格是黄色，那么填充成黑色。
(A1：A10,C1:C10)范围不符合以上条件的，那么不符合条件的单元格改成无填充颜色。

““以上条件的VBA应该咋写呀，求老师帮忙，谢谢

kzg2013 · 发表于 2019-1-14 22:43

Sub fillColor()
Set rng1 = Range("a1:a10")
Set rng2 = Range("c1:c10")
Set rng3 = Union(rng1, rng2)

  x = InputBox("输入条件")
For Each cl In rng3
If cl Like "*" & x & "*" And cl.Interior.ColorIndex = -4142 Then
   cl.Interior.Color = vbYellow
ElseIf cl Like "*" & x & "*" And cl.Interior.Color = vbYellow Then
   cl.Interior.Color = vbBlack
   Else
   cl.Interior.ColorIndex = 0
   End If
   Next
End Sub

chentonny · 发表于 2019-1-14 23:42

用几个IF语句就可以搞定啊

liulang0808 · 发表于 2019-1-15 07:05

请楼主上传附件吧，结合附件描述具体问题

nmwjh · 发表于 2019-1-15 12:20

kzg2013 发表于 2019-1-14 22:43
Sub fillColor()
Set rng1 = Range("a1:a10")
Set rng2 = Range("c1:c10")

谢谢！！！！！！！！

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

[已解决] 求VBA写法已解决，谢谢 kzg2013 老师

最新热点 /1

[已解决] 求VBA写法 已解决，谢谢 kzg2013 老师

最新热点 /1

[已解决] 求VBA写法已解决，谢谢 kzg2013 老师