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

Πώς να μετρήσετε γρήγορα ορατά ή φιλτραρισμένα κελιά μόνο στο Excel;

Γενικά, στο Excel, ο κανονικός τύπος = COUNT (B3: B16) θα μετρήσει τον αριθμό όλων των αόρατων κελιών και των κρυφών κελιών. Αλλά σε αυτό το σεμινάριο, θα παρουσιάσω μερικούς γρήγορους τρόπους για να σας βοηθήσω να μετρήσετε τα ορατά ή φιλτραρισμένα κελιά μόνο στο Excel.

αριθμός εγγράφων ορατό 1

Μετρήστε τα ορατά κελιά μόνο με τη λειτουργία που καθορίζεται από το χρήστη

Μετρήστε τα ορατά κελιά μόνο με το Kutools για Excel καλή ιδέα3


βέλος μπλε δεξιά φούσκα Μετρήστε τα ορατά κελιά μόνο με τη λειτουργία που καθορίζεται από το χρήστη

Χρήση Λειτουργία καθορισμένη από τον χρήστη για να μετρήσετε μόνο τα ορατά κελιά.

1. Τύπος Alt + F11 ταυτόχρονα πλήκτρα, α Microsoft Visual Basic για εφαρμογές αναδύεται το παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε κάτω από τον κώδικα VBA στο αναδυόμενο Μονάδα μέτρησης παράθυρο.

VBA: Μετρήστε μόνο ορατά κελιά.

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. Στη συνέχεια, αποθηκεύστε τον κωδικό και κλείστε το Μονάδα μέτρησης παράθυρο και, στη συνέχεια, επιλέξτε ένα κελί που εξέρχεται αποτέλεσμα και πληκτρολογήστε αυτόν τον τύπο = ΔΙΑΤΡΟΦΙΚΟ (B3: B16), και πατήστε το εισάγετε κλειδί για να λάβετε το αποτέλεσμα. Δείτε στιγμιότυπα οθόνης:

αριθμός εγγράφων ορατό 2
βέλος εγγράφου
>αριθμός εγγράφων ορατό 3

βέλος μπλε δεξιά φούσκα Μετρήστε τα ορατά κελιά μόνο με το Kutools για Excel

Για να μετρήσετε μόνο τα ορατά κελιά, μπορείτε επίσης να χρησιμοποιήσετε Kutools για Excel'S ΔΙΑΘΕΣΙΜΟΤΗΤΑ λειτουργία για να το λύσει γρήγορα.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε ένα κελί στο οποίο θα τεθεί το αποτέλεσμα καταμέτρησης και κάντε κλικ στο Kutools > Λειτουργίες Kutools > Στατιστική & Μαθηματικά > ΔΙΑΘΕΣΙΜΟΤΗΤΑ. Δείτε το στιγμιότυπο οθόνης:

αριθμός εγγράφων ορατό 4

2. Στη συνέχεια, στο Επιχειρήματα Λειτουργίας διαλόγου, επιλέξτε τα φιλτραρισμένα κελιά που θέλετε να μετρήσετε στο Αναφορά πλαίσιο κειμένου και μπορείτε να κάνετε προεπισκόπηση του αποτελέσματος καταμέτρησης που εμφανίζεται στο διάλογο. Δείτε το στιγμιότυπο οθόνης:

αριθμός εγγράφων ορατό 5

3. Και μετά κάντε κλικ στο OK για να βάλετε το αποτέλεσμα μέτρησης στο επιλεγμένο κελί.

αριθμός εγγράφων ορατό 6

Kutools για Excel's Συναρτήσεις συμπεριλαμβανομένων ορισμένων χρήσιμων τύπων, όπως πλήθος / άθροισμα / μέσος όρος ορατών κελιών, μέτρηση / άθροισμα ανά χρώμα κελιού. μέτρηση / άθροισμα με χρώμα γραμματοσειράς και ούτω καθεξής.Για δωρεάν δοκιμή τώρα!

αριθμός εγγράφων ορατό 6


Σχετικά άρθρα:



Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (1)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

Θα πρότεινα την προσθήκη στον κώδικα, εάν το άτομο δεν θέλει να επιλέξει το εύρος, και διορθώνεται.

Ορίστε xCell = Range("F:F") 'παράδειγμα εύρους στο φύλλο

Και (Όχι xCell.Value = 0)


Ολόκληρος ο κώδικας θα είναι σαν:


Συνάρτηση COUNTVISIBLE(Rg)
«Ενημέρωση με KutoolsforExcel20151208
Dim xCount As Long
Dim xCell ως εύρος
Εφαρμογή

Ορίστε xCell = Range("F:F") 'παράδειγμα εύρους στο φύλλο




Για κάθε xCell σε Rg
Αν (Όχι xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Και (Όχι xCell.Value = 0) Τότε
xCount = xCount + 1
End If
Επόμενο
COUNTVISIBLE = xCount



Τέλος Λειτουργία
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL