Excel'de VBA If - Then - Else Deyimi (4 Örnek)

Hugh West

16-10-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Koşullu ifadeler, programlama dillerinde belirtilen koşula bağlı olarak bir dizi eylemi gerçekleştirmek için kullanılır. Bu yazıda, size koşullu ifadelerin ne olduğunu göstereceğiz. If - Then - Else içindeki koşullu ifade VBA Excel nedir ve nasıl kullanılır.

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

VBA.xlsm'de If-Then-Else

VBA'da If - Then - Else Deyimine Giriş

VBA If - Then - Else Koşullu deyim temel olarak koşulların yürütme akışına karar vermek için kullanılır. Koşul doğruysa, belirli bir eylem kümesi yürütülür ve koşul yanlışsa başka bir eylem kümesi gerçekleştirilir.

  • Sözdizimi 
 If condition Then [statements] [Else else_statements]

Ya da, 

 If koşul Then [ifadeler] [Else [else_ifadeler]] End If

İşte,

Tartışma Gerekli/ İsteğe bağlı Açıklama
durum Gerekli İfadenin şu olup olmadığını değerlendiren sayısal bir ifade veya dize ifadesi Doğru veya Yanlış . Eğer durum Null ise, kabul edilir Yanlış .
ifadeler Opsiyonel Olmayan tek satırlı bir form Başka Bir veya daha fazla ifade iki nokta üst üste ile ayrılmalıdır. durum o Doğru sonra bu ifade yürütülür.
else_statements Opsiyonel Bir veya daha fazla ifade, eğer daha önce durum o Doğru .

4 Excel'de VBA If - Then - Else Deyimi Kullanım Örnekleri

Bu bölümde, aşağıdakileri nasıl kullanacağınızı öğreneceksiniz If-Then-Else içinde VBA 4 örnek ile kod.

1. If - Then - Else Deyimi ile İki Sayı Arasındaki En Büyük Sayıyı Bulma

Elinizde iki sayı varsa ve hangisinin daha büyük (veya daha küçük) olduğunu bulmak istiyorsanız If-Then-Else içinde ifade VBA .

Adımlar:

  • Basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

  • Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

  • Aşağıdaki kodu kopyalayın ve kod penceresine yapıştırın. 
 Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "1. Sayı 2. Sayıdan Büyüktür" ElseIf Num2> Num1 Then MsgBox "2. Sayı 1. Sayıdan Büyüktür" Else MsgBox "1. Sayı ve 2. Sayı Eşittir" End If End Sub

Kodunuz artık çalışmaya hazır.

Burada iki sayıyı karşılaştırıyoruz 12345 ve 12335 Bu işlem genellikle büyük bir veri kümesindeki büyük sayıları bulmak için mükemmeldir.

  • Basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Sonucu Excel'in MsgBox

Bizim durumumuzda, sayı 12345 - değişkende saklanır Num1 - sayısından daha büyüktür 12335 , Num2 . Yani MsgBox bize şunu gösteriyor 1. Sayı 2. Sayıdan Büyüktür .

Daha Fazla Oku: Rastgele Sayı Üretmek için Excel Formülü (5 örnek)

2. VBA'da If - Then - Else Deyimi Kullanarak Öğrenci Sonucunu Kontrol Etme

Bir öğrencinin bir sınavı geçip geçmediğini veya başarısız olup olmadığını şu ifadeyle kontrol edebilirsiniz VBA Kod.

Adımlar:

  • Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "John's Result is Pass" Else MsgBox "John's Result is Fail" End If End Sub

Kodunuz artık çalışmaya hazır.

Bu kod, Cell D5 'den daha büyük bir değer tutar. 33 Bunu yaparsa bir çıktı gösterecek, yapmazsa başka bir şey gösterecektir.

  • Koşmak makroyu kullanın ve kodunuza göre sonucu alacaksınız.

Sonuçla birlikte yukarıdaki veri kümesine bakın, Hücre D5 tutar 95 ki bu kesinlikle 33 'yi gösteriyor, dolayısıyla Sonuç Geçer . Ancak Hücre için kodu çalıştırırsak D7 (22), o zaman başka türlü görüntülenecektir.

Daha fazlasını okuyun: VBA Case Statement Nasıl Kullanılır (13 Örnek)

Benzer Okumalar

  • Excel VBA'da Log Fonksiyonu Nasıl Kullanılır (5 Uygun Örnek)
  • Excel'de VBA LTrim İşlevini Kullanma (4 Örnek)
  • Excel'de VBA FileDateTime Fonksiyonu Nasıl Kullanılır (3 Kullanım)
  • VBA Mod Operatörünü Kullanın (9 Örnek)
  • Excel'de VBA EXP Fonksiyonu (5 Örnek)

3. VBA'da Çoklu If - Then - Else Deyimi Kullanarak Öğrenci Notundaki Yorumları Güncelleme

Bir öğrencinin pas geçip geçmediğini tek bir işlemle nasıl çıkaracağınızı öğrendiniz. If-Then-Else ifadesi hakkında bilgi edineceksiniz, ancak bu sefer Çoklu If-Then-Else ifadelerini aşağıdaki örnekle açıklayabiliriz.

Biz bir koşacağız VBA doldurmak için kod Yorum birden fazla koşula dayalı kutular.

Adımlar:

  • Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub UpdateComment() For Each grade In Range("D5:D10") If grade = "A" Then grade.Offset(0, 1).Value = "Great Work" ElseIf grade = "B" Then grade.Offset(0, 1).Value = "Keep It Up" ElseIf grade = "C" Then grade.Offset(0, 1).Value = "Needs Improvement" Else grade.Offset(0, 1).Value = "Parents-Teacher Meeting" End If Next grade EndAlt

Kodunuz artık çalışmaya hazır.

Bu kod, öğrencilerin aldığı nota göre yorumlar yazdıracaktır.

  • Koşmak Bu kodu kullanın ve yorum kutularının uygun sonuçlarla doldurulduğu aşağıdaki resmi görün.

4. Excel'deki Kodlara Dayalı Kardinal Yönleri Güncellemek için If-Then-Else Deyimi

Ayrıca, aşağıdakileri de kullanabilirsiniz If-Then-Else Verilen gösterge koduna göre kardinal yönleri bulmak için aşağıdaki resme bakın, burada verilen baş harflere göre yönleri bulacağız.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub UpdateDir() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "North" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "South" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "East" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndAlt

Kodunuz artık çalışmaya hazır.

  • Koşmak Bu kod ile ilgili hücrelerdeki yön adlarını alacaksınız.

Veya koda dayalı olarak sadece bir yön bulmak istiyorsanız, aşağıdaki kodu kullanabilirsiniz. 

 Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub

Bu kod değeri Hücre'den alacaktır B5 dikkate alır ve buna göre sonucu Hücre C5 .

Örneğin, eğer " N " in Cell B5 size " Kuzey " yazarsanız S " in Cell B5 size gösterecektir " Güney " in Cell C5 .

Sonuç

Bu makalede, nasıl kullanılacağı gösterilmiştir If - Then - Else ifadesi ile Excel'de VBA Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili herhangi bir sorunuz olursa sormaktan çekinmeyin.

Önceki yazı Excel'de INDEX-MATCH ile EĞER (3 Uygun Yaklaşım)
Sonraki Gönderi Excel'de Satırlar Otomatik Olarak Nasıl Numaralandırılır (8 Yöntem)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.