EXCEL VBA: Belirtilen aralıktaki çift ya da tek sayıların toplamı

Excelde kullanabileceğiniz özel bir fonksiyon
=SayiTopla(hücreler,tip)
Bu formül belirtilen hücrelerdeki çift ya da tek sayıların toplamını verir

hücreler olarak: "A1:E4" gibi çok sayıda hücre.
tip olarak:
Tek sayı için: 1
Çift Sayı için: 0

Örnek: =SayiTopla("A1:E5";1)
"A1:E5" aralığındaki tek sayıların toplamını verir

Kodları eklemek için:
Excelde ALT+F11 e basın.
Menüden Insert / Module tıklayın.
Aşağıdaki kodları ekleyin

Function SayiTopla(hucreler As Range, tip As Integer)
' tip:
' 0: Çift sayi
' 1: Tek sayi
Dim arrayA As Variant
Dim i As Integer, j As Integer, artan As Integer
Dim sayi As Variant
arrayA = hucreler.Value

For i = 1 To hucreler.Rows.Count
 For j = 1 To hucreler.Columns.Count
  sayi = arrayA(i, j)
  artan = sayi Mod 2
  If artan = tip Then
   SayiTopla = SayiTopla + sayi
  End If
 Next
Next
End Function