cảm ơn bạn đã quan tâm:
Sub ChuyenCong()
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim Cll As Range, Cls As Range
Dim Col As Byte
Set Sh = ThisWorkbook.Worksheets("Sheet1")
Set Rng = Sh.Range(Sh.[B5], Sh.[B5].End(xlDown))
Rng.Offset(1, 2).Resize(, 31).ClearContents
For Each Cls In Range([B4], [B4].End(xlDown))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
For Each Cll In Cells(Cls.Row, "D").Resize(, 31)
Col = Cll.Column
If Weekday(Cells(3, Col)) <> 1 And Weekday(Cells(3, Col)) <> 7 Then
With Sh.Cells(sRng.Row, Col)
If Cells(Cll.Row, Col).Value = "" Or Cells(Cll.Row, Col).Value = "LB" Then
.Value = "X"
Else
' .Value = Cells(Cll.Row, Col).Value '
End If
End With
Else
If Cells(Cll.Row, Col).Value = "LB" Then _
Sh.Cells(sRng.Row, Col) = "X"
End If
Next Cll
End If
Next Cls
End Sub- Trường hợp nếu ngày nghỉ mà có làm việc (làmthêm) thì tại sheet2 mình sẽ đánh dấu vào ngày làm thêm ví dụ đánh dấu"LT" thì sheet1 sẽ tự động chấm công cho người đó vào ngày làm thêmtương ứng <--- Bạn xem lại mục này hình như chưa hoạt động thì phải bạn ạ.
Range("A1:AH28").SelectRange("A1:AI28").Select
Ở bài #7 chủ đề tài có nói rằng :
Cái này mình không có máy in, bạn fải chờ hay nhờ người khác đi vậy
Công thức viết tổng đã được cài sẵn bỡi tác giả của bài đăng; Bạn hỏi bạn í xem sao(?)
