Skip i'r prif gynnwys

Sut i gyfrif celloedd â thestun penodol a lliw llenwi / ffont yn Excel?

Efallai y bydd yn hawdd ichi gyfrif nifer y celloedd sy'n cynnwys un cyflwr yn unig, megis cyfrif pob cell â thestun penodol neu liw ffont / llenwi. Fodd bynnag, a ydych chi'n gwybod sut i gyfrif celloedd â chyflyrau lluosog? Er enghraifft, cyfrif nifer y celloedd sy'n cynnwys testun penodol a lliw ffont / llenwi. Bydd yr erthygl hon yn dangos yr ateb i chi.

Cyfrif celloedd gyda thestun penodol a llenwi lliw â chod VBA
Cyfrif celloedd gyda thestun penodol a lliw ffont gyda chod VBA


Cyfrif celloedd gyda thestun penodol a llenwi lliw â chod VBA

Gan dybio bod gennych dabl fel isod y llun a ddangosir, ar gyfer cyfrif celloedd yng ngholofn B yn seiliedig ar y testun a lliw llenwi cell E2, cymhwyswch y cod VBA canlynol.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Cyfrif celloedd gyda thestun penodol a llenwi lliw

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

Nodyn: Yn y cod, B2: B9 yw'r ystod y byddwch chi'n cyfrif celloedd y tu mewn iddi, mae E2 yn cynnwys y testun ac yn llenwi lliw y byddwch chi'n cyfrif celloedd yn seiliedig arno. Gallwch eu newid i'ch angen.

3. Gwasgwch y F5 allwedd i redeg y cod, yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch gell i osod y canlyniad ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna mae'r canlyniad cyfrif yn dangos yn y gell a ddewiswyd ar unwaith.


Cyfrif celloedd gyda thestun penodol a lliw ffont gyda chod VBA

Ar gyfer cyfrif celloedd yn ystod B2: B9 yn seiliedig ar destun a lliw ffont cell E2, gwnewch fel a ganlyn.

1. Agorwch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr trwy wasgu'r Alt + F11 allweddi.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Cyfrif celloedd gyda thestun penodol a lliw ffont

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

Nodyn: Yn y cod, B2: B9 yw'r ystod y byddwch chi'n cyfrif celloedd y tu mewn iddi, E2 yw'r meini prawf y byddwch chi'n cyfrif celloedd yn seiliedig arnyn nhw. Gallwch eu newid yn ôl yr angen.

3. Gwasgwch y F5 allwedd i redeg y cod, yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch gell i osod y canlyniad ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Byddwch yn cael y canlyniad fel y dangosir isod y screenshot:


Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, he probado la función cuente celdas con texto específico y color de relleno pero cuando aprieto la tecla F5 solo me sale la función "IR A" y no me sale la ventana para seleccionar la celda.
Supongo que no podrá probarse y tengo que comprar
This comment was minimized by the moderator on the site
Hi Nando,
The VBA codes are provided for free. Which Excel version are you using? Is there any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations