Wenn-dann-Anweisung in VBA

Schreibe ich momentan zwei Sätze von if-else-Anweisungen, die sehr ähnlich sind. Sie sind im Grunde vergleichen Sie drei drop-down-Menüs und sicherzustellen, dass der Benutzer nicht legte zwei passende Voreinstellungen. Zum Beispiel:

cbo_fac1 - Kitchen    
cbo_fac2 - Kitchen   
cbo_fac3 - Lounge

Dies würde eine Fehlermeldung zurückgeben, weil cbo_fac1 und cbo_fac2 übereinstimmen. Aber es ist ein besonderer Fall bin ich kämpfen, um Sie zu implementieren. Eine der drop-down-Fällen ist Keine Präferenz.

cbo_fac1 - Kitchen    
cbo_fac2 - No preference
cbo_fac3 - No preference

cbo_fac1 - No preference    
cbo_fac2 - No preference
cbo_fac3 - No preference

Mit jedem Szenario Keine Präferenz Auswahl erlaubt ist, zu entsprechen. Wie gehe ich über die Umsetzung dieser? Hier ist der code, den ich verwende so weit:

If cbo_fac1.Value = cbo_fac2.Value Then
    MsgBox ("Facilities preference 1 and facilities preference 2 cannot be the same. Please select another option for facilities preference 2, if you have none then select 'No preference'")
    Exit Sub
End If

If cbo_fac1.Value = cbo_fac3.Value Then
    MsgBox ("Facilities preference 1 and facilities preference 3 cannot be the same. Please select another option for facilities preference 3, if you have none then select 'No preference'")
    Exit Sub
End If

If cbo_fac2.Value = cbo_fac3.Value Then
    MsgBox ("Facilities preference 2 and facilities preference 3 cannot be the same. Please select another option for facilities preference 3, if you have none then select 'No preference'")
    Exit Sub
End If

InformationsquelleAutor methuselah | 2012-10-24

Schreibe einen Kommentar