Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preštejte celice s posebnim besedilom in barvo polnjenja / pisave v Excelu?

Morda je enostavno šteti število celic, ki vsebujejo le en pogoj, kot je štetje vseh celic s posebnim besedilom ali barvo pisave / polnila. Vendar, ali veste, kako prešteti celice z več pogoji? Na primer, štetje števila celic, ki vsebujejo tako določeno besedilo kot barvo pisave / polnila. Ta članek vam bo pokazal rešitev.

Številke celic s specifičnim tekstom in barvo polnjenja s kodo VBA

Številne celice s specifičnim tekstom in barvo pisave s kodo VBA


Preprosto preštejte in izberite celice s posebnim besedilom v razponu:

Z orodjem Select Specific Cells v programu Kutools for Excel lahko hitro izberete in izberete celice, ki vsebujejo določeno besedilo v razponu. Prikaz slike:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Številke celic s specifičnim tekstom in barvo polnjenja s kodo VBA


Če menite, da imate prikazano tabelo pod prikazom zaslona, ​​za štetje celic v stolpcu B, ki temelji na besedilu in barvo polnila celice E2, uporabite naslednjo kodo VBA.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato pa kopirajte pod kodo VBA v okno Modul.

VBA koda: šteti celice s specifičnim besedilom in barvo polnjenja

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

Opombe: V kodi B2: B9 je obseg, v katerem boste vštevali celice, E2 vsebuje besedilo in barvo polnila, na katerih boste upoštevali celice. Lahko jih spremenite v svoje potrebe.

3. Pritisnite F5 ključ za zagon kode, potem a Kutools za Excel pogovorno okno se pojavi, prosimo, izberite celico, da dodate rezultat in nato kliknite OK gumb. Prikaz slike:

Nato se šteje rezultat v izbrani celici takoj.


Številne celice s specifičnim tekstom in barvo pisave s kodo VBA

Za štetje celic v območju B2: B9, ki temelji na besedilu in barvi pisave celice E2, storite na naslednji način.

1. Odprite Microsoft Visual Basic za aplikacije okno s pritiskom na druga + F11 ključi.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato pa kopirajte pod kodo VBA v okno Modul.

VBA koda: Številke celic s specifičnim tekstom in barvo pisave

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

Opombe: V kodi B2: B9 je obseg, v katerem boste vštevali celice, E2 je merilo, na katerega boste upoštevali celice. Če jih potrebujete, jih lahko spremenite.

3. Pritisnite F5 ključ za zagon kode, potem a Kutools za Excel pogovorno okno se pojavi, prosimo, izberite celico, da dodate rezultat in nato kliknite OK gumb. Prikaz slike:

Rezultat bo prikazan spodaj:


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.