Etiketler

AutoCAD (54) bedava (46) Resim (33) Dosya (32) program (21) Ziyaretçi Defteri (20) excel (18) Güncelleme (16) asgbookphp (16) Şablon (15) Qbasic (14) php (14) Eğitim (13) Nasıl yapılır (13) online (13) Freeware (12) PHP script (12) Fotoğraf (11) Kaynak kod (10) SolidWorks (10) Dos (9) Photoshop (9) VBA (9) Visual Basic (9) ürünler (9) E-book (8) tutorial (6) Ders (5) Word (5) Lisp (4) Programlama (4)

4 Nisan 2014 Cuma

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

Excelde kullanabileceğiniz bir fonksiyon
=SayiTopla(hücreler,tür)
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 sayısı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(hücreler As Range, tür As Integer)
' Tür
' 0 Çift sayı
' 1 Tek sayı
Dim arrayA As Variant
Dim i As Integer, j As Integer, artan As Integer
Dim sayı As Variant
arrayA = hücreler.Value

For i = 1 To hücreler.Rows.Count
    For j = 1 To hücreler.Columns.Count
        sayı = arrayA(i, j)
        artan = sayı Mod 2
        If artan = tür Then
            SayiTopla = SayiTopla + sayı
        End If
    Next
Next
End Function

Hiç yorum yok:

Yorum Gönder

Related Posts Plugin for WordPress, Blogger...