IIf (Tek Satırlık Pratik If)

Pratik Kararlar

Excel'deki EĞER(şart; doğruysa; yanlışsa) formülünün VBA'daki birebir karşılığıdır.

VBA Kodu:

Sub KisaIf()
    Dim cinsiyet As String: cinsiyet = "E"
    Dim unvan As String
    unvan = IIf(cinsiyet = "E", "Bey", "Hanım")
    MsgBox "Hoşgeldiniz " & unvan
End Sub

Ne Göreceksiniz? Şart (cinsiyet="E") doğru olduğu için "Bey" kelimesini seçecek ve "Hoşgeldiniz Bey" yazdıracaktır.