Conas an dáta a thiontú go tapa go focail in Excel?
Go ginearálta, is gnách go n-athraímid an dáta go formáidí nó digití dáta eile in Excel, ach an raibh fadhb agat riamh maidir leis an dáta a thiontú go focail Bhéarla mar a thaispeántar thíos an scáileán? I ndáiríre, níl aon fheidhm ionsuite ann atá in ann é a láimhseáil ach cód VBA.
Tiontaigh an dáta go focal leis an bhFeidhm Shainithe
Tiontaigh an dáta go focal leis an bhFeidhm Shainithe
Seo macra-chód a fhéadann fabhar a thabhairt duit maidir le dátaí a thiontú go focail.
1. Cumasaigh an bhileog a úsáideann tú agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil agus greamaigh thíos an cód leis an script.
VBA: Tiontaigh an dáta go focal
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. Sábháil an cód agus téigh ar ais chuig an mbileog, roghnaigh cill a ndéanfaidh tú an toradh a aschur, clóscríobh an fhoirmle seo = DateToWords (A2) (Is é A2 an dáta a úsáideann tú), brúigh Iontráil eochair agus tarraing láimhseáil líonta uathoibríoch go dtí na cealla atá uait. Féach an pictiúr:
Díghlasáil an áisiúlacht a bhaineann le huimhreacha a thiontú go focail láithreach i Excel le gné Uimhreacha go Focail Kutools le haghaidh Excel, rud a shábháil am agus an iarracht chun doiciméid a lorg gairmiúla a chruthú gan stró!
Ailt Choibhneasta:
- Conas formáid dáta a thiontú go tapa idir Eorpach agus SAM in Excel?
- Conas dD.MM.YYYYYY a thiontú go formáid go dtí seo (mM / DD / BBBB) in Excel?
- Conas Tiontú Idir Dáta agus Timpeall Ama Unix In Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!