Bu makalede, size nasıl geliştirebileceğinizi ve kullanabileceğinizi göstereceğim. Evet Hayır içindeki mesaj kutusu VBA Excel'de.

Excel VBA ile Evet Hayır Mesaj Kutusu Geliştirin ve Kullanın (Hızlı Görünüm)

 Sub Yes_No_Message_Box() Answer = MsgBox("Do You Like ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

Evet Hayır Mesaj Kutusu Geliştirmek ve Kullanmak için VBA Koduna Genel Bir Bakış (Adım Adım Analiz)

Kullanımını öğrenelim evet-hayır mesaj kutusu Basit bir örnekle. mesaj kutusu Size bir soru soracağım, ExcelWIKI'yi seviyor musunuz?

Cevabınız evet ise, tıklayacaksınız Evet içinde mesaj kutusu . Ve eğer cevabınız Hayır tıklayacaksınız Hayır .

Şimdi, evet veya hayır'a tıkladıktan sonra ne olacak? mesaj kutusu Aktif çalışma sayfasında 2 ExcelWIKI'yi seven ve sevmeyen kişilerin sayısını içeren hücreler. Evet. 'de, benzer hücredeki sayı bir artacaktır.

Ve eğer vurursan Hayır 'de, hoşlanılmayan hücredeki sayı bir artacaktır.

Peki, tüm bu görev nasıl gerçekleştirilir? VBA Kod mu? Kolay. 2 tüm süreçteki önemli adımlar.

• Geliştirilmesi Evet-Hayır Mesaj Kutusu
• Çıktısını Kullanma Mesaj Kutusu

Öğrenmeniz için her adımın detayını gösteriyorum.

⧪ Adım 1: Evet-Hayır Mesaj Kutusunun Geliştirilmesi

Her şeyden önce, aşağıdakileri oluşturmanız gerekir evet-hayır mesajı kutu içinde VBA Sıradan mesaj kutusuyla aynı prosedürü kullanın, argümanla ilgili soruyla birlikte yeni bir argüman ekleyin vbEvetHayır .

Burada soru şu, "ExcelWIKI'yi Seviyor musunuz?"

 Yanıt = MsgBox("ExcelWIKI'yi Beğendiniz mi?", vbYesNo) 

⧪ Adım 2: Mesaj Kutusu Çıktısını Kullanma

Daha sonra, bir görevi gerçekleştirmek için mesaj kutusu çıktı. Burada, hücre C3 ExcelWIKI'yi beğenen kişi sayısını içerir ve hücre C4 ExcelWIKI'yi sevmeyen insanların sayısını içerir.

Yani, eğer cevap Evet , hücre C3 bir artacaktır. Ve eğer Hayır , hücre C4 bir artacaktır.

Biz bir Eğer-blok bunu yürütmek için.

 If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 

Yani tam VBA kod olacak:

⧭ VBA Kodu:

 Sub Yes_No_Message_Box() Answer = MsgBox("Do You Like ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Excel'de Evet Hayır Mesaj Kutusu Geliştirmek ve Kullanmak için Makro Oluşturma

Bir Evet-Hayır mesaj kutusu geliştirmek ve kullanmak için kodun adım adım analizini gördük. Şimdi, kodu çalıştırmak için nasıl bir Makro oluşturabileceğimizi görelim.

⧪ Adım 1: VBA Penceresini Açma

Basın ALT + F11 açmak için klavyenizdeki Visual Basic Pencere.

⧪ Adım 2: Yeni Bir Modül Ekleme

Gitmek Insert> Modül Araç çubuğunda Modül . adlı yeni bir modül Modül1 (veya geçmiş geçmişinize bağlı olarak başka bir şey) açılacaktır.

⧪ Adım 3: VBA Kodunun Yerleştirilmesi

Bu en önemli adımdır. VBA modüldeki kod.

⧪ Adım 4: Kodu Çalıştırma

üzerine tıklayın. Sub / UserForm Çalıştır aracını yukarıdaki araç çubuğundan seçin.

Kod çalışacaktır. A mesaj kutusu sevip sevmediğinizi soracak ExcelWIKI ya da değil, bir Evet ve bir Hayır seçenek.

Eğer seçerseniz Evet , hücredeki sayı C3 bir artacaktır. Ve eğer Hayır , hücredeki sayı C4 bir artacaktır.

Burada, şunları seçtim Evet. Bu nedenle, bu türden ExcelWIKI bir artmıştır.

Hatırlanması Gerekenler

• A mesaj kutusu içinde VBA toplam aşağıdakileri içerir 4 adı verilen parametreler Komut İstemi, Düğme, Başlık ve Yardım dosyası Burada sadece 2 Parametreler, İstem ve Düğme . Ama eğer keşfetmek istiyorsanız VBA mesaj kutusu daha detaylı bilgi için bu bağlantıya bakabilirsiniz.