Ugrás a tartalomra

Hogyan lehet gyorsan számlálni a látható vagy szűrt cellákat csak az Excelben?

Általában az Excelben a normál képlet = COUNT (B3: B16) megszámolja az összes láthatatlan és rejtett cellák számát. De ebben az oktatóanyagban bemutatok néhány gyors módszert, amelyek segítségével a látható vagy a szűrt cellákat csak az Excelben számolhatja meg.

látható a doki szám 1

A látható cellákat csak a felhasználó által definiált funkcióval számolja

A látható cellákat csak a Kutools for Excel segítségével számolja jó ötlet3


nyíl kék jobb buborék A látható cellákat csak a felhasználó által definiált funkcióval számolja

Használat Felhasználó által definiált funkció hogy csak a látható cellákat számolja meg.

1. nyomja meg Alt + F11 gombok egyszerre, a Microsoft Visual Basic for Applications kiugrik az ablak.

2. kettyenés betétlap > Modulok, és illessze be a VBA kód alá a kiugrottba Modulok ablak.

VBA: Számolja csak a látható cellákat.

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. Ezután mentse el a kódot, és zárja be a Modulok ablakot, majd válassza ki az eredményt kiadó cellát, és írja be ezt a képletet = LÁTHATÓ (B3: B16), és nyomja meg a gombot belép kulcs az eredmény eléréséhez. Képernyőképek megtekintése:

látható a doki szám 2
doc nyíl
>látható a doki szám 3

nyíl kék jobb buborék A látható cellákat csak a Kutools for Excel segítségével számolja

Csak látható cellák számlálásához használhatja azt is Kutools az Excel számára'S LÁTHATÓ funkció gyorsan megoldható.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Jelöljön ki egy cellát, amelybe a számlálás eredményét beírja, majd kattintson a gombra Kutools > Kutools funkciók > Statisztikai és matematika > LÁTHATÓ. Lásd a képernyőképet:

látható a doki szám 4

2. Ezután a Funkció érvek párbeszédpanelen válassza ki a szűrt cellákat, amelyekbe bele szeretne számolni Referencia szövegmezőbe, és megtekintheti a párbeszédpanelen megjelenő számlálási eredményt. Lásd a képernyőképet:

látható a doki szám 5

3. Ezután kattintson OK hogy a számlálási eredmény a kiválasztott cellába kerüljön.

látható a doki szám 6

Kutools az Excel számára's Funkciók beleértve néhány hasznos képletet, például a számlálás / összeg / csak látható cellák száma, a szám / összeg sejtszínenként. gróf / összeg betűszín szerint és így tovább.Ingyenes próbaidőszak most!

látható a doki szám 6


Relatív cikkek:


A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations