Ինչպե՞ս Excel- ում ամսաթիվը արագ փոխել բառերի:
Ընդհանուր առմամբ, մենք սովորաբար Excel- ում ամսաթիվը վերափոխում ենք ամսաթվի այլ ձևաչափերի կամ թվանշանների, բայց երբևէ երբևէ բախվե՞լ եք ամսաթվի անգլերեն բառերի վերածելու խնդրի հետ, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Իրականում, չկա ներկառուցված գործառույթ, որը կարող է կարգավորել այն, այլ VBA կոդ:
Ամսաթիվը բառի փոխարկեք Սահմանված գործառույթի հետ
Ամսաթիվը բառի փոխարկեք Սահմանված գործառույթի հետ
Ահա մակրո կոդ, որը կարող է ձեզ լավություն ցույց տալ ամսաթվերը բառերի վերածելու հարցում:
1. Միացրեք ձեր օգտագործած թերթիկը և սեղմեք Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ և ներքևում տեղադրեք կոդը սցենարում:
VBA. Ամսաթիվը բառի փոխեք
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. Պահպանեք կոդը և վերադարձեք թերթիկ, ընտրեք այն բջիջը, որի արդյունքը դուրս կգաք, մուտքագրեք այս բանաձևը = DateToWords (A2) (A2- ը ձեր օգտագործման ամսաթիվն է), սեղմեք Մտնել բանալին և ավտոմատ լրացնելու բռնիչը քաշեք դեպի ձեզ անհրաժեշտ բջիջները: Տեսեք,
Բացեք Excel-ում թվերը բառերի ակնթարթորեն փոխակերպելու հարմարությունը Kutools-ի համար Excel-ի համարներ բառերի հատկությամբ՝ խնայելով ձեր ժամանակն ու ջանքը՝ առանց ջանքերի պրոֆեսիոնալ տեսք ունեցող փաստաթղթեր ստեղծելու համար:
Հարաբերական հոդվածներ:
- Ինչպե՞ս Excel- ում արագ փոխել ամսաթվի ձևաչափը եվրոպական և ամերիկյան միջև:
- Ինչպե՞ս dD.MM.YYYY- ն Excel- ում փոխարկել ամսաթվի ձևաչափի (mM / DD / YYYY):
- Ինչպե՞ս փոխել Excel- ի և Unix- ի ժամանակացույցի միջև Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: