Aritmetik Ortalama Hesaplama

Aritmetik Ortalama Hesaplama isimli içerikte, ilgili hesaplamanın yapılmasını sağlayan bir Excel VBA kodu bulunmaktadır.

Aritmetik Ortalama Hesaplama VBA Kodu

Sub AritmetikOrtalamaHesapla()
    Dim ws As Worksheet
    Dim rng As Range
    Dim toplam As Double
    Dim ortalama As Double
    Dim sayiAdedi As Integer
    
    Set ws = Sayfa1
    Set rng = ws.Range("A2:A11")
    
    toplam = WorksheetFunction.Sum(rng)
    sayiAdedi = WorksheetFunction.Count(rng)
    
    If sayiAdedi > 0 Then
        ortalama = toplam / sayiAdedi
        MsgBox "Aritmetik Ortalama: " & ortalama
    Else
        MsgBox "Geçerli veri bulunamadı."
    End If
End Sub

Kodu Çalıştırma

1. Makroyu Çalıştırın: VBA düzenleyicisinden çıkıp tekrar Excel’e dönün. Alt + F8 tuşlarına basarak makro listesini açın.
2. AritmetikOrtalamaHesapla Makrosunu Seçin: Listede “AritmetikOrtalamaHesapla” adlı makroyu bulun ve Çalıştır butonuna tıklayın.
3. Hücre Aralığını Seçin: Makro, sizden aritmetik ortalamayı hesaplamak için bir hücre aralığı seçmenizi isteyecek. Örneğin, A1:A10 aralığını seçebilirsiniz.
4. Sonucu Görün: Seçtiğiniz aralıktaki sayıların aritmetik ortalaması bir mesaj kutusunda gösterilecektir.

Açıklama:

• Bu kod, kullanıcıdan bir hücre aralığı seçmesini istiyor ve ardından bu aralıktaki sayıların aritmetik ortalamasını hesaplamaktadır
• Application.InputBox ile hücre aralığı seçimi sağlanmaktadır.
• Application.WorksheetFunction.Average fonksiyonu, seçilen hücrelerdeki sayıların ortalaması alınmaktadır.
• Sonuç bir MsgBox ile ekrana yazdırılmaktadır.

Yararlanılması temennisiyle.