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 Subnó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 Subnó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?
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
