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

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:


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (2)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá sé probado la función cuente celdas con texto específico and color 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 agus tengo que comprar
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Nando,
Cuirtear na cóid VBA ar fáil saor in aisce. Cén leagan Excel atá á úsáid agat? An bhfuil aon leid earráide?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL