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

Cát Lượng

Thành viên thường trực
Tham gia ngày
14 Tháng mười một 2018
Bài viết
374
Được thích
49
Điểm
185
Tuổi
33
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

Chuyên gia GPE
Tham gia ngày
14 Tháng chín 2010
Bài viết
6,868
Được thích
13,323
Điểm
1,560
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

Thành viên thường trực
Tham gia ngày
13 Tháng chín 2017
Bài viết
227
Được thích
95
Điểm
195
Tuổi
33
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

Thành viên thường trực
Tham gia ngày
14 Tháng mười một 2018
Bài viết
374
Được thích
49
Điểm
185
Tuổi
33
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:

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

Thành viên mới
Thành viên BQT
Moderator
Tham gia ngày
2 Tháng tám 2010
Bài viết
4,581
Được thích
8,056
Điểm
610
Nơi ở
Bình Dươ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é!
Chưa hiểu mục đích để làm gì, viết đại vậy:
Mã:
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

Thành viên thường trực
Tham gia ngày
14 Tháng mười một 2018
Bài viết
374
Được thích
49
Điểm
185
Tuổi
33
Chưa hiểu mục đích để làm gì, viết đại vậy:
Mã:
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!
 
Top Bottom