Excel'de hücrelerin Arka Plan Rengi indeksini nasıl belirleyip tanımlarsınız?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, içinde çok sayıda renkli hücre bulunan bir sayfa aldığınızda, bazı durumlarda bu renkli hücrelerin Arka Plan Rengi indeksini belirlemek isteyebilirsiniz. Excel’de bir hücrenin renk kodu değerini doğrudan gösteren yerleşik bir özellik olmasa da, bu makalede söz konusu görevi hızlıca yerine getirmenize yardımcı olacak bazı VBA kodlarını tanıtacağız.
VBA ile hücre rengini tanımlama
VBA ile hücre rengini tanımlama
Hücre rengini VBA ile belirlemek için aşağıdaki adımları izleyin.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Yeni bir Modül açmak için Ekle > Modül seçeneğine tıklayı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 onaltılık (hex) kodunu alma
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ücrenin yanındaki boş bir hücreyi seçin, aşağıdaki formülü girin: =getRGB1(A16), ardından otomatik doldurma tutamacını istediğiniz hücrelere kadar sürükleyin. Ekran görüntüsüne bakın:
 |
 |
İpucu: Hücrenin renk kodu değerini belirleyebilecek başka bazı kodlar da vardır.
1. VBA: Her kod için onluk (decimal) 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 FunctionSonuç:
2. VBA: Onluk (decimal) 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 FunctionSonuç:
Excel'de Yinelenen veya Benzersiz Değerleri Kolayca Seçin |
Excel'de bir veri aralığı üzerinde çalışıyorsanız ve yinelenen satır değerlerini vurgulamak veya seçmek gerekiyorsa, bu görevi nasıl hızlıca halledebilirsiniz? Kutools for Excel, Yinelenen/Benzersiz Hücreleri Seç özelliğiyle bir aralıktaki yinelenen veya benzersiz değerleri hızla seçmenizi sağlar. Ayrıca bu yinelenen veya benzersiz değerlere arka plan rengi ve yazı tipi rengi uygulayabilir, böylece verileriniz dikkat çekici şekilde öne çıkar. |
 |
Kutools for Excel- Excel'i, işinizi daha hızlı ve kolay hale getiren 300'ten fazla temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Şimdi Edinin |
İlgili Makaleler:
- Excel'de hücre değerine göre yazı tipi rengi nasıl değiştirilir?
- Excel'de yinelenen değerler veya yinelenen satırlar nasıl renklendirilir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar