- Katılım
- 31 Aralık 2007
- Mesajlar
- 227
- Excel Vers. ve Dili
- Office 2007 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[SIZE="2"][FONT="Trebuchet MS"]Function renksay(Aralık As Range, Renkİndeksi As Integer, _
Optional OfText As Boolean = False) As Long
Dim rng As Range
Application.Volatile True
For Each rng In Aralık.Cells
If OfText = True Then
renksay = renksay - _
(rng.Font.ColorIndex = Renkİndeksi)
Else
renksay = renksay - _
(rng.Interior.ColorIndex = Renkİndeksi)
End If
Next rng
End Function[/FONT][/SIZE]
.Elimdeki çalışmada öğrencilerin sınav sonucuna göre doğru cevapları yeşilyanlış cevapları kırmızı ile belirtiliyor. Renkleri saydıra bilirmiyiz?