Bu makale, VBA Switch ifadesinin nasıl kullanılacağını gösterecektir.
VBA Switch ifadesi, VBA Select Case ifadesine benzer şekilde kullanılır.
Switch Deyiminin Sözdizimi
switch ifadesi, doğru veya yanlış olup olmadığını görmek için bir ifade listesini değerlendirir ve doğru olarak değerlendirilen ilk ifadelerin değerini döndürür. Bağımsız değişken listesi çiftlerden oluşur - bir ifade ve ifade doğru olarak değerlendirilirse döndürülen bir değer.
Değiştirmek(ifade-1, değer-1, [ ifade-2, değer-2… , [ ifade-n, değer-n ]])
Bir VBA Prosedüründe Switch ifadesini kullanma
Bunu bir makroda kullanmak aşağıdaki örneğe benzer olabilir:
1234567 | Alt TestSwitch()Dim strCompany As StringŞirket Kimliğini Tamsayı Olarak KarartınŞirket Kimliği = 2strCompany = Değiştir(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strŞirketlerAlt Bitiş |
Switch deyimindeki ifadelerdeki değerleri tutmak için bir tamsayı değişkeni bildiriyoruz. Ardından, bu ifadenin içerdiği değeri döndürmek için başka bir dize değişkeni bildiririz.
Bir Aralık ile Switch İfadesini Kullanma
Anahtarın değerlendireceği değeri koda sabit kodlamak yerine, ihtiyacımız olan dizeyi döndürmek için bir Excel hücresinde sakladığımız bir değeri kullanabiliriz.
1234567 | Alt TestSwitch()Dim strCompany As StringŞirket Kimliğini Tamsayı Olarak KarartınŞirketKimliği = Aralık("A2")strCompany = Değiştir(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strŞirketlerAlt Bitiş |
Bu yordamı kullanmak için, çalışma sayfasındaki A2 hücresinde bir sayı olması gerekir. Daha sonra şirketin adını (yani Samsung) almak için makroyu çalıştırabiliriz.
A3 hücresinde bir numaramız yoksa ve kodu çalıştırırsak, Tip Uyuşmazlığı Hatası döndürülür.
VBA Switch ile Özel İşlev Oluşturma
Ayrıca VBA anahtarını kullanarak özel bir işlev oluşturabilir ve bunu Çalışma Kitabımızda kullanabiliriz.
123 | İşlev SwitchStatement(i As Integer) As StringSwitchStatement = Switch(i= 1, "Apple", i= 2, "IBM", i= 3, "Samsung")Bitiş İşlevi |
Bunu çalışma kitabımızda kullanmak için İşlev Ekle iletişim kutusunu kullanabiliriz.
A3 hücresine tıklayın ve ardından İşlev çubuğunda İşlev Ekle'ye tıklayın.
İşlev Ekle iletişim kutusundan, Kullanıcı tanımlı itibaren Kategori açılır listesini seçinöğesini seçin ve ardından SwitchStatement.
Tıklamak TAMAM, ve sonra hücreye tıklayın A2.
Switch Statement'te saklanan şirketin adı, çalışma sayfamıza döndürülecektir.