Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που μετράει τον αριθμό των γεγονότα του έτους.
Κατάσταση:
Σημείωση: Οι ημερομηνίες είναι σε μορφή ΗΠΑ. Μήνες πρώτοι, μέρες δεύτεροι. Αυτός ο τύπος μορφής εξαρτάται από τις τοπικές ρυθμίσεις των Windows.
1. Αρχικά, δηλώνουμε τρεις μεταβλητές τύπου Ακέραιος. Μία μεταβλητή που ονομάζουμε yearCount, μία μεταβλητή ονομάζουμε yearAsk και μία μεταβλητή ονομάζουμε i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Αρχικοποιούμε το yearCount με την τιμή 0 και το yearAsk με την τιμή του κελιού C4.
yearCount = 0
yearAsk = Εύρος ("C4"). Τιμή
3. Ξεκινάμε ένα βρόχο For Next.
Για i = 1 έως 16
4. Τώρα ελέγχουμε κάθε ημερομηνία και μόνο εάν το έτος της ημερομηνίας ισούται με το έτος που έχει εισαχθεί στο κελί C4, αυξάνουμε το έτοςCount κατά 1. Χρησιμοποιούμε τη συνάρτηση Έτος για να λάβουμε το έτος μιας ημερομηνίας.
Αν έτος (Κελιά (i, 1). Αξία) = έτοςΑρώτηση Τότε
yearCount = yearCount + 1
Τέλος εαν
5. Μην ξεχάσετε να κλείσετε το βρόχο.
Επόμενο i
6. Τέλος, εμφανίζουμε τις συνολικές εμφανίσεις του έτους. Χρησιμοποιούμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) δύο συμβολοσειρές.
MsgBox yearCount & "εμφανίσεις σε έτος" & yearAsk
7. Τοποθετήστε τη μακροεντολή σας σε ένα κουμπί εντολών και δοκιμάστε την.
Αποτέλεσμα:
Σημείωση: επειδή δημιουργήσαμε μεταβλητή yearAsk, μπορείτε απλά να μετρήσετε τον αριθμό των εμφανίσεων έτους ενός άλλου έτους, εισάγοντας ένα άλλο έτος στο κελί C4 και κάνοντας ξανά κλικ στο κουμπί εντολών.
