Sắp lịch trực (1 người xem)

[Excel365]

Nhờ a/c giúp em sắp lich trực cho 4 nhân viên sao cho
Làm việc tối đa 6 ngày liên tuc thì sẽ cho nghỉ 1 ngày sau đó.
Chủ nhật sẽ có 2 người trực, 4 người thay phiên nhau trực ngày Chủ nhật hàng tuần
Trân trọng cảm ơn
http://www.mediafire.com/view/i4uh3j17ac3e4nb/Lich_truc.xlsx

 

[ducdinh1987]

yêu cầu bạn mình thấy mâu thuẫn quá.

làm 6 ngày liên tục mới nghỉ 1 ngày là vấn đề.

1 tuần có 7 ngày. mà ai cũng làm. chủ nhật còn trực nữa. chắc sẽ có ngày nghỉ trong tuần cho 2 người (vì chỉ có 2 người nghỉ chủ nhật do không trực) vậy?????? lấy đâu ra 4 người luân phiên nhau trong chủ nhật.

 

[Excel365]

yêu cầu bạn mình thấy mâu thuẫn quá.

làm 6 ngày liên tục mới nghỉ 1 ngày là vấn đề.
1 tuần có 7 ngày. mà ai cũng làm. chủ nhật còn trực nữa. chắc sẽ có ngày nghỉ trong tuần cho 2 người (vì chỉ có 2 người nghỉ chủ nhật do không trực) vậy?????? lấy đâu ra 4 người luân phiên nhau trong chủ nhật.

Ý của mình là sắp xếp ngẫu nhiên, không nhất thiết phải 1 ngày có hết 4 người trực.

 

[ducdinh1987]

Ý của mình là sắp xếp ngẫu nhiên, không nhất thiết phải 1 ngày có hết 4 người trực.

Giờ mình hỏi bạn nha. câu này nghĩa là "Chủ nhật sẽ có 2 người trực, 4 người thay phiên nhau trực ngày Chủ nhật hàng tuần" .

2 người đã trực chử nhật thì bạn phải cho họ nghỉ thứ 2 hoặc thứ 7. vì làm 6 ngày nghỉ 1 ngày.
còn 2 người nghỉ chủ nhật thì chủ nhật tới lại nghỉ. có khác gì đâu. làm sao có bài giải nào khác.

 

[ducdinh1987]

Nhờ a/c giúp em sắp lich trực cho 4 nhân viên sao cho
Làm việc tối đa 6 ngày liên tuc thì sẽ cho nghỉ 1 ngày sau đó.
Chủ nhật sẽ có 2 người trực, 4 người thay phiên nhau trực ngày Chủ nhật hàng tuần
Trân trọng cảm ơn
http://www.mediafire.com/view/i4uh3j17ac3e4nb/Lich_truc.xlsx

bạn chỉ thuê 4 người làm.

Vấn đề đưa ra: làm liên tục 6 ngày rồi nghỉ 1 ngày (ngày thứ 7)

riêng chủ nhật phải có 2 người trực và 2 người nghỉ.

giải quyết:
1. 2 người không trực chủ nhật đã được nghỉ nên họ vẫn đi làm bình thường các ngày còn lại và vẫn nghỉ chủ nhật.
2. 2 người trực chủ nhật bạn muốn cho nghỉ thứ 2 hoặc thứ 7. vì làm việc liên tục 6 ngày.

theo mình chỉ có cách duy nhất đó.

Còn nếu đề đưa ra tối đa 6 ngày cho nghỉ 1 ngày. thì bạn cho tối đa là 6 còn tối thiểu là bao nhiêu? nếu tối thiểu là 0 thì sao. phải cụ thể mới dễ làm chứ.

 

[Excel365]

bạn chỉ thuê 4 người làm.

Vấn đề đưa ra: làm liên tục 6 ngày rồi nghỉ 1 ngày (ngày thứ 7)

riêng chủ nhật phải có 2 người trực và 2 người nghỉ.

giải quyết:
1. 2 người không trực chủ nhật đã được nghỉ nên họ vẫn đi làm bình thường các ngày còn lại và vẫn nghỉ chủ nhật.
2. 2 người trực chủ nhật bạn muốn cho nghỉ thứ 2 hoặc thứ 7. vì làm việc liên tục 6 ngày.

theo mình chỉ có cách duy nhất đó.

Còn nếu đề đưa ra tối đa 6 ngày cho nghỉ 1 ngày. thì bạn cho tối đa là 6 còn tối thiểu là bao nhiêu? nếu tối thiểu là 0 thì sao. phải cụ thể mới dễ làm chứ.

Bây giờ chung lại là, 1 ngày thường có ít nhất 3 người trực, và luân phiên nhau nghỉ
Cứ làm 6 ngày ngày thì sẽ được nghỉ 1 ngày.
Chủ nhật 4 người sẽ luân phiên nhau trực. (có ít nhất 2 người)
Tổi thiểu thì 2 ngày

 

[diemhuyenanh]

xin lỗi các bạn tôi cũng có nhu cầu xắp lịch trực vậy xin nhờ các bạn giúp xắp giùm. trong file đính kèm tôi có yêu cầu cụ thể.

 

[ducdinh1987]

Bây giờ chung lại là, 1 ngày thường có ít nhất 3 người trực, và luân phiên nhau nghỉ
Cứ làm 6 ngày ngày thì sẽ được nghỉ 1 ngày.
Chủ nhật 4 người sẽ luân phiên nhau trực. (có ít nhất 2 người)
Tổi thiểu thì 2 ngày

Bạn xem file mình gửi nha. nói cách bạn thì không sắp được đâu.

 

[ChanhTQ@]

xin các bạn, tôi cũng có nhu cầu xắp lịch trực vậy xin nhờ các bạn giúp xắp giùm. trong file đính kèm tôi có yêu cầu cụ thể.

Bạn kiểm theo file;
Sau khi lập lịch tháng chạp thì cần chép [G14] đến [G2] & xóa dữ liệu dưới [G2] (Macro sẽ điền năm tới cho bạn)

 

[diemhuyenanh]

Bạn kiểm theo file;
Sau khi lập lịch tháng chạp thì cần chép [G14] đến [G2] & xóa dữ liệu dưới [G2] (Macro sẽ điền năm tới cho bạn)

Bạn tranhTQ thân. nếu danh sách trực mà chia hết cho 7 ví dụ như có 7 người hay 14 người thì lịch sẽ không chạy xoay tròn. tôi đã thử với danh sách là 14 người thì khi đó ai trực vào ngày nghỉ sẽ luôn lôn bị trực vào ngày nghỉ. mà yêu cầu là phải được cắt xoay vòng có nghĩa là tháng này anh trực vào cn thì tháng sau anh sẽ trực vào thứ 2 hay thứ 3 chứ không phải là ngày t7 hay cn
bạn sem lại với nhé

 

[ChanhTQ@]

Bạn lấy cái ni thay vô cái cũ.

Bạn tranhTQ thân. nếu danh sách trực mà chia hết cho 7 ví dụ như có 7 người hay 14 người thì lịch sẽ không chạy xoay tròn. tôi đã thử với danh sách là 14 người thì khi đó ai trực vào ngày nghỉ sẽ luôn lôn bị trực vào ngày nghỉ. mà yêu cầu là phải được cắt xoay vòng có nghĩa là tháng này anh trực vào cn thì tháng sau anh sẽ trực vào thứ 2 hay thứ 3 chứ không phải là ngày t7 hay cn
bạn sem lại với nhé

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [h1]) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    Dim Dat As Date, J As Long, TT As Long, M7 As Byte      '<=|'
    Dim SBD As String
    
    Worksheet_Activate
    Dat = DateSerial([i1].Value, Target.Value, 1)
    Set Sh = ThisWorkbook.Worksheets("DanhSach")
    Set Rng = Sh.Range(Sh.[b2], Sh.[b2].End(xlDown))
    If Rng.Cells.Count Mod 7 = 0 Then M7 = 2 Else M7 = 1    '<=|'
    [d5].Resize(31, 2).ClearContents
    Application.ScreenUpdating = False
    SBD = Sh.[g1].Offset(Target.Value).Value
    TT = InStr(StrC, SBD)
    For J = 0 To 30
        Dat = Dat + 1
        With Cells(5 + J, "D")
            Set sRng = Rng.Find(Mid(StrC, TT, 5), , xlFormulas, xlWhole)
            .Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
            TT = TT + 5
        End With
        If Month(Dat) <> Target.Value Then
            Sh.[g1].Offset(Target.Value + M7).Value = Mid(StrC, TT, 5)  '<=|'
            Exit For
        End If
    Next J
    Application.ScreenUpdating = True
 End If
End Sub