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
320
Được thích
36
Điểm
185
Tuổi
32
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

Thành viên gạo cội
Tham gia ngày
14 Tháng chín 2010
Bài viết
6,101
Được thích
11,242
Đ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
32
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
320
Được thích
36
Điểm
185
Tuổi
32
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,439
Được thích
7,808
Đ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
320
Được thích
36
Điểm
185
Tuổi
32
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