[已解决]一段VBA代码的求助

enisaac@hotmail

有如下一段VBA的代码： 对数组里进行轮循取值，如找到和X一样的条件字符，那么就执行.......CODE.
问题： 当这个循环遍历整个数组后没有找到X一样的条件字符，那么执行另外一个条件。该如何实现？
注：请注意是必须是循环完成没有找到条件值，才执行另外一个条件。

1. X= “precon”
   
2.   For i = 1 To UBound(arr)
   
3.         If arr(i, 1) = x Then
   
4.                      ...............CODE
   
5.             End If
   
6. Next

复制代码

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2015-11-27 11:06

1. X= “precon”
   
2. n=0
   
3.   For i = 1 To UBound(arr)
   
4.         If arr(i, 1) = x Then
   
5.                      ...............CODE
   
6.              n =n+1
   
7.             End If
   
8.        Next
   
9. if n=0 then  代码
   
10. 
    

复制代码

跳转到最佳答案楼层

这儿有肥猫

1. X= “precon”
   
2. n=0
   
3.   For i = 1 To UBound(arr)
   
4.         If arr(i, 1) = x Then
   
5.                      ...............CODE
   
6.              n =n+1
   
7.             End If
   
8.        Next
   
9. if n=0 then  代码
   
10. 
    

复制代码

爱疯

如果问题不大复杂，建议上传附件，整个说明一下。

enisaac@hotmail

编程方面没有经验，这样一个逻辑处理就行了哈，谢谢！