Note: The other languages of the website are Google-translated. Back to English

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'n probado la función cuente celdas con texto específico y lliw 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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nando,
Darperir y codau VBA am ddim. Pa fersiwn Excel ydych chi'n ei ddefnyddio? A oes unrhyw wall yn brydlon?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL