Sayfalardan Hücre Font Rengine Göre Toplama – Sayma

Sayfalardan Hücre Font Rengine Göre Toplama – Sayma

Sayfalardan yapılan bu tür hesaplamalara üç boyutlu hesaplamalar da denir.

Burada, sayfa adlarını hücrelere yazdırmak için bir KTF (Kullanıcı Tanımlı Fonksiyon) yazılmıştır. Kodlar:

Function sayfaadi(syfno As Integer) As String
Application.Volatile
If syfno <= Worksheets.Count Then
sayfaadi = Worksheets(syfno).Name
Else
sayfaadi = “”
End If
End Function

Renklerin indeks sayılarını bulmak için de bir KTF yazılmıştır. Kodları:

Function Renki(aln As Range, Optional sy As Boolean = False) As Integer
Application.Volatile True
If sy = True Then
Renki = aln(1, 1).Font.ColorIndex
Else
Renki = aln(1, 1).Interior.ColorIndex
End If
End Function

Dosya:

sayfalardanfontrenktopla-say

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>