วิธีแปลงวันที่เป็นคำใน 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
• วิธีการแปลง dD.MM.YYYY เป็นรูปแบบวันที่ (mM / DD / YYYY) ใน Excel
• วิธีการแปลงระหว่างวันที่และ Unix Timestamp ใน Excel