Czy VBA ma trójskładnikowego operatora?

Question

Pochodzę z pięknego świata Obj C, opartego na języku programowania C, i zakochałem się w szukaniu dziwnych sposobów na zaoszczędzenie przestrzeni. Jednak ja przejrzałem tyle dokumentacji jak mogę i nie mogę znaleźć nic soczyste na VBA, który skróci tę składnię:

If boolVar = True Then 
    'Do something 
Else 
    'Do nothing 
End If 

W Obj C i naturalnie C, jestem bardzo obeznany z w ten sposób:

boolVar ? "Nope, tis false" : "Yup, tis true" 

jest to bardzo podobne do tego, co większość innych langagues użyciu, niektóre mogą używać operatorów logicznych ekstra jak != lub == ale pozostawia mnie optymistyczne. Być może nie zajrzałam we właściwe miejsca, jeśli tak jest, PROSZĘ daj mi znać gdzie otrzymasz swoją dokumentację.

TLDR, czy możemy skrócić If/Then/Else do jednego wiersza kodu w VBA? Jest to wyjątkowo przydatne, gdy "Do Somethings" to nic innego jak ustawienie pojedynczego parametru dla innej zmiennej lub włączenie/wyłączenie przycisku.

Answer 1

Sub test() 

    Dim x As Long 
    Dim y As Long 
    y = 1 
    x = IIf(y = 1, 1, 2) 

End Sub 

Answer 2

najbliżej funkcja jest Iif()

IIf(expr, truepart, falsepart) 

ale:

• nie można mieć swoje oddziały prostu działa kod, podczas gdy trzeba przypisać jej wartość powrotną do jakiejś zmiennej

• nie powoduje zwarcia

  zawsze ocenia obie gałęzie, tak że należy jeden z nich zawiedzie, nawet jeśli nie są „prawdziwe” jeden, oświadczenie rzucał błąd i tak

Więc najbardziej przypominający jest stwierdzenie:

If boolVar Then sub1 Else sub2 

gdzie:

• boolVar jest AB oolean typ zmiennej

• sub1 i sub2 są dwie różne kanapki/funkcje na miano

Answer 3

Jako alternatywę można utworzyć następującą funkcję publiczną w module:

Public Function iff(expr, trueR, falseR) As Variant 
    If expr Then iff = trueR Else iff = falseR 
End Function 

tej pory pracuje dla mnie.