如何在 if 中使用 if 條件

Question

我想用一個If()內If()語句。 是否可以不放置Else()之前。

我的代碼：

For i = 3 To 24
  If i < 25 Then
    sourcef = Sheets("Macro Control").Range("B" & i)
    fname = "Z:\ISC-Product Costing\Manufacturing Controlling\03_BUDGETS\2019\Chocolate\OP'19\Reporting\Plant Submission\OP'19 Deck " & sourcef & ".xlsx"
    Workbooks.Open fname, UpdateLinks:=0
    Set wC3 = ActiveWorkbook
    Set wC1 = wC3.Sheets("Conversion P&L")
    Set wC2 = ThisWorkbook.Sheets(sourcef)
    Sheets("Conversion P&L").Select
    ThisWorkbook.Activate
    Sheets(sourcef).Select
    Call CompareColumns
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "EUR"
    Range("B2").Select
    ("some more Code")

    wC3.Activate
    ActiveWindow.Close savechanges:=False
  Else
  End If
Next i

(some more code)
End Sub

我想補充一個If之后Call CompareColumns 。 怎么做？

Call CompareColumns是另一個宏，其中“相同”的值將被定義為 True 或 False。 我想添加If Same = True then “代碼繼續” Else轉到wc3. Activate wc3. Activate 。

Answer 1

您可以根據需要使用盡可能多的“如果”。 而且您也不需要使用 else 情況。

If .... Then

   If .... Then
   ....
   Else
   ....
   End If

End If

在你的情況下：

If i < 25 Then
   Code...
 If i < 25 Then
   Call CompareColumns
   Rest of code....
 Else 
  wc3.Activate
  Rest of code....
 End If
End If

Answer 2

如果你需要更多，如果你可以使用選擇案例：即

Select Case yourInput
    Case Is <= 25
        'your code
    Case Is >= 70
        'your code
    Case Else
        'your code
End Select