Wie kann man Datum schnell in Worte in Excel umwandeln?
Normalerweise konvertieren wir in Excel ein Datum in andere Datumsformate oder Ziffern, aber sind Sie jemals auf das Problem gestoßen, ein Datum in englische Worte wie im folgenden Screenshot zu konvertieren? Tatsächlich gibt es keine integrierte Funktion, die dies bewältigen kann, außer einem VBA-Code.
Datum mit definierter Funktion in Worte umwandeln
Datum mit definierter Funktion in Worte umwandeln
Hier ist ein Makrocode, der Ihnen bei der Umwandlung von Daten in Worte helfen kann.
1. Aktivieren Sie das Arbeitsblatt, das Sie verwenden, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.
VBA: Datum in Worte 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 Arbeitsblatt 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 die Eingabetaste und ziehen Sie den automatischen Ausfüllgriff über die Zellen, die Sie benötigen. Siehe Screenshot:
Entsperren Sie den Komfort der sofortigen Umwandlung von Zahlen in Worte in Excel mit der Funktion „Zahlen in Worte“ von Kutools für Excel und sparen Sie Zeit und Mühe beim mühelosen Erstellen professionell aussehender Dokumente!
Zur kostenlosen Version gehen Jetzt herunterladen
Verwandte Artikel:
- Wie konvertiert man schnell zwischen europäischem und US-Datumsformat in Excel?
- Wie konvertiert man TT.MM.JJJJ in ein Datumsformat (MM/TT/JJJJ) in Excel?
- Wie konvertiert man zwischen Datum und Unix-Zeitstempel in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins