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:
- Sut i gyfrif nifer y celloedd rhwng dau werth neu ddyddiad yn Excel?
- Sut i gyfrif celloedd â thestun penodol wrth eu dewis yn Excel?
- Sut i gyfrif a yw'r gell yn cynnwys testun neu ran o destun yn Excel?
- Sut i gyfrif nifer y geiriau penodol / penodol mewn cell neu ystod o gelloedd yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!