Kako hitro pretvoriti datum v besede v Excelu?
Na splošno v Excelu datum običajno pretvorimo v druge oblike datuma ali števke, vendar ste kdaj naleteli na težavo s pretvorbo datuma v angleške besede, kot je prikazano na spodnji sliki zaslona? Pravzaprav ni vgrajene funkcije, ki bi jo lahko obvladala, razen kode VBA.
Pretvorite datum v besedo z definirano funkcijo
Pretvorite datum v besedo z definirano funkcijo
Tu je koda makra, ki vam lahko stori uslugo pri pretvorbi datumov v besede.
1. Omogočite list, ki ga uporabljate, in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli in prilepite spodnjo kodo v skript.
VBA: Pretvori datum v besedo
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. Shranite kodo in se vrnite na list, izberite celico, v katero boste izpisali rezultat, vnesite to formulo = DateToWords (A2) (A2 je datum, ki ga uporabljate), pritisnite Vnesite tipko in povlecite ročico za samodejno polnjenje čez celice, ki jih potrebujete. Oglejte si posnetek zaslona:
Odklenite udobje takojšnje pretvorbe števil v besede v Excelu s funkcijo Kutools for Excel's Numbers to Words, kar vam prihrani čas in trud pri ustvarjanju dokumentov profesionalnega videza brez truda!
Pojdite na Brezplačen prenos zdaj
Relativni članki:
- Kako hitro pretvoriti obliko datuma med evropsko in ameriško v Excelu?
- Kako pretvoriti dD.MM.LLLL v obliko datuma (mM / DD / LLLL) v Excelu?
- Kako pretvoriti med datumom in časovnim žigom Unixa v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
