Πώς να Μετατροπή String κειμένου σε ημερομηνία στο Excel

Μαθαίνοντας πώς να χρησιμοποιούν μια ημερομηνία τύπο δεδομένων σωστά είναι σημαντική, ειδικά όταν θα πρέπει να ταξινομήσετε τις στήλες κατά ημερομηνία . Στο Excel , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications για την αυτοματοποίηση εργασιών που διαφορετικά θα εκτελέσει το χέρι. Μια ημερομηνία που εισάγει ο χρήστης , πρέπει συχνά να μετατραπεί σε "Date " τύπος δεδομένων που θα χρησιμοποιηθούν σωστά στο πρόγραμμά σας VBA . Στην VBA , μπορείτε να χρησιμοποιήσετε τη λειτουργία " CDate " για να μετατρέψετε μια ημερομηνία που είναι αποθηκευμένη σε ένα " String " σε μεταβλητή ημερομηνία τύπο δεδομένων . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel 2007 , και πληκτρολογήστε μια ημερομηνία σε «Α1», χρησιμοποιώντας την ακόλουθη μορφή :

1 Ιαν 1950 2

Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα
εικόνων 3

Ξεκινήστε τη σύνταξη κώδικα , δημιουργώντας μια νέα διαδικασία ρουτίνας , όπως οι εξής : .

Private Sub converTextToDate ( )
Η 4

Συνεχίστε με τον τύπο τον ακόλουθο κώδικα για τη δημιουργία του " String " μεταβλητή και την "Ημερομηνία" μεταβλητή :

Dim todaysDate Ως Ημερομηνία

Dim dateString Όπως String
5

Πληκτρολογήστε τον ακόλουθο κώδικα για να πάρει την ημερομηνία που εγγράφονται στο " A1" και να το αποθηκεύσετε στο " String " μεταβλητή :

Range ( " A1 " ) . Επιλέξτε

dateString = Range ( " A1 " ) . Value

6

Μετατρέψτε το " String " τύπο δεδομένων σε ένα " Ημερομηνία " τύπο δεδομένων , πληκτρολογώντας τον παρακάτω κώδικα :

todaysDate = CDate ( dateString )
Η 7

Εμφανίστε τα δεδομένα που έχουν μετατραπεί σε κελί " B1 " , πληκτρολογώντας τον ακόλουθο κώδικα :

Range ( " B1 " ) . . Επιλέξτε

Range ( " B1 " ) Value = todaysDate
8

Ολοκληρώστε τη διαδικασία ρουτίνας , πληκτρολογώντας τα εξής :

End Sub

9

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας και να δείτε τα αποτελέσματα .
Η
εικόνων