Ad Tanımının Varlığını Sorgulama Fonksiyonu

Ad Taniminin Varlığını Sorgulama Fonksiyonu bir ktf fonksiyonu aslinda, dosyanizdaki ad tanimlarini kontrol ederek bu ad taniminin varliginin testini yapiyor. Ornek bir kullanim icin; =Ad_Varmi(“deneme”) Seklinde bir deneme adli bir ad tanimimizi arayabiliriz, bu ad tanimi sorgulama isleminin sonucu TRUE yahut FALSE seklinde cikacaktir. Simdi ise VBA ile nasil kullanabiliriz ve KTF`miz ne sekilde yazilmistir bunlari paylasiyoruz.

     Function Ad_Varmi(sName As String) As Boolean
         Dim s As String
         Dim aralik As Range
         Application.Volatile
         On Error Resume Next

         Set aralik = Application.Caller
         Err.Clear
         If aralik Is Nothing Then
             s = ActiveWorkbook.Names(sName).Name
         Else
             s = aralik.Parent.Parent.Names(sName).Name
         End If
         If Err.Number = 0 Then Ad_Varmi = True
     End Function
     Sub Ad_Testi()
           If Ad_Varmi(InputBox("Aradiginiz Ad Nedir?")) Then
           MsgBox "Ad Bulunuyor"
           Else
           MsgBox "Aradiginiz Ad Bulunmuyor"
           End If
     End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 8 =