Λειτουργία μήνα VBA | Πώς να λάβετε τον αριθμό μήνα από την ημερομηνία;

Excel VBA Μήνας

Η συνάρτηση VBA Month είναι μια ενσωματωμένη συνάρτηση που χρησιμοποιείται για να πάρει μήνα από μια ημερομηνία και η έξοδος που επιστρέφεται από αυτήν τη συνάρτηση είναι ακέραιος από 1 έως 12. Αυτή η συνάρτηση εξάγει μόνο τον αριθμό μήνα από την παρεχόμενη τιμή ημερομηνίας.

Για παράδειγμα, εάν η ημερομηνία είναι 28 Μαΐου-2019, τότε για να εξαγάγετε τον αριθμό μήνα από αυτήν την ημερομηνία, μπορούμε να χρησιμοποιήσουμε τη συνάρτηση MONTH.

Πώς να χρησιμοποιήσετε τη λειτουργία μήνα στο VBA;

Παρακάτω είναι η σύνταξη της συνάρτησης MONTH.

Πρέπει απλώς να δώσουμε την ημερομηνία από την οποία προσπαθούμε να εξαγάγουμε τον αριθμό του μήνα.

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA μήνα Excel εδώ - Πρότυπο VBA μήνα Excel

Παράδειγμα # 1

Θα δούμε πώς να γράψουμε έναν κωδικό για να εξαγάγουμε τον αριθμό του μήνα από την ημερομηνία. Θα πάρουμε την ημερομηνία ως «10 Οκτωβρίου 2019».

Βήμα 1: Ξεκινήστε τη διαδικασία μακροεντολών.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Λήξη Υπο

Βήμα 2: Ορίστε τη μεταβλητή για να διατηρήσετε την τιμή ημερομηνίας. Δεδομένου ότι αποθηκεύουμε την τιμή δεδομένων, ο τύπος δεδομένων μας πρέπει να είναι "Ημερομηνία". Δηλώστε λοιπόν τη μεταβλητή και αντιστοιχίστε τον τύπο δεδομένων ως «Ημερομηνία» στη δηλωμένη μεταβλητή.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Αχνός Ημερομηνία ως ημερομηνία λήξης Υπο

Βήμα 3: Για αυτήν τη μεταβλητή ορίστε την τιμή ημερομηνίας της 10ης Οκτωβρίου 2019.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Dim DDate As Date DDate = "10 Oct 2019" End Sub

Βήμα 4: Τώρα ορίστε τον αριθμό του μήνα για να δηλώσετε μια ακόμη μεταβλητή ως "Ακέραιος".

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Dim DDate Ημερομηνία Dim DimNum As Integer DDate = "10 Oct 2019" End Sub

Σημείωση: Ο λόγος για τον οποίο δηλώσαμε τη μεταβλητή ως ακέραιο επειδή ο αριθμός των μηνών μας λήγει μόνο στις 12 Έτσι, ο ακέραιος τύπος δεδομένων μπορεί να διατηρήσει αυτόν τον αριθμό.

Βήμα 5: Για αυτήν τη μεταβλητή, θα ανοίξουμε τη συνάρτηση MONTH.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Dim DDate Ημερομηνία Dim DimNum As Integer DDate = "10 Oct 2019" MonthNum = Month (End Sub

Βήμα 6: Μηνιαία συνάρτηση ζητώντας την «Ημερομηνία» που πρέπει να παρέχεται για να εξαγάγετε τον αριθμό του μήνα. Δεδομένου ότι έχουμε ήδη αποθηκεύσει τη στοχευμένη ημερομηνία στη μεταβλητή "Ημερομηνία" παρέχετε αυτήν τη μεταβλητή ως παράμετρο εισαγωγής για τη συνάρτηση μήνα.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub

Βήμα 7: Τώρα η συνάρτηση "Μήνας" θα επιστρέψει τον αριθμό μήνα από την παρεχόμενη ημερομηνία στη μεταβλητή "MonthNum" και τελικά θα δείξει το αποτέλεσμα σε ένα πλαίσιο μηνύματος στο VBA.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα1 () Dim DDate Ημερομηνία Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Εκτελέστε τον κωδικό και δείτε τον αριθμό μήνα στο πλαίσιο μηνύματος.

Παραγωγή:

Έτσι, ο αριθμός μήνα από την παρεχόμενη ημερομηνία είναι 10 δηλαδή Οκτώβριος μήνας.

Παράδειγμα # 2

Τώρα θα πάρουμε αναφορές κυττάρων για κωδικοποίηση. Ακολουθεί η ημερομηνία που έχουμε στο φύλλο εργασίας.

Έτσι, από την τιμή ημερομηνίας κελιού A2, πρέπει να εξαγάγουμε τον αριθμό μήνα στο κελί B2.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα 2 () Εύρος ("B2"). Τιμή = Τέλος Υπο

Ανοίξτε τη συνάρτηση MONTH και δώστε την ημερομηνία ως τιμή RANGE A2.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα 2 () Εύρος ("B2"). Τιμή = Μήνας (Εύρος ("A2")) Τέλος Υπο

Ο λόγος για τον οποίο παρέχουμε το κελί Range A2 επειδή αυτή τη φορά η ημερομηνία μας είναι στο κελί A2, οπότε το ίδιο θα είναι και η αναφορά.

Τώρα εκτελέστε τον κωδικό και λάβετε τον αριθμό μήνα από την ημερομηνία στο κελί B2.

Ορίστε ο αριθμός του μήνα στο κελί B2.

Παράδειγμα # 3

Έχουμε εξαγάγει τον μήνα για την ημερομηνία ενός κελιού, αλλά τι γίνεται αν έχουμε πολλές σειρές δεδομένων όπως η παρακάτω.

Σε αυτές τις περιπτώσεις, πρέπει να βρούμε τα κελιά και να εκτελέσουμε το έργο εξαγωγής του αριθμού μήνα από κάθε αντίστοιχη ημερομηνία.

Ο παρακάτω κώδικας θα κάνει τη δουλειά για εμάς.

Κώδικας:

 Υπο Μήνας_ Παράδειγμα3 () Dim k Όσο για k = 2 έως 12 κελιά (k, 3). Τιμή = Μήνας (κελιά (k, 2). Αξία) Επόμενο k End Sub

Αυτό που θα κάνει αυτός ο κώδικας είναι να περάσει από τις σειρές από 2 έως 12 και να εξαγάγει τον αριθμό του μήνα από τη δεύτερη στήλη και να αποθηκεύσει το αποτέλεσμα στην τρίτη στήλη.

Πράγματα που πρέπει να θυμάστε εδώ

Το MONTH είναι μια συνάρτηση φύλλου εργασίας, καθώς και μια συνάρτηση VBA.
MONTH απαιτεί έγκυρη ημερομηνία αναφοράς αλλιώς θα λάβουμε ένα μήνυμα σφάλματος.
Εάν ο αριθμός του μήνα είναι 12 τότε θα εμφανιστεί ένα μήνυμα σφάλματος.

seychellesartprojects.org