Σε αυτό το άρθρο, θα μάθουμε πώς να κάνουμε ημερομηνία μορφής Excel VBA σε μεγάλη ημερομηνία.
Για παράδειγμα: - Μορφή (#29/03/2015#, "Long Date") θα επιστρέψει "29 Μαρτίου 2015;
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε:-
Έχουμε τα δεδομένα ποσότητας προϊόντος στην περιοχή A1: C9 στην οποία η στήλη A περιέχει όνομα προϊόντος και η στήλη B περιέχει το ποσό της και η στήλη C περιέχει την ημερομηνία. Τώρα, θέλουμε να μετατρέψουμε σε ημερομηνία μεγάλου αριθμού καθώς αυτή η μορφή θα εμφανίζει την ημέρα της εβδομάδας, τον μήνα, την ημέρα του μήνα και το έτος.
Γράφουμε τη μακροεντολή για αλλαγή σε μορφή ημερομηνίας VBA. Θα πρέπει να ακολουθήσουμε τα παρακάτω βήματα:-
- Ανοίξτε τη σελίδα VBA και πατήστε το πλήκτρο Alt+F11.
- Εισαγάγετε μια ενότητα.
- Γράψτε τον παρακάτω κωδικό:
Sub Formatlongdate ()
Dim Sh As φύλλο εργασίας
Ορίστε Sh = ThisWorkbook. Φύλλα (1)
Sh.Range ("C2: C9"). NumberFormat = "[$ -F800] ηη ηη, μμμμμ, εεεε"
Τέλος υπο
Επεξήγηση κώδικα:-
Αρχικά, δώσαμε το θέμα για τον κώδικα, στη συνέχεια είχαμε ορίσει όλες τις μεταβλητές, αφού είχαμε ορίσει το εύρος στο οποίο θέλουμε να βάλουμε τη μορφή μεγάλης ημερομηνίας.
Για να εκτελέσετε τη μακροεντολή, πατήστε το πλήκτρο F5 και η μορφή εύρους θα αλλάξει την ημερομηνία σε αριθμό μεγάλης μορφής.
@ www.excelforum ένας από τους χρήστες έκανε την ίδια ερώτηση:-
Ημερομηνία μορφοποίησης κελιών με VBA
Προσπαθώ να μορφοποιήσω ένα κελί κατά τη δημιουργία ενός υπολογιστικού φύλλου Excel από ένα
μονάδα πρόσβασης. Θα ήθελα να ορίσω τη μορφή των κελιών από το
κώδικα vb, αλλά δεν ξέρω πώς ακριβώς μπορώ να αποκτήσω τα επιθυμητά αποτελέσματα.
http://www.excelforum.com/excel-programming-vba-macros/558695-date-formatting-cells-w-vba.html
Λήψη - Αριθμός μορφοποίησης σε μεγάλη ημερομηνία μέσω VBA - xlsm