Excel'deki hücrelerin arka plan renk indeksi nasıl belirlenir ve belirlenir?
Aşağıda gösterilen ekran görüntüsü gibi birden çok renkli hücre içeren bir sayfa aldığınızda, bazı durumlarda bu renk hücrelerinin arka plan renk indeksini belirlemek isteyebilirsiniz. Bir hücrenin renk indeksini belirleyebilecek yerleşik bir özellik yoktur, ancak bu makalede, Excel'de bu işi hızlı bir şekilde çözmek için bazı VBA kodlarını tanıtıyorum.
VBA ile hücrenin rengini belirleyin
VBA ile hücrenin rengini belirleyin
Hücrenin rengini VBA ile belirlemek için aşağıdaki adımları uygulayın.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulama için Microsoft Visual Basic pencere.
2. tık Ekle > modül yeni açmak modül ve boş komut dosyasına VBA kodunun altına yapıştırın. Ekran görüntüsüne bakın:
VBA: Geleneksel onaltılık hücre 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ücrenin yanında 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:
Bahşiş: Hücrenin renk indeksini tanımlayabilen başka kodlar vardı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 aralığında yinelenen veya benzersiz değerleri hızlıca seçin |
Excel sayfasında, bazı yinelenen satırlar içeren bir aralığınız varsa, bunları seçmeniz veya seçmeniz gerekebilir, ancak bu işi nasıl hızlı bir şekilde çözebilirsiniz? Kutools for Excelkullanabilir, Çoğalt'ı seçin ve Eşsiz Hücreler aralıktaki yinelenenleri veya benzersiz değerleri hızlı bir şekilde seçmek veya çoğaltmalar ve benzersiz değerler için arka plan ve yazı tipi rengini doldurmak için yardımcı program. 30 günlük ücretsiz deneme için tıklayın! |
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
İlgili Makaleler:
- Yazı tipi rengini Excel'deki hücre değerine göre nasıl değiştirebilirim?
- Excel'de yinelenen değerleri veya yinelenen satırları nasıl renklendirebilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!