请教：同时满足三个条件就结束的判断语句

鄂龙蒙

liulang0808 发表于 2014-7-7 10:04
到目前还是没有明白是什么三个条件的

刚才是我没表达清楚。
我想要的是：arr(i,6)中管理费、制造费、应交税金，三项对应的arr(i,10)均没有数据时，就结束程序，
若其中有一项有数据就运行程序。

chxw68

鄂龙蒙 发表于 2014-7-7 10:06
刚才是我没表达清楚。
我想要的是：arr(i,6)中管理费、制造费、应交税金，三项对应的arr(i,10)均没有数据 ...

不明白你的意思。arr(i,6)中不管有多少个可能的值，但对应的arr(i,10)只有一个。

鄂龙蒙

chxw68 发表于 2014-7-7 10:12
不明白你的意思。arr(i,6)中不管有多少个可能的值，但对应的arr(i,10)只有一个。

是用工作表录入的，arr(i,6)和arr(i,10)有很多行的。

鄂龙蒙

chxw68 发表于 2014-7-7 10:12
不明白你的意思。arr(i,6)中不管有多少个可能的值，但对应的arr(i,10)只有一个。

因为不增加个判断，三项均没数据，下面的程序继续运行就出错。

chxw68

鄂龙蒙 发表于 2014-7-7 10:20
因为不增加个判断，三项均没数据，下面的程序继续运行就出错。

你上个附件吧！这样说地球人都不会明白的。

liulang0808

鄂龙蒙 发表于 2014-7-7 10:06
刚才是我没表达清楚。
我想要的是：arr(i,6)中管理费、制造费、应交税金，三项对应的arr(i,10)均没有数据 ...

要不你传一个附件，结合附件说明一下吧。这样语言描述还是不明白是什么意思的

chxw68

猜楼主是不是下面这个意思：

1. 
   
2. Sub test()
   
3.   Dim i%, s%
   
4.   s = 0
   
5.   For i = 1 To UBound(arr)
   
6.     Select Case arr(i, 6)
   
7.       Case "管理费"
   
8.         If arr(i, 10) = "" Then
   
9.           s = s + 1
   
10.         End If
    
11.       Case "制造费"
    
12.         If arr(i, 10) = "" Then
    
13.           s = s + 1
    
14.         End If
    
15.       Case "应交税金"
    
16.         If arr(i, 10) = "" Then
    
17.           s = s + 1
    
18.         End If
    
19.     End Select
    
20.   next
    
21.   If s = 3 Then
    
22.     MsgBox "没有您要统计的数据！", vbOKCancel, "提示："
    
23.     Exit Sub
    
24.   End If
    
25. End Sub

复制代码

鄂龙蒙

chxw68 发表于 2014-7-7 10:43
猜楼主是不是下面这个意思：

刚准备做个模拟件还没做好，大师的代码正合我意，谢谢！

chxw68

鄂龙蒙 发表于 2014-7-7 11:25
刚准备做个模拟件还没做好，大师的代码正合我意，谢谢！

猜了很长时间才猜出来，这样的问题用文字不好表述，如果上个附件一看就明白了。

lutom

把所有的OR  改成  AND