/ / Excel VBA'da Özel Ortalama İşlev

Excel VBA'da Özel Ortalama İşlev

Aşağıda bir programa bakacağız Excel VBA hangi bir oluşturur Kullanıcı Tanımlı Fonksiyon bu hesaplar ortalama rastgele seçilmiş bir aralığın, aykırı olan ve ortalaması alınmayan bir veya daha fazla değer hariç.

Durum:

Excel VBA'da Özel Ortalama İş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 CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

İşleçimizin adı CUSTOMAVERAGE'dir. Parantezler arasındaki kısım, Excel VBA'ya bir aralık ve iki Tamsayı değişkenini girdi olarak verir. Aralığımızın adını rng, bir alt değişken olarak adlandıracağımız bir değişken ve üst aradığımız bir Tamsayı değişkenini adlandırabiliriz, ancak herhangi bir ismi kullanabilirsiniz.

3. Ardından, bir Range nesnesini ve Tamsayı türünde iki değişken bildiriyoruz. Range nesne hücresini çağırıyoruz. Toplam olarak adlandırdığımız bir Tamsayı değişkeni ve çağırdığımız bir Tamsayı değişkeni.

Dim cell As Range, total As Integer, count As Integer

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: Rng ve hücre burada rastgele seçilir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu adlara başvurmayı unutmayın.

5. Daha sonra, iki değer arasında (alt ve üst) düşerse, bu aralıktaki her değeri kontrol ederiz. Eğer doğruysa, toplamı hücrenin değeriyle artırırız ve sayımı 1 artırırız. Aşağıdaki kod satırlarını döngüye ekleyin.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. Bu işlevin sonucunu döndürmek için (istenen ortalama), döngü dışında aşağıdaki kod satırını ekleyin.

CUSTOMAVERAGE = total / count

7. Fonksiyonu bitirmeyi unutmayınız.

End Function

8. Şimdi bu işlevi, diğer iki Excel işlevi gibi, iki değer arasında kalan sayıların ortalamasını hesaplamak için kullanabilirsiniz.

Sonuç:

Özel Ortalama İşlev Sonucu

Bir kontrol olarak, tüm değerleri silebilirsiniz.10'dan küçük ve 30'dan büyük olan ve Excel'in standart ortalama özel işlevimizle aynı ortalamayı hesaplayıp hesaplaşmadığını görmek için Excel'deki standart Ortalama işlevini kullanın.

Özel Ortalama İşlev Kontrolü

Özel ortalama işlevimiz çalışıyor! Not: Bu işlev sadece bu çalışma kitabında kullanılabilir.

Ayrıca oku: