Xin nhờ các cao thủ gíúp e lịch trực với !!! (1 người xem)

[mitian]

A/c cao thủ excel làm ơn giúp e với, đọc trên forum mà điên hết cả đầu.
Công ty có 7 nhóm, 2 nhóm trực/ngày, luân phiên. AB BC DE EF...
xoay vòng đủ 30 ngày, từ T2-CN, lịch xếp theo từng tháng 1
Cuối tuần T7-CN các nhóm đều trực bằng nhau, không nhóm nào nhiều hơn.
Xin để lại contact để e đa tạ 1 chầu cafe

 

[SA_DQ]

Cái này không cần đến cao thủ; Chỉ cần có mẹo vặt thôi!

,,,,,,

 

[mitian]

,,,,,,

Haiz, cám ơn bác đã giải quyết cho e, đầu tháng mà sếp đòi rồi, mất cả ngủ. Bác cho e hỏi phần nghỉ là sao ạ ?
Phần bác xếp hộ e ngày cuối tuần chia đã đều cho cả 7 nhóm chưa bác ?
E check và chưa biết có đều chưa ? chắc nộp sếp chạy thử tháng ko ai kêu ca gì là đc bác nhỉ ?
Xin hỏi quí danh để còn hậu tạ. Cảm ơn bác rất nhiều !!!

 

[SA_DQ]

. . . Đầu tháng mà sếp đòi rồi, mất cả ngủ.
(1) Bác cho e hỏi phần nghỉ là sao ạ ?
(2) Phần bác xếp hộ e ngày cuối tuần chia đã đều cho cả 7 nhóm chưa bác ?
E check và chưa biết có đều chưa ?
chắc nộp sếp chạy thử tháng ko ai kêu ca gì là đc bác nhỉ ?
(3) Xin hỏi quí danh để còn hậu tạ. Cảm ơn bác rất nhiều !!!

(1) Nghỉ: Hai tóp đó được nghĩ luân fiên!
Vì nếu không cho tóp nào nghỉ thì 7 tóp sẽ lặp ngày trực trong 2 tuần!
Cho nghỉ luân fiên như vậy sẽ tránh được trùng lắp!

(2) Đã đều trong các tháng với độ dái thời gian gần vô tận; nếu chỉ áp dụng trong quí trở lại e sẽ có tóp thắc mắc!

(3) Hãy hậu tạ diễn đàn!
Vì lẽ DĐ cho đã tạo môi trường để chúng ta gặp & hiểu nhau hơn!

 

[mitian]

Vô cùng cám ơn hai bác, đầu tuần xem ra suôn sẻ rồi. có dịp sẽ tìm cách cảm ơn bằng hành động với hai bác và diễn đàn.

 

[mitian]

Xin lỗi, trong quá trình làm lịch chi tiết e lại có chút thắc mắc :
1. Các nhóm ABCDEFG : đáng lẽ phải đổi chéo nhau : AB AC AD AE AF AG. Trong mẫu bác gợi ý thì chưa có.
2. Lịch cuối tuần e check theo từng nhóm, 5 cuối tuần => 10 buổi T7-CN => 20 lượt nhóm thì thấy có nhóm xuất hiện nhiều lượt hơn các nhóm khác.
3. Khi e gán tên cho A = Tiến B = Điệp rồi xếp vào lịch tháng (1 dòng là T2-CN, còn lại mỗi ô có ghi ngày) Có cách làm gán xếp lịch tự động luôn không ạ ? e đang làm thủ công từ file các bác giúp rồi chép lại từng ô vào lịch tháng. T__T
Quả là vấn đề đơn giản nhưng cũng khó xử lý phết nhỉ. Hy vọng nhận được hỗ trợ sớm từ 2 bác đã reply

 

[mitian]

Các bác ơi, cứu với, vẫn chưa nhận được hỗ trợ.

 

[ChanhTQ@]

1. . . . .
2. Lịch cuối tuần e check theo từng nhóm, 5 cuối tuần => 10 buổi T7-CN => 20 lượt nhóm thì thấy có nhóm xuất hiện nhiều lượt hơn các nhóm khác.
3. Khi e gán tên cho A = Tiến B = Điệp rồi xếp vào lịch tháng (1 dòng là T2-CN, còn lại mỗi ô có ghi ngày) Có cách làm gán xếp lịch tự động luôn không ạ ? e đang làm thủ công từ file các bác giúp rồi chép lại từng ô vào lịch tháng. T__T
Quả là vấn đề đơn giản nhưng cũng khó xử lý phết nhỉ. Hy vọng nhận được hỗ trợ sớm từ 2 bác đã reply

Mình làm cho bạn bằng macro cho ngàn ngày luôn!

Bạn thống kê số liệu cụ thể trong 2,5 năm đó xem sao. (Chứ không thể nói : "thấy có nhóm xuất hiện nhiều lượt hơn các nhóm khác."). Fải cho biết nhiều hơn là nhiều hơn bao nhiêu ngày.

Bạn mà không rành mạch là nghỉ chơi luôn!

Option Explicit
Sub gpeLichTruc()
 Const Nh As String = "ABCDEFG"
 Dim J As Long, StrC As String
 
 StrC = Nh & Nh
 For J = 0 To 1002
    With Cells(3 + J, "A")
        .Value = Cells(2 + J, "A").Value + 1
        If J Mod 7 = 0 Then
            .Offset(-1, 2).Value = Mid(StrC, (1 + (J Mod 7)) * 2 - 1, 2)
            StrC = Mid(StrC, 3, 14) & Left(StrC, 2)
        End If
        .Offset(-1, 1).Value = Mid(StrC, (1 + (J Mod 7)) * 2 - 1, 2)
    End With
 Next J
End Sub