Renkleri, İndeksleri Ve Renk Kodlarını Listele - Microsoft Excel

Excel uygulamasındaki ön tanımlı renkleri, indekslerini ve renk kodlarını listelemeye yarayan VBA kodudur.

Kod


Option Explicit

Sub RenkleriIndeksleriVeRenkKodlariniListele()
    Dim i As Integer
    On Error Resume Next
    For i = 1 To 56
    Cells(i, 1).Interior.ColorIndex = i
    Cells(i, 2).value = Cells(i, 1).Interior.ColorIndex
    Cells(i, 3).value = Cells(i, 1).Interior.Color
    Next i
End Sub

Etiketler

microsoft excel microsoft excel vba microsoft excel vba listeleme işlemleri microsoft excel vba renk işlemleri