Excel 2016'da Sarmalayıcı İşlevlerini Kullanma Excel 2016 VBA'da Sarmalayıcı İşlevlerini Kullanma VBA

Burada, çok kullanışlı bazı özel Excel VBA çalışma sayfası işlevleri bulacaksınız. Bu işlevlere, sarıcı işlevler adı verilir; bunlar, içe dönük VBA öğelerine sarılmış koddan oluşur. Diğer bir deyişle, çalışma sayfası formüllerinde VBA işlevlerini kullanmanıza izin verirler.

İşlev User () 'Geçerli kullanıcının adını döndürür User = Application. UserName End Function

Bu işlev, özünde, formüllerinizin Application nesnesinin UserName özelliğine erişmesine olanak tanır.

NumberFormat işlevi

Bu işlev yalnızca bir hücre için sayı biçimini görüntüler. Bir grup hücrenin hepsinin aynı sayı formatına sahip olmasını sağlamanız gerekiyorsa yararlı olabilir.

İşlev NumberFormat (Cell) 'Hücrenin sayı biçimini döndürür NumberFormat = Hücre (1). NumberFormat End Function

Cell (1) kullanımına dikkat edin? Bir çok satırlı aralık bağımsız değişken olarak kullanılırsa, yalnızca ilk hücre kullanılır.

Bir hücrenin metin rengini, arka plan rengini, yazı tipini vb. Döndüren benzer işlevleri kolayca yazabilirsiniz.

ExtractElement işlevi

Bu sarmalayıcı işlevi, bir ayırıcı karakterle ayrılmış birden çok öğe içeren bir metin dizesinden bir alt dize döndürür. Örneğin, bu formül, boşluk ayırıcı olarak kullanan bir dizedeki üçüncü unsur olan ine'yi döndürür. Tabii ki argümanlar hücre referansları olabilir.

İşlev ExtractElement (Txt, n, Sep) 'Bir elemanın belirli bir ayırıcı karakterle ayrıldığı bir metin dizesinin n. Öğesini döndürür ExtractElement = Böl (Uygulama. Trim (Txt), Eylül) (n - 1) Bitiş İşlevi

Aşağıdaki resimde çalışma sayfası formüllerinde kullanılan ExtractElement işlevi. Sütun A metin dizesini, Sütun B ayıklanacak öğe numarasını ve Sütun C sınırlayıcıyı içeriyor (boşluk olarak görünen hücreler boşluk karakteri içeriyor).

Bir dizeden bir öğe döndürmek için ExtractElement işlevini kullanma.

Sayıt fonksiyonu

Bu basit fonksiyon, Uygulamanın Konuşma metodu için bir sarmalayıcıdır. Konuşma nesnesi. Argümanı "konuşmak" için sentezlenmiş bir ses kullanır.

İşlev SayIt (txt) 'Uygulamayı tartışır. Konuşma. Speak txt, True End Function

İşte bir örnek:

= IF (C10> 10000, SayIt ("Fazla bütçe"), "Tamam")

Formül C10 hücresini kontrol eder. Değer 10 000'den büyükse, işlevi metni verir: "Bütçenin üzerinde.Msgstr "Değer az 10, 000 ise, işlev OK (Tamam) metnini görüntüler (ve hiçbir şey söylemiyor).

Yumuşak kullan. Bu işlevi birden çok kez kullanırsanız, çok kafa karıştırıcı olabilir. Ayrıca, bu işlevi, çalışma sayfası hesaplanırken her defasında değerlendirdiğinizi unutmayın; böylece, pek çok değişiklik yapıyorsanız ses çok sinir bozucu olabilir. Bu işlev muhtemelen eğlence amaçlı daha uygundur.

IsLike işlevi

VBA'nın Like işleci, metin dizelerini karşılaştırmak için çok esnek bir yöntemdir. VBA Yardım sisteminde kontrol edin.

İşlev IsLike (text, pattern) 'İlk bağımsız değişken ikinci gibi ise true döndürür IsLike = text Benzer desen Bitiş İşlevi