Excel Mod fonksiyonu ve toplama

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel Mod fonksiyonu ve toplama

Bu konudaki kullanıcılar: 1 misafir

3
Cevap 1727
Tıklama 0
Öne Çıkarma

1. sayfa

Excel Mod fonksiyonu ve toplama

Cevap Yaz

|Flair|

12 yıl (310 mesaj)

Teğmen

Konu Sahibi

Arkadaşlar excelde kısa yoldan bir işlem yapmak istiyorum. Elimde bir tablo var. Tablodaki sayılar karışık şekilde sıralanmış, bu sayıları tek ve çift olarak ayırıp tek olan toplam kaç tane sayı var onu görmek istiyorum. Bunun için tek bir formül var mıdır? Benim bildiğim şu şekilde bir formül oluşturmak gerekiyor.

=TOPLAM(MOD(A1;2)+MOD(B1;2)+MOD(C1;2)+mod...) şeklinde gidecek bu formül. Çok fazla sütun ve satır olduğu zaman nasıl bir formül yazılması gerekiyor yardımcı olursanız sevinirim.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

akcan

12 yıl (2163 mesaj)

Binbaşı

çok sayıda hücre için excel vba makrolarına başvurmak gerekir.

excelde ALT+F11 e basın. menüden insert / modüle tıklayın alttaki kodları ekleyin

tek veya çift sayıların sayısını bulmak için hücrede kullanacağınız formül
=rSay(hücre,tür)
tür olarak
0 -> çift sayı,
1 -> tek sayı
örnek => rsay=("A1:E2",1) => tek sayıların sayısı
örnek => rsay=("A1:E1",0) => çift sayıların sayısı

Function rSay(rangeA 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 = rangeA.Value 
   
   
  For i = 1 To rangeA.Rows.Count 
      For j = 1 To rangeA.Columns.Count 
          sayı = arrayA(i, j) 
          artan = sayı Mod 2 
          If artan = tür Then 
              rSay = rSay + 1 
          End If 
      Next 
  Next 
  End Function

Bu mesaja 1 cevap geldi.

akcan

12 yıl (2163 mesaj)

Binbaşı

çift ya da tek sayıları toplayan formül ise rSAY formülüne çok benzer. kodlar aşağıda

tek veya çift sayıların TOPLAMını bulmak için hücrede kullanacağınız formül
=rToplam(hücre,tür)
tür olarak
0 -> çift sayı,
1 -> tek sayı
örnek => rToplam=("A1:E2",1) => tek sayıların toplamı
örnek => rToplam=("A1:E1",0) => çift sayıların toplamı

Function rToplam(rangeA 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 = rangeA.Value 
   
  For i = 1 To rangeA.Rows.Count 
      For j = 1 To rangeA.Columns.Count 
          sayı = arrayA(i, j) 
          artan = sayı Mod 2 
          If artan = tür Then 
              rToplam = rToplam + sayı 
          End If 
      Next 
  Next 
   
  End Function

Bu mesaja 1 cevap geldi.

|Flair|

12 yıl (310 mesaj)

Teğmen

Konu Sahibi

Teşekkür ederim, beni büyük bir zahmetten kurtardınız.

Bu mesajda bahsedilenler: @akcan

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel Mod fonksiyonu ve toplama