Hücre Rengi

[Leoncio]

Merhaba;

Aşağıdaki fonksiyon ile dolgu rengi numarasını bulabiliyoruz. Peki Hücre rengini bulabilmek için fonksiyonu nasıl değiştirmeliyim?

Function renknosunugoster(i)
renknosunugoster = i.Interior.ColorIndex
End Function

 

[Necdet]

Merhaba,

Function renknosunugoster1(i)
renknosunugoster1 = i.Font.ColorIndex
End Function

 

[Leoncio]

Teşekkürler.

 

[Seyit Tiken]

Hücredeki sayısal değere göre Dolgu Rengi.

Sub Düğme2_Tıklat()
With Selection.Interior
.ColorIndex = ActiveCell.Value
End With
End Sub