根据论坛里大神的IF优化教程，改了不知道哪里错..

week05

Sub 刷新()
    Application.ScreenUpdating = False
Do
    If [l11] < [l5] Then
      If [l11] > [j5] Then
        If [l12] > [j6] Then
          If [l13] > [j7] Then
            If [l14] > [j8] Then
              If [l15] > [j9] Then
                If [l16] > [j10] Then
     MsgBox "随机ZT1": Exit Do
    ElseIf [l18] < [l5] Then
          If [l18] > [j5] Then
            If [l19] > [j6] Then
              If [l20] > [j7] Then
                If [l21] > [j8] Then
                  If [l22] > [j9] Then
                    If [l23] > [j10] Then
     MsgBox "随机ZT2": Exit Do
    ElseIf [l25] < [l5] Then
          If [l25] > [j5] Then
            If [l26] > [j6] Then
              If [l27] > [j7] Then
                If [l28] > [j8] Then
                  If [l29] > [j9] Then
                    If [l30] > [j10] Then
     MsgBox "随机ZT3": Exit Do
    ElseIf [l32] < [l5] Then
          If [l32] > [j5] Then
            If [l33] > [j6] Then
              If [l34] > [j7] Then
                If [l35] > [j8] Then
                  If [l36] > [j9] Then
                   If [l37] > [j10] Then
     MsgBox "随机ZT4": Exit Do
    ElseIf [l39] < [l5] Then
          If [l39] > [j5] Then
            If [l40] > [j6] Then
              If [l41] > [j7] Then
                If [l42] > [j8] Then
                  If [l43] > [j9] Then
                    If [l44] > [j10] Then
     MsgBox "随机ZT5": Exit Do
        Else: [i1] = ""
    End If
Loop
    Application.ScreenUpdating = True
End Sub

week05

一会说 LOOP没有DO,一会说IF块没有END IF

我是来讨说法的

if和end if成对出现
有多少if就有多少end if

chis3

還是學好基礎再問吧。。。。

week05

我是来讨说法的 发表于 2018-7-20 16:42
if和end if成对出现
有多少if就有多少end if

谢谢 改了，不过现在直接卡死.......

week05

Sub 刷新()
    Application.ScreenUpdating = False
Do
    If [l11] < [l5] Then
      If [l11] > [j5] Then
        If [l12] > [j6] Then
          If [l13] > [j7] Then
            If [l14] > [j8] Then
              If [l15] > [j9] Then
                If [l16] > [j10] Then
     MsgBox "随机ZT1": Exit Do
                End If
               End If
             End If
           End If
         End If
       End If
    ElseIf [l18] < [l5] Then
          If [l18] > [j5] Then
            If [l19] > [j6] Then
              If [l20] > [j7] Then
                If [l21] > [j8] Then
                  If [l22] > [j9] Then
                    If [l23] > [j10] Then
     MsgBox "随机ZT2": Exit Do
                End If
               End If
             End If
           End If
         End If
       End If
    ElseIf [l25] < [l5] Then
          If [l25] > [j5] Then
            If [l26] > [j6] Then
              If [l27] > [j7] Then
                If [l28] > [j8] Then
                  If [l29] > [j9] Then
                    If [l30] > [j10] Then
     MsgBox "随机ZT3": Exit Do
                End If
               End If
             End If
           End If
         End If
       End If
    ElseIf [l32] < [l5] Then
          If [l32] > [j5] Then
            If [l33] > [j6] Then
              If [l34] > [j7] Then
                If [l35] > [j8] Then
                  If [l36] > [j9] Then
                   If [l37] > [j10] Then
     MsgBox "随机ZT4": Exit Do
                End If
               End If
             End If
           End If
         End If
       End If
    ElseIf [l39] < [l5] Then
          If [l39] > [j5] Then
            If [l40] > [j6] Then
              If [l41] > [j7] Then
                If [l42] > [j8] Then
                  If [l43] > [j9] Then
                    If [l44] > [j10] Then
     MsgBox "随机ZT5": Exit Do
                End If
               End If
             End If
           End If
         End If
       End If
    Else: [i1] = ""
    End If
Loop
    Application.ScreenUpdating = True
End Sub

week05

chis3 发表于 2018-7-20 16:44
還是學好基礎再問吧。。。。

恩恩，本来是用 AND 的，后面看到论坛太神说优化就自己试试...........

week05

在在是运行直接卡死.........