If Then İfadesi | Aksi Bildirimi
Kullan Eğer Sonra ifadesi içinde Excel VBA'sı belirli bir koşul karşılanırsa kod satırlarını yürütmek için.
Eğer Sonra İfadesi
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
Dim puanı As Integer, sonuç As String
puan = Aralık("A1").Değer
Puan >= 60 ise sonuç = "geçti"
Aralık ("B1"). Değer = sonuç
Açıklama: puan 60'tan büyük veya buna eşitse, Excel VBA başarılı döndürür.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
Not: puan 60'tan küçükse, Excel VBA boş değişken sonucunun değerini B1 hücresine yerleştirir.
Aksi Bildirimi
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
Dim puanı As Integer, sonuç As String
puan = Aralık("A1").Değer
Puan >= 60 ise
sonuç = "geçti"
Başka
sonuç = "başarısız"
Bitir
Aralık ("B1"). Değer = sonuç
Açıklama: puan 60'a eşit veya daha büyükse, Excel VBA başarılı, aksi takdirde Excel VBA başarısız döndürür.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
Not: Yalnızca, Then'den sonra bir kod satırınız varsa ve Else deyimi yoksa, doğrudan Then'den sonra bir kod satırı yerleştirmenize ve End If'yi atlamanıza (bırakmanıza) izin verilir (ilk örnek). Aksi takdirde, Then ve Else sözcüklerinden sonra yeni bir satır başlatın ve End If ile bitirin (ikinci örnek).
