VBA Anahtar İşlevi - Anahtar Fonksiyonu nasıl kullanılır?

İçindekiler

Excel VBA Anahtar İşlevi

Excel VBA Anahtar İşlevi

VBA ANAHTARI işlevi, başka herhangi bir işlevi yerleştirmeden birden çok koşulu test etmemize izin verir, ancak tüm mantıksal işlevleri aynı işlevin içinde uygulayabiliriz.

Mantıksal işlevler, neredeyse tüm hesaplamaların özüdür. Bunlarda ustalaşmak, beceri setimize daha fazla değer katacaktır. Birden fazla koşul testi söz konusu olduğunda, sonuca mantıksal formüllerin ulaşması kaçınılmazdır. Excel ve VBA'daki IF işlevine tamamen güveniyoruz. Bir başlangıç olarak, IF koşulunun kendisi sindirilmesi zordur, ancak iç içe geçmiş IF dediğimizde, ustalaşması gereken devasa bir formüldür. Bununla birlikte, tüm bu iç içe geçmiş formüllerin üstesinden gelmek için, SWITCH adlı bir formülümüz var.

Sözdizimi

Switch ilk ifadeyi hesaplar ve değer doğruysa, ifadenin değerini döndürür ve ifade 1'in değeri doğru değilse, ifade 2 için aynı hesaplama için devam eder ve sonuç doğruysa, daha sonra 2 değeri görüntülenir, ancak ifade yanlış olarak döndürülürse, anahtar başka bir ifadeye geçer.

Ya ifadelerin hiçbiri doğru değilse ve tümü yanlış olarak döndürülürse? Böyle bir durumda, bu tür durumlar için önleyici bir hata işlemeye sahip olmadıkça çalışma zamanı hatası alırız.

VBA'da Anahtar Fonksiyonu nasıl kullanılır?

Örnek 1

Şimdi aşağıdaki koda bakın.

Kod:

Sub Switch_Example1 () Dim ResultValue As String Dim FruitName As String FruitName = "Apple" ResultValue = Anahtar (FruitName = "Elma", "Orta", MeyveAdı = "Turuncu", "Soğuk", MeyveAdı = "Sapota", "Isı" , FruitName = "Karpuz", "Soğuk") MsgBox ResultValue End Sub

Yukarıdaki kodda, iki VBA değişkeni tanımladım.

Dim ResultValue As String Dim FruitName As String

FruitName değişkeni için meyve adını "Elma" olarak belirledim.

FruitName = "Elma"

Sonra, "ResultValue" değişkeni için, SWITCH'i atadım. Size işlevi açıklayayım.

Değiştir (FruitName = "Apple", "Medium",

Bu, formülün ilk kısmıdır. FruitName değişkeni Apple ise, sonuç "Orta" olmalıdır.

Sıradaki

FruitName = "Turuncu", "Soğuk",

Bu, temel excel formülünün ikinci bölümüdür. FruitName değişkeni Orange ise, sonuç "Cold" olmalıdır.

Ondan sonra yazdık.

FruitName = "Sapota", "Isı",

Bu, formülün üçüncü kısmıdır. FruitName değişkeni Sapota ise, sonuç "Isı" olmalıdır.

FruitName = "Karpuz", "Soğuk"

Bu, formülün son kısmıdır. FruitName değişkeni Karpuz ise, sonuç "Soğuk" olmalıdır.

Bu kodu çalıştırdığımda, sonucu "Medium" olarak döndürecektir çünkü "FruitName" değişkeni için değeri "Apple" olarak atadım.

Meyve Adı "Elma" olduğundan, mantıksal test sonucumuz "Orta" dır, dolayısıyla buna göre mesaj kutusunda bir sonuç var.

İlgili sonucu elde etmek için "MeyveAdı" değişkenine farklı değerler atayın.

Örnek 2

Bir örneğe daha bakın.

Kod:

Alt Anahtar_Örnek2 () Dim ResultValue As String Dim CityName As String CityName = "Delhi" ResultValue = Switch (CityName = "Delhi", "Metro", CityName = "Bangalore", "Metro Dışı", CityName = "Mumbai", "Metro ", CityName =" Kolkata "," Metro Dışı ") MsgBox ResultValue End Sub

Bu sefer şehir isimleri verdim, "ŞehirAdı" değişkenine şehir adı verdiğimiz şehir adı ne olursa olsun, buna göre bazı sonuçları ilgili şehir adlarına uyguladım.

Şehir adını "Delhi veya Mumbai" olarak uygularsanız, sonucu "Metro" olarak alırız veya şehir adını "Bangalor veya Kalküta" olarak uygularsak sonucu "Metro Dışı" olarak alırız.

Şimdi yukarıdaki örnekte şehir adından "Delhi" olarak bahsetmiştim, bu nedenle sonucumuz VBA'daki mesaj kutusunda "Metro" olacaktır.