excelde renkli fontta toplam

[cekays]

:yardim: BİR SÜREDİR CEVAP ALMAK İÇİN UĞRAŞIYORUM LÜTFEN YARDIM EDİN ARKADAŞLAR arkadaşlar ben excelde renkli fontta toplama yapmayı yeni öğrendim (ALİ ARKADAŞIN SAYESİNDE) daha doğrusu exceli yeni öğreniyorum ama renkli yazılan rakamların renkleri değiştirince formülü yazdığım hücreye girip tekrar enter ile çıkmam gerekiyor yani ne kadar renkleri değiştirdiysem hepsine ayrı ayrı girip çıkıyorum bunun kısa bir yolu yokmu veya otomatik renk değiştiği zaman sonuçda değişse bana yardımcı olursanız sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Değişik bir örnek hazırladım size fikir verebilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HUC As Range
If Intersect(Target, [A1:G20]) Is Nothing Then Exit Sub
[I1:I2] = Empty
For Each HUC In Range("A1:G20")
HUC.Font.Bold = False
HUC.Font.ColorIndex = 0
If HUC >= 5 And HUC <= 10 Then
HUC.Font.Color = [H1].Font.Color
HUC.Font.Bold = True
End If
If HUC >= 10 Then
HUC.Font.Color = [H2].Font.Color
HUC.Font.Bold = True
End If
If HUC.Font.Color = [H1].Font.Color Then
[I1] = [I1] + HUC
End If
If HUC.Font.Color = [H2].Font.Color Then
[I2] = [I2] + HUC
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bildiğim kadarıyla bir hücrede yada aralıkta renk değiştirme işlemi bir olayı tetiklemediği için hesaplama işlemini otomatik yaptıramazsınız. Konuyla ilgili aşağıdaki linki inceleminizi öneririm.

http://www.excel.web.tr/showthread.php?t=38798

Ya da alternatif olarak kodlarınızın başına aşağıdaki kod satırını eklerseniz. Bir hücrede renk değiştirip F9 tuşuna basarsanız hesaplama otomatik olarak yapılabilir.

Function Renk_Say()
[COLOR=red][B]Application.Volatile[/B][/COLOR]
'.... Sizin kodlarınız.
End Function

 

[cekays]

çok teşekkür ederim ilginize arkadaşlar