Tự ghi chú ngày chưa báo cáo

[NoDiNaDu]

XIn chào mọi người, chúc mọi người trong diễn đàn một ngày tốt lành.
Hiện tại, em đang có 1 file excel để theo dõi nhân sự báo cáo ngày. Trong đó:
"-": là ký hiệu của ngày nghỉ ( Chủ nhật, lễ, tết...) hoặc ngày chưa nhận công việc báo cáo ngày.
"x": là ký hiệu đã gửi báo cáo ngày.
"c": là ký hiệu chưa gửi báo cáo ngày.
Ở cột Ghi chú ( cột AJ), em muốn ghi rõ ràng để mọi người dễ thấy ngày nào mà họ chưa báo cáo ( Ví dụ người A, chưa báo cáo ngày 05 và ngày 08, thì ở cột ghi chú sẽ ghi :" Chưa báo cáo ngày 05,08/05/2023"). Hiện tại, em đang làm thủ công là liệt kê các ngày chưa báo cáo để ghi chú. Em xin phép đăng file lên đây, kính nhờ mọi người giúp em có cách nào để làm nhanh hơn ngoài cách liệt kê thủ công như vậy không ạ? Em xin cảm ơn ạ.

 

[bebo021999]

Dùng hàm tự tạo tại AJ4:
=IF(AI4=0,"",baocao(C4:AG4))

Cách dùng:
Alt-F11 mở cửa sổ VBA, Insert/Module rồi dán code này vô. Lưu file dạng .xlsm

Option Explicit
Function baocao(ByVal Vung As Range)
Dim j&, cell As Range, count&, s
For Each cell In Vung
    If cell.Value = "c" Then s = IIf(s = "", "", s & ", ") & Cells(3, cell.Column)
Next
baocao = Range("AG24").Value & s & "/" & Right(Range("A1"), 7)
End Function

 

[NoDiNaDu]

Dùng hàm tự tạo tại AJ4:
=IF(AI4=0,"",baocao(C4:AG4))

Cách dùng:
Alt-F11 mở cửa sổ VBA, Insert/Module rồi dán code này vô. Lưu file dạng .xlsm

Option Explicit
Function baocao(ByVal Vung As Range)
Dim j&, cell As Range, count&, s
For Each cell In Vung
    If cell.Value = "c" Then s = IIf(s = "", "", s & ", ") & Cells(3, cell.Column)
Next
baocao = Range("AG24").Value & s & "/" & Right(Range("A1"), 7)
End Function

Dạ, em cảm ơn ạ.