Συχνά καθίσταται απαραίτητη η μετατροπή ενός εύρους ημερομηνιών και ωρών σε ημερομηνίες μόνο. Μπορούμε να χρησιμοποιήσουμε το Excel VBA για να μετατρέψουμε ημερομηνία και ώρα σε ημερομηνία μόνο. Αυτό το άρθρο δείχνει πώς να το κάνετε αυτό με τον απλούστερο τρόπο. Η παρακάτω εικόνα δίνει μια ιδέα του σκοπού αυτού του άρθρου.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από το παρακάτω κουμπί λήψης.

Excel VBA για τη μετατροπή ημερομηνίας και ώρας σε ημερομηνία μόνο

Φανταστείτε ότι έχετε το ακόλουθο σύνολο δεδομένων με ημερομηνίες και ώρες σε στήλη Β .

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

Εδώ, τα ακέραια μέρη των αριθμών αντιπροσωπεύουν ημερομηνίες και τα δεκαδικά κλάσματα αντιπροσωπεύουν χρόνους.

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

📌 Βήματα

• Στην αρχή, μπορεί να πατήσετε CTRL+Z για να επιστρέψετε στη μορφή ημερομηνίας και ώρας.
• Στη συνέχεια, πατήστε ALT+F11 στα Windows και Opt+F11 σε Mac για να ανοίξετε Microsoft Visual Basic για εφαρμογές Μπορείτε επίσης να το κάνετε αυτό από το Προγραμματιστής καρτέλα.
• Τώρα, εισάγετε μια νέα ενότητα επιλέγοντας Εισαγωγή>> Ενότητα .

• Μετά από αυτό, αντιγράψτε τον ακόλουθο κώδικα.

 Sub DateTimeToDateOnly() Dim Dataset, j As Long Range("B5:B17").Copy Range("C5:C17") Dataset = Range("C5:C17") For j = 5 To 17 With Range("C" & j) .NumberFormat = "mm-dd-yy" .Value = DateValue(.Value) End With Next j End Sub 

• Στη συνέχεια επικολλήστε το αντιγραμμένο στην κενή ενότητα ως εξής.

• Στη συνέχεια, εκτελέστε τον κώδικα κάνοντας κλικ στο κουμπί Εκτέλεση ή από το κουμπί Εκτέλεση

• Στη συνέχεια, οι ημερομηνίες και οι ώρες θα μετατραπούν μόνο σε ημερομηνίες, όπως φαίνεται παρακάτω.

Τώρα, επιλέξτε ολόκληρο το εύρος των ημερομηνιών και των ωρών και τις μετατρεπόμενες ημερομηνίες. Στη συνέχεια, αλλάξτε τη μορφή αριθμού σε Γενικά Θα δείτε ότι οι ημερομηνίες που έχουν μετατραπεί περιέχουν μόνο ακέραιους αριθμούς. Αυτό επαληθεύει ότι οι ημερομηνίες και οι ώρες έχουν μετατραπεί σωστά σε ημερομηνίες μόνο.

Σχετικό περιεχόμενο: Πώς να μετατρέψετε ημερομηνία και ώρα κειμένου σε μορφή ημερομηνίας στο Excel (7 εύκολοι τρόποι)

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

• Πρέπει να αλλάξετε τα ορίσματα εύρους στον κώδικα σύμφωνα με το δικό σας σύνολο δεδομένων.
• Μπορείτε να αλλάξετε το mm-dd-yy μορφή στον κώδικα στο επιθυμητό σας μορφή ημερομηνίας .

Συμπέρασμα

Τώρα, ξέρετε πώς να χρησιμοποιείτε το Excel VBA για να μετατροπή ημερομηνίας και ώρας σε ημερομηνία Εάν έχετε περαιτέρω ερωτήσεις ή προτάσεις, παρακαλούμε χρησιμοποιήστε την παρακάτω ενότητα σχολίων. Μπορείτε επίσης να επισκεφθείτε το τμήμα μας Exceldemy blog για να μάθετε περισσότερα για το excel και να βελτιώσετε την απόδοσή σας.