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

Jack.G

Book1.7z (6.64 KB, 下载次数: 15)

2015-1-22 15:40 上传

点击文件名下载附件
附件文件

如附件，如何使用Vba 找出指定的列Column3, Column5, Column6中是否有符合条件的单元格，
附加条件是：如果Column10某个单元格内容是Format1，该单元格所在行在Column6处的单元格必须有内容；如果Column10的某个单元格是Format2，该单元格所在行在column6的相应单元格必须为空格。
如果有用Msgbox提示这些单元格的位置，
如果没有符合条件的单元格Msgbox 提示“ Correct".

funfox

请问附加条件是由外部给定？还是程序自己透过运算会知道其条件，且外部不能更改？

蓝桥玄霜

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. Next
    
12. If ad <> "" Then MsgBox ad Else MsgBox "Correct"
    
13. End Sub
    

复制代码

蓝桥玄霜

请见附件。

liulang0808

这个是需要使用表格事件还是设置按钮点击后 运行

Jack.G

funfox 发表于 2015-1-22 15:52
请问附加条件是由外部给定？还是程序自己透过运算会知道其条件，且外部不能更改？

算外部给定的把，附加条件是我自己设定的，希望程序运行的时候遵守这个条件。

Jack.G

funfox 发表于 2015-1-22 15:52
请问附加条件是由外部给定？还是程序自己透过运算会知道其条件，且外部不能更改？

你好，是我自己设定的条件，希望程序运行时能够准守这个条件。

Jack.G

liulang0808 发表于 2015-1-22 15:57
这个是需要使用表格事件还是设置按钮点击后 运行

额，不太懂啊 刚学习 我现在只知道用宏和代码 你看什么样的合适 同时也把代码贴给我把 我可以多学习下 谢谢啦

Jack.G

蓝桥玄霜 发表于 2015-1-22 15:54

多谢蓝桥老师，我试了下代码，可以执行。之前我没有把问题说清楚，附件条件只针对Column6，在Column3和Column中的所有空白单元格都要在Msg里面显示出来的，麻烦帮忙改下代码吧，谢谢啦

Jack.G

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

附加条件，^_^"      

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