Если с несколькими ands, вложенные ifs или ifs с логическими значениями? - PullRequest
Новая
       7

Если с несколькими ands, вложенные ifs или ifs с логическими значениями?

0 голосов
/ 19 февраля 2020

Я пробовал эти несколько способов, и до сих пор не получаю нужный результат. У меня есть пользовательская форма с несколькими флажками. Если отмечены два флажка, я хочу один ответ, но если установлен третий флажок, отдельный ответ. Как правильно это сделать? Вложенные Ifs: 

Dim Cost As Range, SetUpCost As Range, Prices As Range
Set Cost = WB.Worksheets("Calculations").Range("F42")
Set Prices = WB.Worksheets("Calculations").Range("D42")

If QuarterlyCheck = True And SecurityLite = True Then
If NoSetUpCheck = False Then
    SecurityLitePrice.Caption = "$" & Cost.Value * 4
    SetUpFee.Caption = "$" & SetUpCost.Value
End If
ElseIf NoSetUpCheck = True Then
    SecurityLitePrice.Caption = "$" & Prices.Value * 4
    SetUpFee.Caption = ""
End If

Или несколько ifs: 

If QuarterlyCheck = True And SecurityLite = True And NoSetUpCheck = False Then
    SecurityLitePrice.Caption = "$" & Cost.Value * 4
    SetUpFee.Caption = "$" & SetUpCost.Value
End If
If QuarterlyCheck = True And SecurityLite = True And NoSetUpCheck = True Then
    SecurityLitePrice.Caption = "$" & Prices.Value * 4
    SetUpFee.Caption = ""
End If

Ни один из них не дает мне нужного мне результата.

1 Ответ

0 голосов
/ 19 февраля 2020

Может быть: 

If QuarterlyCheck = True And SecurityLite = True Then
    If NoSetUpCheck = True Then
        SecurityLitePrice.Caption = "$" & Prices.Value * 4
        SetUpFee.Caption = ""
    Else 'Means NoSetUpCheck = False
        SecurityLitePrice.Caption = "$" & Cost.Value * 4
        SetUpFee.Caption = "$" & SetUpCost.Value
    End If
Else
    'Whatever else ....
End If
...