如何先退出If,然后再单击Then和End If语句?

时间:2019-11-23 19:10:07

标签: excel vba if-statement

我需要一种方法来结束If,然后在“ Then”之前

For i = 0 To Main.[B10000].End(xlUp).Row - 4

    POD = Trim(Main.Range("B5").Offset(i, 0))
    If POD <> "" Then

        L2 = "https:/AAAAA" & POD

        P.Open "Get", L2
        P.SetAutoLogonPolicy 0
        P.send
        P.waitForResponse

        D.body.innerHTML = P.responseText

        For Each R In D.getElementsByClassName("col-md-7")
            If InStr(1, R.innerText, "pod is not found on floor") <> 0 Then
                Main.Range("B5").Offset(i, 1) = "Offline"

                **'I need end here if = Offline**

            Else
                Main.Range("B5").Offset(i, 1) = "Online"
            End If
        Next R
    End If
Next i

End Sub

1 个答案:

答案 0 :(得分:0)

如AJD所述,您可以在将B5单元格的值设置为“离线”后退出

<mat-form-field>
  <mat-label>State</mat-label>
  <mat-select [(ngModel)]="currentState" name="State">
    <mat-option *ngFor="let state of states" [value]="state">{{state}}</mat-option>
  </mat-select>
  <div matSuffix>
    <mat-icon (click)="currentState = null">clear</mat-icon>
  </div>
</mat-form-field>

下一个我