a1:d20 arasında kırmızı olan hücreleri toplar Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Function SumIfColours(cellTextColour As Integer, _ 
   Range1, ParamArray Range2()) As Double

Dim objCell As Range

' Best to use this even if it does 
' slow Excel down somewhat. 
Application.Volatile

' Initialise. 
SumIfColours = 0

' Process first argument. 
' Restrict the range to stop the loop looking 
' at huge swathes of empty cells. 
For Each objCell In Intersect(Range1, _ 
    Range1.Parent.UsedRange) 
    If Application.IsNumber(objCell.Value) And _ 
    objCell.Interior.ColorIndex = cellTextColour Then _ 
    SumIfColours = SumIfColours + objCell.Value 
Next objCell

' Process additional arguments (if any) 
If UBound(Range2)  0 Then 
   For intArgument = 1 To UBound(Range2) 
      For Each objCell In Intersect(Range2(intArgument), _ 
         Range2(intArgument).Parent.UsedRange) 
         If Application.IsNumber(objCell.Value) And _ 
             objCell.Interior.ColorIndex = cellTextColour Then _ 
             SumIfColours = SumIfColours + objCell.Value 
      Next objCell 
   Next intArgument 
End If 
End Function

D21 veya A1:D20 hücreleri dışında bir hücreye aşağıdaki fürmülü yazın.
=SumIfColours(3;$A$1:$D$20)
 -

Benzer Sonuçlar
No	Makro Adı
1	a1:d20 arasında kırmızı olan hücreleri toplar
2	a1:d20 hücreleri arasındaki arka plan rengi kırmızı olan hücreleri toplar
3	bul-renklendir(hücre aralıklı)
4	hücre değerini açiklamaya ekleme
5	a1:a10 hücreleri arasında 10 olanları 21 yapar
6	Seçili hücreleri aşağı öteler.
7	sütun gizleme şartlı
8	a1den a3000'e kadar olan hücrelerde eğer herhangi bir veri varsa kırmızı yapar ve satırı tamamen sayfa 3'e gönder
9	tek buton ile belirli hücreleri temizleme
10	Seçili hücrelere ait hüm satırı ötelemek.
11	c5 ile c15 arasındaki boş hücreleri saymak ve d1 e yazdirmak istiyorum
12	sayfa1 a1:a100 arasinda dolgu rengi sari olan hücre varsa o satır in a:an araliğini sayfa2 ye nasıl kopyalariz
13	renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)
14	a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum
15	Sadece belli bir hücre rengine sahip olan hücrelerin toplamını hesaplamak
16	negetif sayıları toplama
17	a1:af12 hücreleri arasındaki veriler yanıp söner
18	a1:af12 hücreleri arasındaki veriler yanıp söner
19	hücre renkleri ile ilgili kodlar
20	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın

Benzer Sonuçlar

Makro Adı

a1:d20 arasında kırmızı olan hücreleri toplar

a1:d20 hücreleri arasındaki arka plan rengi kırmızı olan hücreleri toplar

bul-renklendir(hücre aralıklı)

hücre değerini açiklamaya ekleme

a1:a10 hücreleri arasında 10 olanları 21 yapar

Seçili hücreleri aşağı öteler.

sütun gizleme şartlı

a1den a3000'e kadar olan hücrelerde eğer herhangi bir veri varsa kırmızı yapar ve satırı tamamen sayfa 3'e gönder

tek buton ile belirli hücreleri temizleme

Seçili hücrelere ait hüm satırı ötelemek.