Πώς να απαριθμήσετε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών στο Excel;
Σε ορισμένες περιπτώσεις, εάν έχετε τη συγκεκριμένη ημερομηνία έναρξης και την ημερομηνία λήξης, ίσως χρειαστεί να αναφέρετε όλες τις ημερομηνίες μεταξύ αυτών των δύο δεδομένων ημερομηνιών στο Excel. Τώρα αυτό το σεμινάριο μιλάει για τις μεθόδους για να απαριθμήσετε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών στο Excel.
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών ανά τύπο
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών κατά VBA
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών από το Kutools για Excel 
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών ανά τύπο
Εδώ παρουσιάζω τύπους που μπορούν να απαριθμήσουν γρήγορα όλες τις ημερομηνίες μεταξύ δύο δεδομένων ημερομηνιών για εσάς στο Excel.
1. Πληκτρολογήστε τις ημερομηνίες έναρξης και λήξης σε δύο κελιά, εδώ τις πληκτρολογώ σε κελιά A1 και A2. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, μεταβείτε στο κελί C1 για να πληκτρολογήσετε αυτόν τον τύπο = Α1 + 1 σε αυτό και, στη συνέχεια, κάντε κλικ εισάγετε κλειδί. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, στο κελί C2, πληκτρολογήστε αυτόν τον τύπο =IF($A$1+ROW(A1)>=$A$2-1,"",C1+1) σε αυτήν και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω μέχρι να εμφανιστεί ένα κενό κελί. Δείτε στιγμιότυπα οθόνης:
Στη συνέχεια, μπορείτε να δείτε όλες τις ημερομηνίες μεταξύ δύο δεδομένων ημερομηνιών παρατίθενται στη στήλη.
Σημείωση:
Στους παραπάνω τύπους, το A1 είναι η ημερομηνία έναρξης, το A2 είναι η ημερομηνία λήξης και το C1 είναι η πρώτη ημερομηνία μεταξύ του εύρους ημερομηνιών.
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών κατά VBA
Εάν ενδιαφέρεστε για τον κώδικα μακροεντολών, μπορείτε να χρησιμοποιήσετε το παρακάτω VBA για να απαριθμήσετε όλες τις ημερομηνίες μεταξύ δύο δεδομένων ημερομηνιών στο Excel.
1. Πληκτρολογήστε την ημερομηνία έναρξης και λήξης σε δύο κελιά, εδώ πληκτρολογώ τα κελιά A1 και B1. Δείτε το στιγμιότυπο οθόνης:
2. Τύπος Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο αναδυόμενο παράθυρο Μονάδα μέτρησης παράθυρο.
VBA: Λίστα όλων των ημερομηνιών μεταξύ δύο ημερομηνιών.
Sub WriteDates()
'Updateby20150305
Dim rng As Range
Dim StartRng As Range
Dim EndRng As Range
Dim OutRng As Range
Dim StartValue As Variant
Dim EndValue As Variant
xTitleId = "KutoolsforExcel"
Set StartRng = Application.Selection
Set StartRng = Application.InputBox("Start Range (single cell):", xTitleId, StartRng.Address, Type: = 8)
Set EndRng = Application.InputBox("End Range (single cell):", xTitleId, Type: = 8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set OutRng = OutRng.Range("A1")
StartValue = StartRng.Range("A1").Value
EndValue = EndRng.Range("A1").Value
If EndValue - StartValue <= 0 Then
Exit Sub
End If
ColIndex = 0
For i = StartValue To EndValue
OutRng.Offset(ColIndex, 0) = i
ColIndex = ColIndex + 1
Next
End Sub4. κλικ τρέξιμο or F5 για να εκτελέσετε το VBA και εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε την ημερομηνία έναρξης και, στη συνέχεια, κάντε κλικ στο OKκαι, στη συνέχεια, επιλέξτε την ημερομηνία λήξης στο δεύτερο αναδυόμενο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OKκαι, στη συνέχεια, επιλέξτε ένα κελί για να σβήσετε τις ημερομηνίες και, στη συνέχεια, κάντε κλικ στο OK. Τώρα μπορείτε να δείτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών που παρατίθενται. Δείτε στιγμιότυπα οθόνης:
Note: Η λίστα που δημιουργείται από αυτό το VBA περιλαμβάνει την ημερομηνία έναρξης και την ημερομηνία λήξης.
Καταγράψτε όλες τις ημερομηνίες μεταξύ δύο ημερομηνιών από το Kutools για Excel
Στην πραγματικότητα, εάν εγκαταστήσατε Kutools για Excel - ένα εύχρηστο εργαλείο προσθήκης, μπορείτε επίσης να χρησιμοποιήσετε το Εισαγωγή τυχαίων δεδομένων για να λύσει αυτό το πρόβλημα.
| Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες Excel, βελτιώστε την αποδοτικότητα εργασίας σας και εξοικονομήστε χρόνο εργασίας σας. | ||
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Επιλέξτε μια στήλη που θέλετε να αναφέρετε ημερομηνίες μεταξύ δύο ημερομηνιών και κάντε κλικ στο Kutools > Κύριο θέμα > Εισαγωγή τυχαίων δεδομένων. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, στο Εισαγωγή τυχαίων δεδομένων κάντε κλικ στο πλαίσιο διαλόγου Ημερομηνία και στη συνέχεια επιλέξτε τις ημερομηνίες έναρξης και λήξης από το Από και To λίστα, στη συνέχεια θυμηθείτε να ελέγξετε Ημέρα εργασίας, Σαββατοκύριακο και Μοναδικές τιμές πλαίσια ελέγχου. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Ok για να κλείσετε το παράθυρο διαλόγου και άλλο Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, απλώς κάντε κλικ Ναι. Στη συνέχεια, μπορείτε να δείτε τις ημερομηνίες μεταξύ της ημερομηνίας έναρξης και της ημερομηνίας λήξης. Δείτε στιγμιότυπα οθόνης:
4. Τώρα πρέπει να ταξινομήσετε τη λίστα ημερομηνιών με τη σειρά που χρειάζεστε. Κάντε κλικ ημερομηνία > Ταξινόμηση παλαιότερων έως νεότερων. Στη συνέχεια, μπορείτε να δείτε τις ημερομηνίες ταξινομημένες από την παλαιότερη έως την πιο πρόσφατη ημερομηνία. Δείτε στιγμιότυπα οθόνης:
Με Εισαγωγή τυχαίων δεδομένων βοηθητικό πρόγραμμα, μπορείτε επίσης να εισαγάγετε τυχαίο ακέραιο, τυχαία συμβολοσειρά και τυχαίο χρόνο κ.ο.κ. Κάντε κλικ εδώ για να μάθετε περισσότερα σχετικά με την εισαγωγή τυχαίων δεδομένων.
Λίστα όλων των ημερομηνιών μεταξύ δύο ημερομηνιών
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
