İ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ə xüsusi mətni və dolgu / font rəngli hüceyrələri necə saymaq olar?

Müəyyən mətn və ya yazı tipi / dolgu rengi olan bütün hüceyrələri saymaq kimi bir şərti olan hüceyrələrin sayını saymaq asan ola bilər. Lakin hüceyrələri bir neçə şərtlə necə saymaq olar? Məsələn, həm xüsusi mətni, həm də yazı tipini / dolgu rəngini ehtiva edən hüceyrələrin sayını sayın. Bu məqalə sizə həll yolu göstərəcəkdir.

Xüsusi mətni olan hüceyrələri saymaq və VBA kodu ilə rəng doldurmaq

VBA koduyla xüsusi mətn və font rəngli hüceyrələri saymaq


Asanlıqla bir sıra xüsusi mətni olan hüceyrələri saymaq və seçmək:

Excel üçün Kutools seçin xüsusi hüceyrələri istifadə edərək, bir sıra xüsusi mətn olan hüceyrələri tez saymaq və seçə bilərsiniz. Ekran görüntüsünə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Xüsusi mətni olan hüceyrələri saymaq və VBA kodu ilə rəng doldurmaq


Aşağıdakı VBA kodunu tətbiq edin, mətnə ​​və E2 hüceyrə rəngini doldurmaq üçün B sütununda hüceyrələri hesablamaq üçün göstərilən ekran görüntüsünün aşağıda olduğu kimi bir masanız var.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra VBA kodu aşağıda Module pəncərəsinə kopyalayın.

VBA kodu: Xüsusi mətn və hüdudları doldurmaq üçün hüceyrələri saymaq

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

QeydKod: B2: B9, hüceyrələrin daxilində sayacağınız sıradır, E2 mətn və rənglərə əsaslanan hüceyrələrin sayını dolduracaqdır. Onları ehtiyaclarınıza dəyişə bilərsiniz.

3. Basın F5 kodu açmaq üçün açar, sonra a Excel üçün Kutools informasiya qutusu açılır, nəticəni yerləşdirmək üçün bir hüceyrə seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra sayma nəticəsində seçilmiş hüceyrədə dərhal göstərilir.


VBA koduyla xüsusi mətn və font rəngli hüceyrələri saymaq

B2 aralığındaki hüceyrələri saymaq üçün: E9 hücresinin mətn və font rənglərinə əsaslanan B2, aşağıdakıları yerinə yetirin.

1. açın Proqramlar üçün Microsoft Visual Basic basın Dayandırmaq + F11 düymələri.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra VBA kodu aşağıda Module pəncərəsinə kopyalayın.

VBA kodu: xüsusi mətn və font rəngli hüceyrələri saymaq

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

Qeyd: Kodda, B2: B9 hüceyrələri sayacağınız sıradır, E2 hüceyrələrə əsaslanan saydığınız meyarlardır. Sizə lazım olanları dəyişə bilərsiniz.

3. Basın F5 kodu açmaq üçün açar, sonra a Excel üçün Kutools informasiya qutusu açılır, nəticəni yerləşdirmək üçün bir hüceyrə seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Nəticəni aşağıdakı ekran görüntüsü kimi göstərəcəksiniz:


Related articles:



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.