Bagaimana cara cepat mengubah tanggal menjadi kata-kata di Excel?
Secara umum, kami biasanya mengonversi tanggal ke format tanggal atau angka lain di Excel, tetapi apakah Anda pernah mengalami masalah tentang mengubah tanggal ke kata-kata bahasa Inggris seperti gambar di bawah ini? Sebenarnya, tidak ada fungsi bawaan yang bisa menanganinya kecuali kode VBA.
Konversikan tanggal ke kata dengan Fungsi Ditentukan
Konversikan tanggal ke kata dengan Fungsi Ditentukan
Berikut adalah kode makro yang dapat membantu Anda dalam mengonversi tanggal menjadi kata-kata.
1. Aktifkan lembar yang Anda gunakan dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul dan tempel kode di bawah ini ke skrip.
VBA: Ubah tanggal menjadi kata
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. Simpan kode dan kembali ke lembar, pilih sel yang akan Anda keluaran hasilnya, ketikkan rumus ini = DateToWords (A2) (A2 adalah tanggal yang Anda gunakan), tekan Enter kunci dan seret tuas pengisian otomatis ke sel yang Anda butuhkan. Lihat tangkapan layar:
Buka kenyamanan mengonversi angka menjadi kata secara instan di Excel dengan Kutools for Excel's Numbers to Words fitur, menghemat waktu dan tenaga Anda dalam membuat dokumen yang terlihat profesional dengan mudah!
Artikel Relatif:
- Bagaimana cara cepat mengubah format tanggal antara Eropa dan AS di Excel?
- Bagaimana cara mengubah dD.MM.YYYY ke format tanggal (mM / DD / YYYY) di Excel?
- Bagaimana cara mengkonversi antara tanggal dan stempel waktu Unix di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!