Bài 36. Chuyển đổi Ngày (số) kiểu Date sang kiểu Chuỗi để trộn thư.

- Ngày 19/02/2017: Nếu các bạn đã từng trộn thư ( dùng word lấy dữ liệu từ excel để in hàng loạt) thì các bạn chắc hẵn cũng rất bực bội bỡi kiểu dữ liệu ngày, nếu nó chưa được định dạng dưới dạng text thì khi sang word nó sẽ là một số nguyên ( bỡi theo nguyên tắc ngày cũng là một số)

- Để giải quyết vấn đề đó các bạn phải chuyển đổi các ngày đó sang dạng text, nhưng nếu dữ liệu bạn copy từ nguồn khác thì rất mất thời gian, do đó mình làm Sub dưới đây, các bạn chỉ việc chạy sub sau đó chọn vùng cần chuyển đổi ( có thể chọn luôn những ngày đã được định dạng dưới dạng text), thế là xong.

Sub HoanDoi()
    Dim rng As Range, irng As Range
    On Error GoTo 0
    Set rng = Application.InputBox("Chon Vung Can Chuyen Doi Gia Tri", , , , , , , 8)
    For Each irng In rng
        irng.Value = "'" & irng.Value
    Next irng
End Sub