İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də hüceyrələrin arka plan rəng indeksini necə təyin etmək və müəyyən etmək olar?

Bir çox rəngli hüceyrələri olan bir hesabatı ekran görüntüsünün aşağıda göstərildiyi kimi qəbul etdikdə, bəzi hallarda, bu rəng hüceyrələrinin arka plan rəng indeksini müəyyən etmək isteyebilirsiniz. Bir hüceyrənin rəng indeksini təyin edə biləcək bir xüsusiyyət yoxdur, amma bu yazıda bu işi tezliklə Excel-də həll etmək üçün bəzi VBA kodları təqdim edirəm.
doc 1 rəng indeksini təyin edir

VBA ilə hüceyrənin rəngini müəyyənləşdirin


VBA ilə hüceyrənin rəngini müəyyənləşdirin


VBA tərəfindən hüceyrənin rəngini müəyyən etmək üçün aşağıdakı addımlardan istifadə edin.

Excel üçün Kutools, daha çox 120 lazımlı funksiyaları, işinizi asanlaşdırır.

1. Basın Alt + F11 düymələri təmin etmək üçün Proqram üçün Microsoft Visual Basic pəncərə.
doc 2 rəng indeksini təyin edir

2. klik Taxmaq > Modules yeni açmaq üçün Modules boş skriptə VBA kodunun altına yapışdırın. Ekran görüntüsünə baxın:

VBA: Ənənəvi hex kodunu əldə edin

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
doc 3 rəng indeksini təyin edir
doc 4 rəng indeksini təyin edir

3. Kodunu saxla və VBA pəncərəsini bağlayın. Rəngli hüceyrənin yanında boş bir hüceyrə seçin, bu formulu yazın, = getRGB1 (A16), sonra istifadə etmək istədiyiniz hüceyrələr üzərində autofill sapı sürükleyin. Ekran görüntüsünə baxın:

doc 5 rəng indeksini təyin edir
doc 6 rəng indeksini təyin edir

Ip ucu: bəzi digər kodlar hüceyrənin rəng indeksini təyin edə bilər.

1. VBA: Hər bir kod üçün ondalık dəyər

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

Nəticə:
doc 7 rəng indeksini təyin edir

2. VBA: Decimal dəyərlər

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

Nəticə:
doc 8 rəng indeksini təyin edir


Duplicate & Unique Cells seçin (bir sütunda tez və ya unikal dəyərləri seçin.

doc 6 sütunları üzərindəki dublikatı vurğulamaq

Əlaqədar məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.