Xin được giúp đỡ viết hàm chuyển đổi ngày tháng

[Cát Lượng]

Em chào anh,chị!
Em có dữ liệu trong ô A1 là: 10/10/2019
Nhờ anh,chị viết giúp em hàm tự tào bằng code có dạng "=Tachngay(A1)" để chuyển 10/10/2019 thành "ngày 10 tháng 10 năm 2019"
Hàm này có thể áp dụng trong tất cả các sheet của file.
Anh, chị giúp em mới nhé!

 

[HieuCD]

Em chào anh,chị!
Em có dữ liệu trong ô A1 là: 10/10/2019
Nhờ anh,chị viết giúp em hàm tự tào bằng code có dạng "=Tachngay(A1)" để chuyển 10/10/2019 thành "ngày 10 tháng 10 năm 2019"
Hàm này có thể áp dụng trong tất cả các sheet của file.
Anh, chị giúp em mới nhé!

Dùng Format cell hoặc hàm ngày tháng của Excel, nhanh gọn nhẹ, dùng cho tất cả các file

 

[Hieu042]

Cái này làm trên excel không cần VBA cũng được mà cần gì hàm tự tạo đâu.

 

[Cát Lượng]

Cái này làm trên excel không cần VBA cũng được mà cần gì hàm tự tạo đâu.

vâng ạ! em muốn biết thể tham khảo.

Bài đã được tự động gộp: 27/8/19

Cái này làm trên excel không cần VBA cũng được mà cần gì hàm tự tạo đâu.

Cái này làm trên excel không cần VBA cũng được mà cần gì hàm tự tạo đâu.

vâng ạ! cám ơn anh. em muốn biết thêm để học hỏi ạ

 

[leonguyenz]

Em chào anh,chị!
Em có dữ liệu trong ô A1 là: 10/10/2019
Nhờ anh,chị viết giúp em hàm tự tào bằng code có dạng "=Tachngay(A1)" để chuyển 10/10/2019 thành "ngày 10 tháng 10 năm 2019"
Hàm này có thể áp dụng trong tất cả các sheet của file.
Anh, chị giúp em mới nhé!

Chưa hiểu mục đích để làm gì, viết đại vậy:

Public Function Tachngay(Cel As Range) As String
If IsDate(Cel) Then
    Tachngay = "Ngày " & Day(Cel) & " tháng " & _
        Month(Cel) & " n" & ChrW(259) & "m " & Year(Cel)
End If
End Function

 

[Cát Lượng]

Chưa hiểu mục đích để làm gì, viết đại vậy:

Public Function Tachngay(Cel As Range) As String
If IsDate(Cel) Then
    Tachngay = "Ngày " & Day(Cel) & " tháng " & _
        Month(Cel) & " n" & ChrW(259) & "m " & Year(Cel)
End If
End Function

dạ em cám ơn anh!