[已解决]VBA IF 条件判断问题

userlfj

     If Range("B2") > 6 Then
     GoTo output:

    ElseIf Range("K3") > 5 And Range("L3") > 3 And Range("M3") > 3 And Range("N3") > 4 And Range("O3") > 4 And Range("P3") > 4 And Range("Q3") > 4 And Range("R3") > 4 _
    And Range("S3") > 4 And Range("T3") > 4 And Range("U3") > 4 And Range("V3") > 4 And Range("W3") > 4 And Range("X3") > 4 And Range("Y3") > 4 And Range("Z3") > 4 _
    And Range("AA") > 4 Then

output:

        Set abc = CreateObject("scripting.filesystemobject")
        Set ntxt = abc.opentextfile("1.txt", 8, True)
        ntxt.writeline “正确”
        ntxt.Close
        Set abc = Nothing
        Else
     End If


到上面的ElseIf ..... Then 报全局错误，请问怎么处理。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-2 17:15

1. Sub tets()
   
2. 
   
3.     Dim blCon1 As Boolean
   
4.     Dim blCon2 As Boolean
   
5.    
   
6.     blCon1 = Range("B2") > 6
   
7.     blCon2 = Range("K3") > 5 And Range("L3") > 3 And Range("M3") > 3 And Range("N3") > 4 And Range("O3") > 4 And Range("P3") > 4 And Range("Q3") > 4 And Range("R3") > 4 _
   
8.              And Range("S3") > 4 And Range("T3") > 4 And Range("U3") > 4 And Range("V3") > 4 And Range("W3") > 4 And Range("X3") > 4 And Range("Y3") > 4 And Range("Z3") > 4 _
   
9.              And Range("AA3") > 4
   
10.    
    
11.     Select Case True
    
12.         Case blCon1
    
13.         Case blCon2
    
14.         Case Else
    
15.             Exit Sub
    
16.     End Select
    
17.    
    
18.     Set abc = CreateObject("scripting.filesystemobject")
    
19.     Set ntxt = abc.pentextfile("1.txt", 8, True)
    
20.     ntxt.writeline "正确"""
    
21.     ntxt.Close
    
22.     Set abc = Nothing
    
23. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

传附件。

hwc2ycy

1. Range("AA")

复制代码

这里写错了，没加行号。

hwc2ycy

代码的逻辑判断太乱了。
一般情况下，不要用GOTO来改变代码方向。

1. Sub tets()
   
2.     If Range("B2") > 6 Then
   
3.         GoTo output:
   
4. 
   
5.     ElseIf Range("K3") > 5 And Range("L3") > 3 And Range("M3") > 3 And Range("N3") > 4 And Range("O3") > 4 And Range("P3") > 4 And Range("Q3") > 4 And Range("R3") > 4 _
   
6.            And Range("S3") > 4 And Range("T3") > 4 And Range("U3") > 4 And Range("V3") > 4 And Range("W3") > 4 And Range("X3") > 4 And Range("Y3") > 4 And Range("Z3") > 4 _
   
7.            And Range("AA3") > 4 Then
   
8. output:
   
9.         Set abc = CreateObject("scripting.filesystemobject")
   
10.         Set ntxt = abc.pentextfile("1.txt", 8, True)
    
11.         ntxt.writeline "正确"""
    
12.         ntxt.Close
    
13.         Set abc = Nothing
    
14.     Else
    
15.     End If
    
16. End Sub

复制代码

hwc2ycy

1. Sub tets()
   
2. 
   
3.     Dim blCon1 As Boolean
   
4.     Dim blCon2 As Boolean
   
5.    
   
6.     blCon1 = Range("B2") > 6
   
7.     blCon2 = Range("K3") > 5 And Range("L3") > 3 And Range("M3") > 3 And Range("N3") > 4 And Range("O3") > 4 And Range("P3") > 4 And Range("Q3") > 4 And Range("R3") > 4 _
   
8.              And Range("S3") > 4 And Range("T3") > 4 And Range("U3") > 4 And Range("V3") > 4 And Range("W3") > 4 And Range("X3") > 4 And Range("Y3") > 4 And Range("Z3") > 4 _
   
9.              And Range("AA3") > 4
   
10.    
    
11.     Select Case True
    
12.         Case blCon1
    
13.         Case blCon2
    
14.         Case Else
    
15.             Exit Sub
    
16.     End Select
    
17.    
    
18.     Set abc = CreateObject("scripting.filesystemobject")
    
19.     Set ntxt = abc.pentextfile("1.txt", 8, True)
    
20.     ntxt.writeline "正确"""
    
21.     ntxt.Close
    
22.     Set abc = Nothing
    
23. End Sub

复制代码

userlfj

hwc2ycy 发表于 2013-6-2 17:09
这里写错了，没加行号。

恩，谢谢，主要是很多条件同时满主的IF 我不晓得怎么写，还是新手，谢谢你的回答。

无聊的疯子

对于多单元格需要单独判断，并且判断条件是一样的，可以写一个公用过程来进行处理


下面自定义过程中 rng 为条件单元格，num 为判断的值
只要条件相同，这个区域可以是连续的，也可以是不连续的
如不连续的区域这样写：
MsgBox Tf(Range("A3:F3,e5,H6,N3:Y3"), 3)
判断 Range("A3:F3,e5,H6,N3:Y3") 这些单元格的值是否都大于3，只要有一个不大于3 则会返回 false

1. 
   
2. Private Function Tf(ByVal Rng As Range, ByVal Num As Double) As Boolean
   
3. Dim C As Range, Js As Integer
   
4.     For Each C In Rng
   
5.         If C.Value > Num Then
   
6.             Js = Js + 1
   
7.         Else
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11.     Tf = (Js = Rng.Count)
    
12. End Function
    

复制代码

你的代码修改后：

1. 
   
2.     If Range("B2") > 6 Then
   
3.      GoTo output:
   
4.     ElseIf Range("K3") > 5 And Tf(Range("L3:M3"), 3) And Tf(Range("N3:AA3"), 4) Then
   
5. output:
   
6.         Set Abc = CreateObject("scripting.filesystemobject")
   
7.         Set Ntxt = Abc.opentextfile("1.txt", 8, True)
   
8.         Ntxt.writeline "正确"
   
9.         Ntxt.Close
   
10.         Set Abc = Nothing
    
11.     Else
    
12.     End If
    

复制代码

userlfj

无聊的疯子 发表于 2013-6-2 20:55
对于多单元格需要单独判断，并且判断条件是一样的，可以写一个公用过程来进行处理

谢谢！问题解决了。看到你的回复，学到了另一种方法。

hwc2ycy

无聊的疯子 发表于 2013-6-2 20:55
对于多单元格需要单独判断，并且判断条件是一样的，可以写一个公用过程来进行处理

欢迎酱油哥到此一油啊。
总是能查漏补缺。