Excel'de hücrelerin arka plan renk indeksini nasıl belirleyip tanımlarsınız?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, çok sayıda renkli hücre içeren bir çalışma sayfası aldığınızda, bazı durumlarda bu renkli hücrelerin arka plan renk indeksini belirlemek isteyebilirsiniz. Bir hücrenin renk indeksini belirleyebilecek yerleşik bir özellik bulunmamaktadır, ancak bu makalede, Excel'de bu işlemi hızlı bir şekilde gerçekleştirmek için bazı VBA kodları tanıtacağım.

VBA ile hücre rengini tanımlayın

VBA ile hücre rengini tanımlayın

Hücre rengini VBA ile belirlemek için aşağıdaki adımları izleyin.

1. Tuşlarına basın Alt + F11 tuşlarına basarak Microsoft Visual Basic for Application penceresini açın.

2. Ekle > Modül'e tıklayarak yeni bir Modül açın ve aşağıdaki VBA kodunu boş betiğe yapıştırın. Ekran görüntüsüne bakın:

VBA: Hücrenin geleneksel hex kodunu alın

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function

3. Kodu kaydedin ve VBA penceresini kapatın. Renkli hücreye bitişik boş bir hücre seçin, bu formülü yazın, =getRGB1(A16), ardından otomatik doldurma tutamacını kullanmak istediğiniz hücrelerin üzerine sürükleyin. Ekran görüntüsüne bakın:

İpucu: Hücrenin renk indeksini tanımlayabilen başka kodlar da bulunmaktadır.

1. VBA: Her kod için ondalık değer

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Sonuç:

2. VBA: Ondalık değerler

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

Sonuç:

Excel'de Yinelenen veya Benzersiz Değerleri Kolayca Seçin

Excel'de bir veri aralığıyla çalışıyorsanız ve yinelenen satırları vurgulamak veya seçmek istiyorsanız, bu görevi nasıl hızlı bir şekilde yönetebilirsiniz? Kutools for Excel ile, Yinelenen ve Benzersiz Hücreleri Seçme özelliği sayesinde bir aralıkta yinelenen veya benzersiz değerleri hızlıca seçebilirsiniz. Ayrıca bu yinelenen veya benzersiz değerlere arka plan ve yazı tipi renkleri uygulayarak verilerinizin ön plana çıkmasını kolaylaştırabilirsiniz.

Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Sürekli ücretsiz AI özelliklerinden yararlanın! Hemen Edinin

İlgili Makaleler:

• Excel'de hücre değerine göre yazı tipi rengini nasıl değiştirirsiniz?
• Excel'de yinelenen değerleri veya yinelenen satırları nasıl renklendirirsiniz?