如何找出符合条件的单元格

funfox

Jack.G 发表于 2015-1-22 16:52
附加条件，^_^"      

另外，你给的附件在我电脑上打开后 点按钮 执行出错了，不知道怎么回事 还望多 ...

两点建议
1.        要将你的要求「完整」的向大家提出，避免论坛上的好心人，虽然有意愿帮你，但猜出来的代码跟你所需的代码又不一样，反而没帮到你
2.        上传「结构完整」的「部分档案」，可以避免往来测试代码的时间迟滞
另外，基本上除非功能一样，否则不会有结构完全一模一样的代码可以贴给你
感谢听我啰唆～

蓝桥玄霜

Jack.G 发表于 2015-1-22 16:48
多谢蓝桥老师，我试了下代码，可以执行。之前我没有把问题说清楚，附件条件只针对Column6，在Column3和Co ...

column3的判断条件是什么？问题不清楚。

Jack.G

蓝桥玄霜 发表于 2015-1-23 09:29
column3的判断条件是什么？问题不清楚。

不好意思啊 蓝桥老师，昨天说的不太明白 希望这次能把问题说清楚了。
具体问题其实是这样的：
在表格里面的这三列Column3、Column5、Column6，其中Column3、Column5不论何时都不能出现空白单元格；
而由于Column6和Column10的内容相关联，如果Column10内容为Format1的时候，Column6对应空单元格必须为非空单元格，不能出现空白单元格；
如果Column10的内容为Format2的时候，则Column6的对应单元格必须为空白单元格，不能出现非空单元格。

要求是找出所有不符合条件的[空白单元格]，并且用消息窗口显示这些单元格的地址。

Jack.G

funfox 发表于 2015-1-22 21:27
两点建议
1.        要将你的要求「完整」的向大家提出，避免论坛上的好心人，虽然有意愿帮你，但猜出来的代码跟 ...

多谢提醒funfox童鞋的“啰嗦”，希望有时间多交流，共同进步哦。
1：的确是我表述不太明白，我在楼下蓝桥老师那里又重新写了下要求。
2：由于文件比较大 而这一点功能只是我做QC里面的一点内容，所以做了个简单的附件，请相信绝对不是因为机密问题，由于原文件涉及很多的专业术语且文件太大。
3：主要能实现 ‘找到符合条件的单元格，然后把的地址都用消息窗头显示出来’，这个核心内容，不需要完全一致的代码。

蓝桥玄霜

1. Sub lqxs()
   
2.     Dim Arr, i&, ad$
   
3.     Sheet1.Activate
   
4.     Arr = Sheet1.UsedRange
   
5.     For i = 4 To UBound(Arr)
   
6.         If Arr(i, 10) = "Format1" Then
   
7.             If Arr(i, 6) = "" Then ad = ad & Cells(i, 6).Address & vbCrLf
   
8.         ElseIf Arr(i, 10) = "Format2" Then
   
9.             If Arr(i, 6) <> "" Then ad = ad & Cells(i, 6).Address & vbCrLf
   
10.         End If
    
11.         If Arr(i, 3) = "" Then ad = ad & Cells(i, 3).Address & vbCrLf
    
12.         If Arr(i, 5) = "" Then ad = ad & Cells(i, 5).Address & vbCrLf
    
13.     Next
    
14.     If ad <> "" Then MsgBox ad Else MsgBox "Correct"
    
15. End Sub
    

复制代码

Jack.G

蓝桥玄霜 发表于 2015-1-23 19:29

好的，能执行 也看懂了 谢谢蓝桥老师

kafuelee

谢谢分享，