Skip i'r prif gynnwys

Sut i gyfrif / crynhoi celloedd yn ôl lliwiau gyda fformatio amodol yn Excel?

Yn Excel, gallwch liwio rhai celloedd trwy ddefnyddio fformatio amodol. Nawr bydd y tiwtorial hwn yn dweud wrthych rai dulliau defnyddiol a hawdd i gyfrif neu grynhoi'r celloedd yn ôl lliw gyda fformatio amodol yn Excel.

Cyfrif celloedd yn ôl lliw ffont a chefndir yn ôl VBA

Celloedd cyfrif / swm yn ôl lliw ffont gyda fformatio amodol gan Kutools ar gyfer Excel syniad da3      chwarae

Celloedd cyfrif / swm yn ôl lliw cefndir gyda fformatio amodol gan Kutools ar gyfer Excel syniad da3      chwarae


swigen dde glas saeth Cyfrif celloedd yn ôl ffont a lliw cefndir yn ôl VBA

Yn Excel, dim ond cod VBA all gyfrif celloedd yn gyflym yn seiliedig ar ffont penodol a lliw cefndir.

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

2. Cliciwch Mewnosod > Modiwlau a chopïo a gludo islaw cod VBA i'r popping Modiwlau ffenestr.

VBA: Cyfrif celloedd yn seiliedig ar ffont a lliw cefndir.

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3. Cliciwch Run botwm neu wasg F5 allwedd i redeg y cod, yna dewiswch yr ystod sydd ei hangen arnoch yn y dialog popping. Gweler y screenshot:
doc-cyfrif-wrth-amodol-lliw-1

4. Cliciwch OK, yna dewiswch gell y mae ei ffont a'i lliw cefndir rydych chi am gyfrif y celloedd yn seiliedig arni. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-2

5. Cliciwch OK. Yna mae deialog yn galw allan i ddweud wrthych faint o gelloedd sydd â'r un lliw cefndir a lliw ffont â'r gell a ddewiswyd yn yr ystod.

doc-cyfrif-wrth-amodol-lliw-3


swigen dde glas saeth Celloedd cyfrif / swm yn ôl lliw ffont gyda fformatio amodol gan Kutools ar gyfer Excel

Yn Excel, ni allwch gyfrif na chrynhoi'r celloedd yn ôl lliw ffont gyda fformatio amodol yn unig. Fodd bynnag, mae yna ychwanegiad defnyddiol o'r enw Kutools ar gyfer Excel gall hynny eich helpu i ddatrys y broblem hon yn gyflym Cyfrif yn ôl Lliw nodwedd.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch ystod rydych chi am ei chyfrif neu ei symio yn ôl lliw ffont gyda fformatio amodol, yna cliciwch Kutools Byd Gwaith> Cyfrif yn ôl Lliw. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-4

2. Yna yn y Cyfrif yn ôl Lliw deialog, dewiswch Fformatio Amodol dan Dull lliw rhestr a Ffont dan Math o Lliw rhestr. Yna gallwch weld canlyniad cyfrif a chrynhoi yn y dialog. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-5

Nodyn: Os ydych chi am allbwn y canlyniad cyfrifo fel adroddiad, gallwch glicio Cynhyrchu adroddiad in y Cyfrif yn ôl Lliw deialog, yna bydd adroddiad yn cael ei gynnwys mewn llyfr gwaith newydd. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-6      doc-cyfrif-wrth-amodol-lliw-7


Celloedd cyfrif / swm yn ôl lliw cefndir gyda fformatio amodol gan Kutools ar gyfer Excel

Os ydych chi am gyfrif neu symio celloedd yn ôl lliw cefndir gyda fformatio amodol, gallwch hefyd wneud cais Cyfrif yn ôl Lliw cyfleustodau Kutools ar gyfer Excel.

1. Dewiswch ystod rydych chi am ei chyfrif neu symio celloedd yn ôl lliw cefndir gyda fformatio amodol, yna cliciwch Kutools Byd Gwaith > Cyfrif yn ôl Lliw.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

2. Yna yn y Cyfrif yn ôl Lliw deialog, dewiswch Fformatio Amodol dan Dull lliw rhestr a Cefndir dan Math o Lliw rhestr. Yna gallwch weld canlyniad cyfrif a chrynhoi yn y dialog. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-8

Nodyn: Os ydych chi am allbwn y canlyniad cyfrifo fel adroddiad, gallwch glicio Cynhyrchu adroddiad yn y Cyfrif yn ôl Lliw deialog, yna bydd adroddiad yn cael ei gynnwys mewn llyfr gwaith newydd. Gweler y screenshot:

doc-cyfrif-wrth-amodol-lliw-9

Cliciwch yma i gael mwy o wybodaeth ar Count by Colour.

Awgrym.Gyda Cyfrif yn ôl Lliw cyfleustodau, gallwch hefyd gyfrif / swm / cyfartaledd y celloedd yn ôl lliw cefndir neu liw ffont gyda fformatio safonol yn unig neu'r ddau o fformat safonol ac amodol. Os ydych chi am wneud cais Cyfrif yn ôl Lliw heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.


swigen dde glas saeth Cyfrifwch gelloedd yn ôl lliw ffont neu liw cefndir


Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
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...

Disgrifiad


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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

This is a great piece of VBA and works perfectly. Are you able to modify this code to make it a function and then be used as a formula?

e.g.
=DisplayFormatCount(A14:E14,A2,False) for counting background colour (Count Range, Colour Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) for counting font colour

I would like to you something like this for an input form of many tables and validation fields that are compulsory. I would then be able to count how many fields that have not been completed correctly.


Cheers
This comment was minimized by the moderator on the site
Could you please teach me VBA codes I would like to learn VBA using excel sheet
This comment was minimized by the moderator on the site
Chào bạn.

VBA đếm ô màu rất hay, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉ định được không? thêm cả hàm sum, average nữa thì càng tốt :D . Mail của mình là . Mình cám ơn.
This comment was minimized by the moderator on the site
Hi,
How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


Thanks.
This comment was minimized by the moderator on the site
Sorry I have no idea about the VBA code.
This comment was minimized by the moderator on the site
May I congratulate you on a most easily understood and well written VBA program to perform such a simple task - i.e., count the number of cells with a specific color derived from Conditional Formatting. It beats the pants of the monster program by Pearson, and his does not even work, at least in Excel 2013. Nor do other supposed counting programs work that I have tried. Yours is the only one!! This worked perfectly. Thank you, thank you, thank you. Best Holiday Wishes, Mort in Dallas
This comment was minimized by the moderator on the site
hi


kindly send the above VBA code same code is I need please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations