Interior.ColorIndex = xlNone ve Font.ColorIndex = 0 hücre aralığını toplama

[hsayar]

Function BiçimTopla (Aralık, fontindex, dolguindex)
Aralık = mesala a11:a45
fontindex mesala = 0 (otomatik)
interior(dolguindex) ) = yok (xlnone)
olanları nasıl toplarım.

İlgili Yeni Sorular:

    Selection.Interior.ColorIndex = xlNone
    Selection.Font.ColorIndex = 0

1) durumunu nasıl toplatacağız hocam ilgili yerelere xlnone,0 yazdım ama işe yaramadı
2) herhangi bir renk ile işaretlenmiş hücreleri aynı anda toplama imkanı varmı
3) İşlem tipi 1 demişsiniz toplamak için peki işlem tipi = 2 için sayma işelmi atamak için nereye ne ilave edeceğiz.
4) Kullanıcı tanımlı fonsiyonlara yardım eklenebilirmi[/QUOTE]


Aşağıda Hücre rengi ve Dolgu rengi 1 iala 56 arasında olanların çöümüne ilişkin yöntem mevcut. Ali hocama teşekkür ederim.

Dolgu rengi değişimi sayfanın yeniden hesaplanması olayını tetiklemiyor, ben zaten günlükten tsbye dağıtım yapıyordum çözümü şu şekilde buldum

İlgili sayfada bir command buton tanımladım (daha doğrusu oraya bağlayacam) modüldeki adını yazdım

Private Sub CommandButton1_Click()
test
End Sub

modül sayfasına fonksiyon ve kodları yazdım

Function brdrenktopla(Adres As Range, Dolgu_rengi, Font_rengi, islem As Integer)
Dim c As Range
On Error Resume Next
Toplam = 0
If islem = 1 Then
    For Each c In Adres
       If c.Interior.ColorIndex = Dolgu_rengi And c.Font.ColorIndex = Font_rengi And c <> "" Then Toplam = Toplam + c.Value
    Next
End If
brdrenktopla = Toplam
End Function
Sub test()
Set S2 = Sheets("tsb")
S2.Cells(13, 3) = brdrenktopla(S2.[C4:C11], 1, 2, 1) 'alış
End Sub

 

[hsayar]

Sn Ali hocamın kodlarınından önce bir fonksiyon oluşturdum sonra 1. soumun cevabını buldum;

Public Function ozellik(Ornek_Hucre)
FontRengi = Ornek_Hucre.Font.ColorIndex
DolguRengi = Ornek_Hucre.Interior.ColorIndex
ozellik = "fontrengi= " & FontRengi & " / dolgurengi= " & DolguRengi
End Function

sonuç olarak
Dolgu Rengi Otomatik ve font rengi otomatik ise index değerlerinin aşağıdaki gibi olduğunu öğrendim

fontrengi= -4105 / dolgurengi= -4142

Function brdrenktopla(Adres As Range, Dolgu_rengi, Font_rengi, islem As Integer)
Dim c As Range
On Error Resume Next
Toplam = 0
If islem = 1 Then
    For Each c In Adres
       If c.Interior.ColorIndex = Dolgu_rengi And c.Font.ColorIndex = Font_rengi And c <> "" Then Toplam = Toplam + c.Value
    Next
End If
brdrenktopla = Toplam
End Function

Şimdi Aynı konu ile ilgili üç sorum var

1) fontrengi= -4105 / dolgurengi= -4142 haricindeki tüm biçimleri toplama
2a) Aynı foksiyonu adet olarak sayma (işlem no=2)
2b) Aynı foksiyonu ortalamasını bulma (işlem no=3)
4) Kullanıcı tanımlı fonksiyonlara yardım ekleme

yani şunu demek istiyorum mesala alttoplam fonksiyonun çalıştırdığımızda sol alt köşede fonksiyon yardımı vardır;

ALTTOPLAM
 
Ayrıca Bkz:

Bir listede veya veritabanında bir alt toplam verir. Genellikle Veri menüsünde Alt Toplamlar komutunu kullanarak alt toplamları olan bir liste oluşturmak daha kolaydır. Alt toplamları olan liste bir kez oluşturulduktan sonra, ALTTOPLAM fonksiyonunu düzenleyerek değiştirebilirsiniz.

Sözdizimi

ALTTOPLAM(işlev_sayısı, başv1, başv2, ...)

İşlev_sayısı    bir listede alt toplamları hesaplamak için hangi fonksiyonların kullanılacağını belirleyen 1 ile 11 (gizli değerleri kapsar) veya 101 ile 111 (gizli değerleri yok sayar) arasında bir sayıdır.

İşlev_sayısı
(gizli değerleri kapsar) İşlev_sayısı
(gizli değerleri yok sayar) İşlev 
1 101 ORTALAMA 
2 102 SAY 
3 103 DOLUSAY 
4 104 MAK 
5 105 MİN 
6 106 ÇARPIM 
7 107 STDSAPMA 
8 108 STDSAPMAS 
9 109 TOPLA 
10 110 VAR 
11 111 VARS 

Başv1, başv2,   alt toplamını almak istediğiniz 1 ile 29 arasındaki aralık veya başvurudur.

Uyarılar

Başv1, başv2,… içinde başka alt toplamlar (veya iç içe girmiş alt toplamlar) varsa, bu iç içe girmiş alt toplamlar iki kez sayılmayı önlemek üzere gözardı edilir. 
1 ile 11 arasındaki işlev_sayısı sabitleri için, ALTTOPLAM işlevi, Biçim menüsünün Satır alt menüsü alt menüsündeki Gizle komutu ile gizlenen satırların değerlerini kapsar. Bir listedeki gizli ve gizlenmemiş sayıların alt toplamını almak istediğinizde bu sabitleri kullanın. 101 ile 111 arasındaki işlev_sayısı sabitleri için, ALTTOPLAM işlevi, Biçim menüsünün Satır alt menüsü alt menüsündeki Gizle komutu ile gizlenen satırların değerlerini yok sayar. Bir listedeki yalnızca gizlenmemiş sayıların alt toplamını almak istediğinizde bu sabitleri kullanın. 
ALTTOPLAM işlevi, kullandığınız işlev_sayısı değerinden bağımsız olarak, bir filtrenin sonucuna dahil edilmeyen tüm satırları yok sayar.
ALTTOPLAM işlevi, veri sütunları veya dikey aralıklar için tasarlanmıştır. Veri satırları veya yatay aralıklar için tasarlanmamıştır. Örneğin, 101 veya daha büyük bir işlev_sayısı kullanarak yatay bir aralığın alt toplamını aldığınızda (örneğin ALTTOPLAM(109,B2:G2)), bir sütunu gizlemek, alt toplamı etkilemez. Ancak, dikey bir aralığın alt toplamındaki bir satırı gizlemek, alt toplamı etkiler.
Başvurulardan biri 3-B ise, ALTTOPLAM, #DEĞER! hata değeri verir. 
Örnek

Örneği, boş çalışma sayfasına kopyalarsanız anlamanız daha kolay olabilir.

 Nasıl?

Boş bir çalışma kitabı veya çalışma sayfası oluşturun. 
Yardım konusundaki örneği seçin. Satır veya sütun üstbilgilerini seçmeyin.  


Yardım'dan bir örnek seçme

CTRL+C tuşlarına basın. 
Çalışma sayfasında, A1 hücresini seçin ve CTRL+V tuşlarına basın. 
Sonuçları görüntüleme ve sonuçları döndüren formülleri görüntüleme arasında geçiş yapmak için, CTRL+` (kesme işareti) tuşlarına basın veya Araçlar menüsündeki Formül İzleme'yi seçin ve Formül İzleme Modu'nu tıklatın. 
   
1 
2 
3 
4 
5 
 A 
Veri 
120 
10 
150 
23 
Formül Açıklama (Sonuç) 
=ALTTOPLAM(9;A2:A5) TOPLA fonksiyonu kullanılarak yukarıdaki sütunun alt toplamı (303) 
=ALTTOPLAM(1;A2:A5) ORTALAMA fonksiyonu kullanılarak yukarıdaki sütunun alt toplamı (75,75)

olarak açıklar mesala
işlev sayısı var 1, toplar/2,dolu hücreleri sayar/3, ortalamasını alır tabi eklenirse 1 haricindekiler neyse
index sayısı var 1 den 56 ya kadar sayılar ve fontrengi otomatik ise -4105 / dolgurengi otomatik ise -4142
toplanrcak aralık

tanımlanabilir
YArdımlarınız için teşekkür ederim