Wie konvertiere ich Datum schnell in Wörter in Excel?
Im Allgemeinen konvertieren wir das Datum normalerweise in andere Datumsformate oder Ziffern in Excel. Haben Sie jedoch jemals ein Problem beim Konvertieren des Datums in englische Wörter festgestellt (siehe Abbildung unten)? Tatsächlich gibt es keine eingebaute Funktion, die damit umgehen kann, sondern einen VBA-Code.
Konvertieren Sie das Datum mit der definierten Funktion in ein Wort
Konvertieren Sie das Datum mit der definierten Funktion in ein Wort
Hier ist ein Makrocode, der Ihnen beim Konvertieren von Datumsangaben in Wörter einen Gefallen tun kann.
1. Aktivieren Sie das verwendete Blatt und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul und fügen Sie den folgenden Code in das Skript ein.
VBA: Datum in Wort umwandeln
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. Speichern Sie den Code und kehren Sie zum Blatt zurück. Wählen Sie eine Zelle aus, in der Sie das Ergebnis ausgeben möchten, und geben Sie diese Formel ein = DateToWords (A2) (A2 ist das Datum, das Sie verwenden), drücken Sie Enter Drücken Sie den automatischen Füllgriff und ziehen Sie ihn über die gewünschten Zellen. Siehe Screenshot:
Nutzen Sie den Komfort der sofortigen Konvertierung von Zahlen in Wörter in Excel mit der Funktion „Zahlen in Wörter“ von Kutools for Excel und sparen Sie Zeit und Mühe bei der mühelosen Erstellung professionell aussehender Dokumente!
Gehen Sie jetzt zum kostenlosen Download
Relative Artikel:
- Wie konvertiere ich das Datumsformat schnell zwischen Europa und den USA in Excel?
- Wie konvertiere ich TT.MM.JJJJ in das Datumsformat (mM / TT / JJJJ) in Excel?
- Wie konvertiere ich zwischen Datum und Unix-Zeitstempel in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
