Birden çok If Then ifadesi yerine Excel VBA'sı, kullanabilirsiniz Vaka yapısını seçin.
Durum:
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk önce iki değişken tanımlayın. Tamsayı türünde bir değişken adlı puan ve bir String türünde sonuç adlı bir değişken.
Dim puanı As Integer, sonuç As String
2. Değişken puanı A1 hücresinin değeriyle başlatıyoruz.
puan = Aralık("A1").Değer
3. Select Case yapısını ekleyin.
Vaka puanı seçin
Vaka >= 80
sonuç = "çok iyi"
Vaka >= 70
sonuç = "iyi"
Vaka >= 60
sonuç = "yeterli"
Durum Başka
sonuç = "yetersiz"
Seçimi Bitir
Açıklama: Excel VBA, Case ifadesinin altındaki kodun yürütülmesi gerekip gerekmediğini görmek için sonraki her bir Case ifadesini test etmek için değişken puanının değerini kullanır.
4. Değişken sonucunun değerini B1 hücresine yazın.
Aralık ("B1"). Değer = sonuç
5. Programı test edin.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
Not: Excel VBA, 70'e eşit veya daha büyük ve 80'den küçük tüm değerler için ikinci Case deyiminin altındaki kodu yürütür.
