Πώς να μετρήσετε γράμματα και ψηφία χρησιμοποιώντας μια μακροεντολή
Μπορείτε να χρησιμοποιήσετε τη λειτουργία "Επεξεργασία - Εύρεση" για να αναζητήσετε συγκεκριμένα κείμενα, αριθμούς, γράμματα και ακολουθίες αριθμών. Μπορείτε επίσης να χρησιμοποιήσετε μια μακροεντολή για να αναζητήσετε χαρακτήρες στους πίνακές σας.
Η ακόλουθη μακροεντολή ερωτά τον χρήστη για ένα περιεχόμενο και αναζητά αυτό το περιεχόμενο στην προηγουμένως επιλεγμένη περιοχή κελιών. Έτσι, πρώτα επιλέξτε μια περιοχή στον πίνακά σας και, στη συνέχεια, ενεργοποιήστε την ακόλουθη μακροεντολή:
Υπομέτρηση χαρακτήρων ()
Dim i As Long
Dim Position As Long
Χαμηλό σημάδι ως συμβολοσειρά
Dim Cell As Range
Dim a As String
Character = InputBox ("Ποιον χαρακτήρα θέλετε να μετρήσετε;")
i = 0
Για κάθε κελί σε επιλογή
Θέση = InStr (1, UCase (Cell.Value), UCase (Character))
Ενώ η θέση 0
i = i + 1
Position = InStr (Position + Len (Character), Cell. Value, Character)
Διευθύνω
Επόμενο κελί
a = MsgBox ("Η συμβολοσειρά" & ο χαρακτήρας & "έγινε" _
& i & "Βρέθηκαν φορές.", vbOKΜόνο, "Αποτελέσματα αναζήτησης")
Τέλος υπο
Στο πρώτο βήμα, η μακροεντολή ρωτά σε ένα παράθυρο ποιο χαρακτήρα θέλετε να αναζητήσετε στη σημειωμένη περιοχή:
Στη συνέχεια γίνεται αναζήτηση της περιοχής κελιών. Ένα παράθυρο αποτελεσμάτων σάς δείχνει πόσο συχνά βρέθηκε ο χαρακτήρας που αναζητούσατε:
Η αναζήτηση δεν έχει διάκριση πεζών-κεφαλαίων. Μπορείτε επίσης να αναζητήσετε συμβολοσειρές μεγαλύτερες από ένα γράμμα ή έναν αριθμό. Εκτός από γράμματα, μπορείτε επίσης να αναζητήσετε αριθμούς ή συνδυασμούς γραμμάτων και αριθμών.
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
