Sut i drosi dyddiad yn eiriau yn Excel yn gyflym?
Yn gyffredinol, rydym fel arfer yn trosi'r dyddiad i fformatau dyddiad neu ddigidau eraill yn Excel, ond a ydych erioed wedi dod ar draws problem ynglŷn â throsi'r dyddiad i eiriau Saesneg fel y dangosir isod y screenshot? Mewn gwirionedd, nid oes swyddogaeth adeiledig a all ei drin ond cod VBA.
Trosi dyddiad i air gyda Swyddogaeth Diffiniedig
Trosi dyddiad i air gyda Swyddogaeth Diffiniedig
Dyma god macro a all eich ffafrio ar drosi dyddiadau i eiriau.
1. Galluogi'r ddalen rydych chi'n ei defnyddio a'i phwyso Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau a gludo islaw'r cod i'r sgript.
VBA: Trosi dyddiad yn air
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. Cadwch y cod ac ewch yn ôl i'r ddalen, dewiswch gell y byddwch chi'n allbwn y canlyniad ynddi, teipiwch y fformiwla hon = DateToWords (A2) (A2 yw'r dyddiad rydych chi'n ei ddefnyddio), pwyswch Rhowch allwedd a llusgo handlen llenwi auto i dros y celloedd sydd eu hangen arnoch. Gweler y screenshot:
Datgloi cyfleustra trosi rhifau i eiriau ar unwaith yn Excel gyda nodwedd Rhifau i Geiriau Kutools ar gyfer Excel, gan arbed amser ac ymdrech i chi wrth greu dogfennau sy'n edrych yn broffesiynol yn ddiymdrech!
Erthyglau Perthynas:
- Sut I Drosi Fformat Dyddiad Yn Gyflym Rhwng Ewropeaidd a'r UD Yn Excel?
- Sut i drosi dD.MM.YYYYY i fformat hyd yn hyn (mM / DD / BBBB) yn Excel?
- Sut I Drosi Rhwng Dyddiad Ac Unix Timestamp Yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!