求一句命令的写法，老师帮帮忙。

stockding111 · 发表于 2013-6-3 12:15

想表达这样的意思：
如果“B3：C3”单元格不是红色填充色，则忽略
如果“B3：C3”单元格颜色是红色，那么则查找“K3：L3”颜色是否为红色，如果不是，则在S3单元格输入“1”

谢谢老师了

lyf7276 · 发表于 2013-6-3 12:27

if range("b3:c3").Interior.Color=255 then
ifF( range("k3:l3")..Interior.Color<>255,range("s3").Interior.Color=range("s3").Interior.Color,range("s3").Interior.Color=255)
end if

rinyxa · 发表于 2013-6-3 12:29

If Range("b3:c3").Interior.ColorIndex = 3 And Range("k3:l3").Interior.ColorIndex <> 3 Then Range("b1") = 10

hwc2ycy · 发表于 2013-6-3 12:38

本帖最后由 hwc2ycy 于 2013-6-3 12:41 编辑

If Range("b3").Interior.ColorIndex = 3 And Range("c3").Interior.ColorIndex = 3 Then
If Not Range("k3").Interior.ColorIndex = 3 And Range("l3").Interior.ColorIndex = 3 Then Range("s3").Value = 1
End If

复制代码

hwc2ycy · 发表于 2013-6-3 12:39

If Range("b3").Interior.ColorIndex = 3 And Range("c3").Interior.ColorIndex = 3 Then
If Not (Range("k3").Interior.ColorIndex = 3 And Range("l3").Interior.ColorIndex = 3) Then Range("s3").Value = 1
End If

复制代码

hwc2ycy · 发表于 2013-6-3 12:48

本来想用格式查找的，代码还是复杂了点。

stockding111 · 发表于 2013-6-3 12:54

rinyxa 发表于 2013-6-3 12:29
If Range("b3:c3").Interior.ColorIndex = 3 And Range("k3:l3").Interior.ColorIndex 3 Then Range("b1") ...

为什么做了个按钮后点击没任何反应呢？

stockding111 · 发表于 2013-6-3 13:19

hwc2ycy 发表于 2013-6-3 12:39

689.zip (24.2 KB, 下载次数: 2)

无聊的疯子 · 发表于 2013-6-3 13:24

stockding111 发表于 2013-6-3 13:19
老师看看为什么按钮就没反应呢？

条件格式设置的单元格颜色填充是不能这样用代码来判断的

其实你可以从源头来修改，也就是根据你条件格式的条件来直接判断，而不需要去判断单元格的颜色是不是红色

stockding111 · 发表于 2013-6-3 13:29

无聊的疯子发表于 2013-6-3 13:24
条件格式设置的单元格颜色填充是不能这样用代码来判断的

其实你可以从源头来修改，也就是根据你条件格 ...

谢谢老师提醒，是条件格式填充的颜色，怪不得没反应。可是如果要从源头做的话，需要判断47行呢，那该怎么办啊。

689.zip (24.2 KB, 下载次数: 1)

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

求一句命令的写法，老师帮帮忙。

相关帖子