excelde aynı renkli hücreleri toplatma

[leman35]

iyi günler benim acilen buna ihtiyacım var örneğin aynı renkteki hücreleri toplama ve bu arada makrolar visual basicte birez vb biliyorum ama bu makrolar orada nereye yazılıyor
teşekkürler acil yardıma ihtiyacım var[/i]

 

[Ali]

Kullanıcı tanımlı bir fonksiyon işinizi görür sanırım
Modül içine aşağıdaki kodları kopyalayın

Function ColorSum(rngCells As Range) As Double
Application.Volatile
Dim cell As Range
ColorSum = 0
On Error Resume Next
For Each cell In rngCells
If cell.Font.ColorIndex = 3 Then ColorSum = ColorSum + cell.Value
Next cell
End Function




=ColorSum(A1:A16) şeklinde A1:A16 arasındaki kırmızı renkleri toplarsınız

ColorIndex = 3 kısmındaki 3 yerine istediğinizi bir renk kodunu vererek toplatabilirsiniz

 

[leman35]

teşekkürler çokkkkkkkkkkkk

sağolun çok teşekkürler bu kodları nasıl öğrenebiliriz acaba

çok işime yarayacak. Ayrıca biz bunu zemin rengi olarak da değiştirebilirz değilmi onun kodu nedir?

 

[Ali]

Zemin rengi olarakta istiyorsanız

http://www.excel.web.tr/viewtopic.php?t=5222&highlight=renk linkindeki dosya işinizi görecektir.

Renk kodları için http://www.geocities.com/davemcritchie/excel/colors.htm

1 Siyah, 2 Beyaz ,3 Kırmızı, 4 Yeşil, 5 Mavi, 6 Sarı şeklinde gidiyor siz tabloyu incelersiniz