Excel'de tarihi hızlı bir şekilde metne nasıl dönüştürebilirim?
Genellikle Excel’de tarihi başka bir tarih formatına veya sayılara dönüştürürüz, ancak aşağıdaki ekran görüntüsünde gösterildiği gibi tarihi İngilizce kelimelere dönüştürmeyle ilgili bir sorunla karşılaştınız mı? Aslında bunu gerçekleştirmek için yerleşik bir işlev bulunmamaktadır; ancak bir VBA kodu kullanabilirsiniz.
Tanımlı İşlev ile tarihi yazıya dönüştürme
Tanımlı İşlev ile tarihi yazıya dönüştürme
Tarihleri yazıya dönüştürmenizde size yardımcı olabilecek bir makro kodu aşağıdadır.
1. Kullandığınız sayfayı etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu betiğe yapıştırın.
VBA: Tarihi yazıya dönüştürme
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. Kodu kaydedin ve sayfaya geri dönün. Sonucu görüntülemek istediğiniz bir hücreyi seçin, ardından şu formülü yazın: =DateToWords(A2) (A2, kullandığınız tarihtir). Ardından Enter tuşuna basın ve gerekli hücrelere kadar otomatik doldurma tutamacını sürükleyin. Ekran görüntüsüne bakın:
Excel'de "Kelimeye Dönüştür" özelliğini anında kullanmanın sunduğu kolaylığı Kutools for Excel’le keşfedin ve profesyonel görünümlü belgeleri zahmetsizce oluştururken zaman ile emekten tasarruf edin!
İlgili Makaleler:
- Excel'de Avrupa ve ABD tarih formatları arasında nasıl hızlıca dönüştürme yapılır?
- Excel'de GG.AA.YYYY biçimini, AA/GG/YYYY şeklindeki Tarih formatına nasıl dönüştürebilirim?
- Excel'de tarih ile Unix zaman damgası arasında nasıl dönüştürme yapılır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar