Πώς να μετατρέψετε γρήγορα την ημερομηνία σε λέξεις στο Excel;
Σε γενικές γραμμές, συνήθως μετατρέπουμε την ημερομηνία σε άλλες μορφές ημερομηνίας ή ψηφία στο Excel, αλλά αντιμετωπίσατε ποτέ πρόβλημα σχετικά με τη μετατροπή της ημερομηνίας σε αγγλικές λέξεις όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Στην πραγματικότητα, δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να το χειριστεί, αλλά ένας κώδικας VBA.
Μετατροπή ημερομηνίας σε λέξη με καθορισμένη συνάρτηση
Μετατροπή ημερομηνίας σε λέξη με καθορισμένη συνάρτηση
Εδώ είναι ένας κώδικας μακροεντολών που μπορεί να σας βοηθήσει να μετατρέψετε ημερομηνίες σε λέξεις.
1. Ενεργοποιήστε το φύλλο που χρησιμοποιείτε και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης και επικολλήστε τον παρακάτω κώδικα στο σενάριο.
VBA: Μετατροπή ημερομηνίας σε λέξη
Function DateToWords(ByVal xRgVal As Date) As String
' Update by Extendoffice on 20240926
Dim xYear As String
Dim Hundreds As String
Dim Decades As String
Dim xTensArr As Variant
Dim xOrdArr As Variant
Dim xCardArr As Variant
' Initialize arrays
xOrdArr = Array("First", "Second", "Third", "Fourth", "Fifth", "Sixth", _
"Seventh", "Eighth", "Ninth", "Tenth", "Eleventh", "Twelfth", _
"Thirteenth", "Fourteenth", "Fifteenth", "Sixteenth", _
"Seventeenth", "Eighteenth", "Nineteenth", "Twentieth", _
"Twenty-first", "Twenty-second", "Twenty-third", "Twenty-fourth", _
"Twenty-fifth", "Twenty-sixth", "Twenty-seventh", "Twenty-eighth", _
"Twenty-ninth", "Thirtieth", "Thirty-first")
xCardArr = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
"Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
"Seventeen", "Eighteen", "Nineteen")
xTensArr = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
' Extract year
xYear = CStr(Year(xRgVal))
Decades = Mid$(xYear, 3)
' Handle decades
If CInt(Decades) < 20 Then
Decades = xCardArr(CInt(Decades))
Else
Decades = xTensArr(CInt(Left$(Decades, 1)) - 2) & "-" & xCardArr(CInt(Right$(Decades, 1)))
End If
' Handle hundreds
Hundreds = Mid$(xYear, 2, 1)
If CInt(Hundreds) Then
Hundreds = xCardArr(CInt(Hundreds)) & " Hundred "
Else
Hundreds = ""
End If
' Construct English representation of the date
DateToWords = xOrdArr(Day(xRgVal) - 1) & " " & Format$(xRgVal, "mmmm") & " " & _
xCardArr(CInt(Left$(xYear, 1))) & " Thousand " & Hundreds & Decades
End Function
3. Αποθηκεύστε τον κωδικό και επιστρέψτε στο φύλλο, επιλέξτε ένα κελί στο οποίο θα εμφανιστεί το αποτέλεσμα, πληκτρολογήστε αυτόν τον τύπο = Ημερομηνία λέξεων (A2) (A2 είναι η ημερομηνία που χρησιμοποιείτε), πατήστε εισάγετε κλειδί και σύρετε τη λαβή αυτόματης συμπλήρωσης σε πάνω από τα κελιά που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
Ξεκλειδώστε την ευκολία της άμεσης μετατροπής αριθμών σε λέξεις στο Excel με τη λειτουργία Kutools for Excel Numbers to Words, εξοικονομώντας χρόνο και προσπάθεια για τη δημιουργία εγγράφων με επαγγελματική εμφάνιση χωρίς κόπο!
Σχετικά άρθρα:
- Πώς να μετατρέψετε γρήγορα τη μορφή ημερομηνίας μεταξύ ευρωπαϊκών και ΗΠΑ στο Excel;
- Πώς να μετατρέψετε τη μορφή dD.MM.YYYY σε ημερομηνία (mM / DD / YYYY) στο Excel;
- Πώς να μετατρέψετε μεταξύ ημερομηνίας και Unix Timestamp στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!