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:
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:
İş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.
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:
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.
End If
6. Sadece bu ifade doğruysa, değeri SUMEVENNUMBERS'a ekleriz. If deyiminde aşağıdaki kod satırını ekleyin.
7. İşlevi bitirmeyi unutmayın (döngü dışında).
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ç:
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.