Σε αυτό το άρθρο θα μάθουμε πώς να διαμορφώνουμε την ημερομηνία μέσω VBA.
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε πώς και πού μπορούμε να μορφοποιήσουμε το κελί σε σύντομο αριθμό ημερομηνίας.
Έχουμε τα δεδομένα ποσότητας προϊόντος στην περιοχή A1: C9 στην οποία η στήλη A περιέχει όνομα προϊόντος και η στήλη B περιέχει το ποσό της και η στήλη C περιέχει την ημερομηνία. Τώρα, θέλουμε να μετατρέψουμε σε μορφή σύντομης ημερομηνίας.
Για να γράψετε τη μακροεντολή, ακολουθήστε τα παρακάτω βήματα:-
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11.
- Εισαγάγετε μια ενότητα.
- Γράψτε τον παρακάτω κωδικό:
Sub FormatShortdate ()
Dim Sh As φύλλο εργασίας
Ορίστε Sh = ThisWorkbook. Φύλλα (1)
Sh.Range ("C2: C9"). NumberFormat = "m/d/yyyy"
Τέλος υπο
Επεξήγηση κώδικα:-
Αρχικά, δώσαμε το θέμα για τον κώδικα, στη συνέχεια είχαμε ορίσει όλες τις μεταβλητές, αφού είχαμε ορίσει το εύρος όπου θέλουμε να βάλουμε τη μορφή σύντομης ημερομηνίας.
Για να εκτελέσετε τη μακροεντολή, πατήστε το πλήκτρο F5 και η μορφή εύρους θα αλλάξει σε μορφή σύντομης ημερομηνίας.
Ας πάρουμε ένα παράδειγμα από το www.excelforum.com
Macro/VBA για αλλαγή μορφής ημερομηνίας από 01.01.2011 σε 01/01/2011
Αρχική ερώτηση:-
Έχω ένα ερώτημα ιστού Excel που μεταφέρει έναν πίνακα στο Excel. Η στήλη Α είναι βασικά μια λίστα με ονόματα και η στήλη Β είναι η σχετική ημερομηνία. Οι ημερομηνίες παρατίθενται στον ιστότοπο ως μορφή 01.01.2011 και στη συνέχεια εισάγονται στο Excel με αυτόν τον τρόπο. Ως αποτέλεσμα, δεν μπορώ να ταξινομήσω τη στήλη Β κατά ημερομηνία, καθώς το Excel δεν αναγνωρίζει τη μορφή. Δοκίμασα να αλλάξω τις ιδιότητες της ημερομηνίας, χρησιμοποιώντας την εύρεση & αντικατάσταση για να την αλλάξω σε μορφή 01/01/2011 και στη συνέχεια να αλλάξω όλες τις ιδιότητες χωρίς αποτέλεσμα.
Ιδανικά θα ήθελα να αλλάξει κάποιος κωδικός Macro/VBA σε 01.01.2011 σε μορφή 01/01/2011, ώστε να μπορώ να ταξινομήσω τη στήλη.
Για να μάθετε για τη λύση, κάντε κλικ στο σύνδεσμο
Λήψη - Μορφή σύντομης ημερομηνίας VBA - xlsm