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

stockding111

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

谢谢老师了

lyf7276

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

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

hwc2ycy

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

复制代码

hwc2ycy

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

复制代码

hwc2ycy

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

stockding111

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

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

stockding111

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

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

2013-6-3 13:19 上传

点击文件名下载附件    老师看看为什么按钮就没反应呢？

无聊的疯子

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

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

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

stockding111

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

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

谢谢老师提醒，是条件格式填充的颜色，怪不得没反应。可是如果要从源头做的话，需要判断47行呢，那该怎么办啊。 689.zip (24.2 KB, 下载次数: 1)

2013-6-3 13:29 上传

点击文件名下载附件