/ / Excel'de VBA Kullanıcı Tanımlı İşlev

Excel VBA'da Kullanıcı Tanımlı İşlev

Aşağıda bir programa bakacağız Excel VBA Bu bir oluşturur Kullanıcı Tanımlı Fonksiyon. Excel'in geniş bir işlevleri vardır. Çoğu durumda bu işlevler işi tamamlamak için yeterlidir. Aksi halde, Kullanıcı Tanımlı İşlev olarak adlandırılan kendi işlevinizi oluşturabilirsiniz. özel Excel işlevi. Diğer herhangi bir Excel işlevi gibi bir Kullanıcı Tanımlı İşlevine erişebilirsiniz.

Rastgele seçilen bir aralığın çift sayılarının toplamını bulan SUMEVENNUMBERS adlı bir fonksiyon yaratmak istiyoruz.

Durum:

Excel VBA'da Kullanıcı Tanımlı İşlev

Kullanıcı tanımlı fonksiyonların bir modüle yerleştirilmesi gerekir.

1. Visual Basic Düzenleyicisi'ni açın ve Ekle, Modülü tıklayın.

2. Aşağıdaki kod satırını ekleyin:

Function SUMEVENNUMBERS(rng As Range)

İşimizin adı SUMEVENNUMBERS'dir. Parantezler arasındaki kısım, Excel VBA'ya girdi olarak verdiğimiz anlamına gelir. Aralığımızı rng olarak adlandırıyoruz, ancak herhangi bir ismi kullanabilirsiniz.

3. Ardından, bir Range nesnesini bildiririz ve onu hücre olarak adlandırırız.

Dim cell As Range

4. Her hücreyi rastgele seçilen bir aralıkta kontrol etmek istiyoruz (bu aralık herhangi bir boyutta olabilir). Excel VBA'da bunun için Her Sonraki Döngüyü kullanabilirsiniz. Aşağıdaki kod satırlarını ekleyin:

For Each cell In rng

Next cell

Not: Burada rastgele seçilen hücre, herhangi bir ismi kullanabilirsiniz.

5. Ardından, bu aralıktaki her değerin olup olmadığını kontrol edin. Bunun için Mod operatörünü kullanıyoruz. Mod operatörü bir bölümün kalanını verir. Yani 7 mod 2, 1 verir. 7, 1'in geri kalanını vermek için 2'ye (3 kez) bölünür. Bunu söyledikten sonra, bir sayı olup olmadığını kontrol etmek kolaydır. Yalnızca 2'ye bölünmüş sayının kalanı 0 ise, sayı eşittir. 8 mod 2 0 verir, 8 tam olarak 4 kez 2 bölündü ve bu yüzden 8 bile. Her Sonraki döngü için aşağıdaki If deyimini ekleyin.

If cell.Value Mod 2 = 0 Then

End If

6. Sadece bu ifade doğruysa, değeri SUMEVENNUMBERS'a ekleriz. If deyiminde aşağıdaki kod satırını ekleyin.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. İşlevi bitirmeyi unutmayın (döngü dışında).

End Function

8. Şimdi, rastgele seçilen bir aralığın çift sayılarının toplamını bulmak için diğer Excel işlevlerinde olduğu gibi bu işlevi kullanabilirsiniz.

Sonuç:

Kullanıcı Tanımlı Fonksiyon Sonucu

Aferin! Bu, Excel VBA'daki Kullanıcı Tanımlı İşlevlerin ne kadar kolay olduğunu Not: Bu işlev yalnızca bu çalışma kitabında kullanılabilir.

Ayrıca oku: