Preskoči na glavno vsebino

Kako hitro prešteti vidne ali filtrirane celice samo v Excelu?

Običajno v Excelu običajna formula = COUNT (B3: B16) šteje število vseh nevidnih in skritih celic. Toda v tej vadnici vam bom predstavil nekaj hitrih načinov, s katerimi boste lahko šteli vidne ali filtrirane celice samo v Excelu.

število dokumentov vidno 1

Štejte vidne celice samo z uporabniško določeno funkcijo

Štejte vidne celice samo z Kutools za Excel dobra ideja3

puščica modri desni mehurček Štejte vidne celice samo z uporabniško določeno funkcijo

Uporaba Uporabniško določena funkcija šteti samo vidne celice.

1. Pritisnite Alt + F11 tipke hkrati, a Microsoft Visual Basic za aplikacije se odpre okno.

2. klik Vstavi > Moduliin prilepite pod kodo VBA v izpuščeno Moduli okno.

VBA: Štejte samo vidne celice.

Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
    Dim xCount As Long
    Dim xCell As Range
    Application.Volatile
    For Each xCell In Rg
        If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
            xCount = xCount + 1
        End If
    Next
    COUNTVISIBLE = xCount
End Function

3. Nato shranite kodo in zaprite Moduli okno in nato izberite celico, ki izpiše rezultat, in vnesite to formulo = PREGLEDNO (B3: B16), in pritisnite Vnesite ključ, da dobite rezultat. Oglejte si posnetke zaslona:

število dokumentov vidno 2
puščica doc
>število dokumentov vidno 3

puščica modri desni mehurček Štejte vidne celice samo z Kutools za Excel

Za štetje samo vidnih celic lahko tudi uporabite Kutools za ExcelJe PREGLEDNO funkcija za hitro reševanje.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 
Brezplačen prenos
Brezplačna funkcija v 30 dneh

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite celico, v katero bo vstavljen rezultat štetja, in kliknite Kutools > Kutools funkcije > Statistični in matematika > PREGLEDNO. Oglejte si posnetek zaslona:

število dokumentov vidno 4

2. Nato v Argumenti funkcije v pogovornem oknu izberite filtrirane celice, v katere želite šteti Reference besedilno polje in si lahko ogledate, če je bil rezultat štetja prikazan v pogovornem oknu. Oglejte si posnetek zaslona:

število dokumentov vidno 5

3. In nato kliknite OK če želite rezultat štetja postaviti v izbrano celico.

število dokumentov vidno 6

Kutools za Excel's funkcije vključno z nekaterimi uporabnimi formulami, kot so štetje / vsota / povprečno vidne celice, štetje / vsota glede na barvo celice. štetje / vsota po barvi pisave itd.Pridobite brezplačno preskusno različico zdaj!

število dokumentov vidno 6

Relativni članki:

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup  |   Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule   |  Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic   |  Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij:  12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (1)
No ratings yet. Be the first to rate!
DIogo
DIogo
This comment was minimized by the moderator on the site
Hi,

I would suggest the add in the code if the person doesn't want to select the range, and it is fixe.

Set xCell = Range("F:F") ' range exemplo in the sheet

And (Not xCell.Value = 0)


The entire code will be like:


Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
Dim xCount As Long
Dim xCell As Range
Application.Volatile

Set xCell = Range("F:F") ' range exemplo in the sheet




For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) And (Not xCell.Value = 0) Then
xCount = xCount + 1
End If
Next
COUNTVISIBLE = xCount



End Function
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations