Conas cealla a chomhaireamh le téacs ar leith agus dath líonta / cló in Excel?
B’fhéidir go mbeadh sé éasca duit líon na gcealla nach bhfuil iontu ach coinníoll amháin a chomhaireamh, mar shampla gach cealla a chomhaireamh le téacs ar leith nó le cló / dath líonta. An bhfuil a fhios agat, áfach, conas cealla a chomhaireamh le riochtaí iolracha? Mar shampla, líon na gcealla a bhfuil téacs sonrach agus dath cló / líonta iontu a chomhaireamh. Taispeánfaidh an t-alt seo an réiteach duit.
Déan cealla a chomhaireamh le téacs ar leith agus dath a líonadh le cód VBA
Comhairigh cealla le téacs sonrach agus dath cló le cód VBA
Déan cealla a chomhaireamh le téacs ar leith agus dath a líonadh le cód VBA
Má cheaptar go bhfuil tábla agat mar a thaispeántar thíos, chun cealla i gcolún B a chomhaireamh bunaithe ar an téacs agus dath cille E2 a líonadh, cuir an cód VBA seo a leanas i bhfeidhm.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.
Cód VBA: Déan cealla a chomhaireamh le téacs ar leith agus dath a líonadh
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
nótaí: Sa chód, B2: B9 an raon a chomhaireamh tú cealla istigh, tá an téacs in E2 agus líonfaidh tú an dath a chomhaireamh tú cealla bunaithe air. Is féidir leat iad a athrú de réir do riachtanas.
3. Brúigh an F5 eochair chun an cód a rith, ansin a Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh cill le do thoil chun an toradh a chur agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
Ansin tá toradh an chomhairimh á thaispeáint sa chill roghnaithe láithreach.
Comhairigh cealla le téacs sonrach agus dath cló le cód VBA
Maidir le cealla a chomhaireamh i raon B2: B9 bunaithe ar théacs agus ar chló-dath chill E2, déan mar a leanas le do thoil.
1. oscail an Microsoft Visual Basic d’Fheidhmchláir fuinneog trí bhrú ar an Eile + F11 eochracha.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.
Cód VBA: Líon cealla le téacs sonrach agus dath cló
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
nótaí: Sa chód, B2: B9 an raon a chomhaireamh tú cealla istigh, is é E2 na critéir a ndéanfaidh tú cealla a chomhaireamh bunaithe orthu. Is féidir leat iad a athrú de réir mar is gá duit.
3. Brúigh an F5 eochair chun an cód a rith, ansin a Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh cill le do thoil chun an toradh a chur agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
Gheobhaidh tú an toradh mar a thaispeántar thíos ar an scáileán:
Earraí gaolmhara:
- Conas líon na gcealla a chomhaireamh idir dhá luach nó dáta in Excel?
- Conas cealla le téacs sonrach a chomhaireamh i roghnú in Excel?
- Conas a chomhaireamh an bhfuil téacs nó cuid de théacs in Excel sa chill?
- Conas líon na bhfocal áirithe / sonrach a chomhaireamh i gcill nó i raon cealla in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!