判断问题.

wudehun

问题:当第1列找到ABC 并且 cells(ABC.row,2)=D, 2个条件同时成立  不做过程,else 做过程.


如果我写的过程为下面, 当找不到ABC时,cells(temp.row,2)会出错.应该怎么写,才能简化代码呢?因为XXXXXX的代码比较长.

if not range("A1").find("ABC") is nothing then    '找到ABC就定位
      set temp=range("A1").find("ABC")
end if

if not temp is nothing and cells(temp.row,2)="D" THEN      '如果找到ABC并且ABC行,2列为D,就不做.
else
    xxxxxxxxxxxxxxx
    xxxxxxxxxxxxxxx
end if


Book1.zip (6.05 KB, 下载次数: 4)

2013-7-30 15:59 上传

点击文件名下载附件

ctp_119

目测，find用法可能不对，请上传附件。。。谢谢

wudehun

ctp_119 发表于 2013-7-30 15:55
目测，find用法可能不对，请上传附件。。。谢谢

附件以上传. 不是find 不对,当有ABC时,程序没问题的,但是一但删除ABC就出错了.

jsxjd

1. Sub TEST()
   
2.     Set temp = Range("A1").Find("ABC")
   
3.     If temp Is Nothing Then Exit Sub
   
4.     If Cells(temp.Row, 2) = "D" Then    '如果找到ABC并且ABC行,2列为D,就不做.
   
5.         MsgBox ("DONE")
   
6.     End If
   
7. End Sub
   

复制代码

wudehun

如果写成下面的话,做的代码又比较长,不想重复copy.

if 找不到 ABC 做XXX
elseif 找不到D 做XXX
end if

wudehun

jsxjd 发表于 2013-7-30 16:10

看来只能用2个循环嵌套了..因为源程序有循环的,而vba的循环不能跳过  i  条,直接进入 i+1 条,所以比较麻烦.只能用goto了.

wudehun

jsxjd 发表于 2013-7-30 16:10

if temp is nothing then msgbox("done")
判断是找不到ABC也做,不过源程序msgbox 为20多行代码,用这种方法维护比较难.

jsxjd

wudehun 发表于 2013-7-30 16:29
if temp is nothing then msgbox("done")
判断是找不到ABC也做,不过源程序msgbox 为20多行代码,用这种方 ...

楼主要把逻辑描述清楚……