DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
KTF olan dosyanızı farklı kaydet, Kayıt Türü "Excel Eklentisi" seç klasör olarak otomatik
C:\Users\"Oturum Adınız"\AppData\Roaming\Microsoft\AddIns açılır.
Dosyanızı buraya excel eklentisi olarak kaydedin.
Excel Seçenekler/Eklentiler sayfasını açın.
"Yönet" = "Excel Eklentileri" seçili iken Gite tıklatın.
Açılan pencerede dosyanızın yanındaki onay kutusunu işaretleyin.
Function ColorIndexOfCell(rng As Range, _
Optional OfText As Boolean, _
Optional DefaultAsIndex As Boolean = True) As Integer
Dim c As Long
If OfText = True Then
c = rng.Font.ColorIndex
Else
c = rng.Interior.ColorIndex
End If
If (c < 0) And (DefaultAsIndex = True) Then
If OfText = True Then
c = GetBlack(rng.Worksheet.Parent)
Else
c = GetWhite(rng.Worksheet.Parent)
End If
End If
ColorIndexOfCell = c
End Function
Function GetWhite(WB As Workbook) As Long
Dim Ndx As Long
For Ndx = 1 To 56
If WB.Colors(Ndx) = &HFFFFFF Then
GetWhite = Ndx
Exit Function
End If
Next Ndx
GetWhite = 0
End Function
Function GetBlack(WB As Workbook) As Long
Dim Ndx As Long
For Ndx = 1 To 56
If WB.Colors(Ndx) = 0& Then
GetBlack = Ndx
Exit Function
End If
Eksik yada yanlış yaptığınız bir şey olmalı.
Ekte işlemi yaparken kaydettiğim ekran görüntüsü var inceleyin.
http://dosya.co/x518xxz6mzl9/Capture_01.zip.html[/QUOTE
PC de değilim... eklenti olarak kaydedip denediniz mi, yani yeni sayfalarda ktf çalışıyor mu ?
Video daki anlatım ile, ilk mesajdaki anlatım harfiyen aynı... Bende ilk mesajdaki gibi yaptığımı belirtiyorum zaten... Yani videoya gerek yoktu... Bu tek bir KTF değil.. bir kaç tane birleşim sözkonusu... Sistemim eski. ofis 2007 trLütfen önce kaydettiğim görüntüyü seyret.
Denemiştim . Olmadı .. Bu fonksiyonun içeriğinden kaynaklanıyor gibi geldi bana"Excel 2003-2007 Eklentisi *.xla" olarak kaydedip dene. Bakalım olacak mı?
Ofis 2007 kaldırdım. maalesef deneyemem...Bir de şöyle dener misin.
Prosedür başlığının en önüne Public ekle
Function ColorIndexOfCell(rng As Range, _
Aşağıdaki gibi
Public Function ColorIndexOfCell(rng As Range, _