Thì nếu tổ trực thứ 2, thứ 6 thì sẽ nghỉ thứ 7, CN. và cứ xoay tua đều vậy. thứ 3, thứ 7, rồi thứ 4, Cn hoặc có tổ chỉ trực mỗi thứ 5 không thôi. nếu có 8 người thì lại dễ chia. nhưng hiện tại nhân viên lại chỉ có 7 người. Nên muốn nhờ bạn cắt hộ sao cho phù hợp nhất. Chia làm 4 tổ tại có 4 chỉ huy, xoay tròn nhau. Trực 1 ngày nghỉ 3 ngày
4 chỉ huy nằm ở đầu danh sách, kế đến là nhân viên
Option Explicit
Sub LichTruc()
Dim aNV, aCH(), a, Res(), fDay As Date
Dim sCH&, sNV&, sd&, i&, k&, r&, j&
Const SoThang& = 1 'So tháng
sd = DateAdd("m", SoThang, fDay) - fDay 'So ngay trong Ky
ReDim Res(1 To sd, 1 To 5)
With Sheets("Sheet1")
fDay = .Range("C2").Value
aCH = .Range("J4:K7").Value
aNV = .Range("J8:K14").Value
End With
sCH = UBound(aCH): sNV = UBound(aNV)
aCH = UniqueRand(aCH, sCH) 'Tron ngau nhien Chi Huy
aNV = UniqueRand(aNV, sNV) 'Tron ngau nhien NV
Do
r = ((r + 2) Mod sNV) + 1
For j = 1 To sNV
i = i + 1
Res(i, 1) = fDay
If k = sCH Then k = 1 Else k = k + 1
Res(i, 2) = aCH(k)
If r = sNV Then r = 1 Else r = r + 1
Res(i, 3) = aNV(r)
If r = sNV Then r = 1 Else r = r + 1
Res(i, 4) = aNV(r)
Res(i, 5) = Format(fDay, "ddd")
fDay = fDay + 1
If i >= sd Then Exit Do
Next j
Loop
With Sheets("Sheet1")
.Range("B4:E400").Clear
.Range("B4").Resize(sd, 4) = Res
.Range("B4").Resize(sd, 4).Borders.LineStyle = 1
End With
End Sub
Function UniqueRand(ByVal arr, ByVal sRow&) As Variant
Dim a&(), t(), N&, i&, RndNum&, tmp&
N = sRow
ReDim a(1 To N)
ReDim t(1 To N)
For i = 1 To N
RndNum = Int(N * Rnd() + 1)
If a(RndNum) = 0 Then tmp = RndNum Else tmp = a(RndNum)
If a(N) = 0 Then a(RndNum) = N Else a(RndNum) = a(N)
a(N) = tmp
N = N - 1
Next i
For i = 1 To sRow
t(i) = arr(a(i), 1)
Next i
UniqueRand = t
End Function
| 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 01 | ||||
| B0 | B1 | B2 | B3 | B0 | B1 | B2 | B3 | B0 | B1 | B2 | B3 | CS | CH | ||||||||||||||||||||||
| A1 | A3 | A5 | A7 | A2 | A4 | A6 | A1 | A3 | A5 | A7 | A2 | A4 | A6 | A1 | A0 | B0 | |||||||||||||||||||
| A2 | A4 | A6 | A1 | A3 | A5 | A7 | A2 | A4 | A6 | A1 | A3 | A5 | A7 | A1 | B1 | ||||||||||||||||||||
| A2 | B2 | ||||||||||||||||||||||||||||||||||
| A3 | B3 | ||||||||||||||||||||||||||||||||||
| A4 | |||||||||||||||||||||||||||||||||||
| A5 | |||||||||||||||||||||||||||||||||||
| A6 | |||||||||||||||||||||||||||||||||||
| A7 |
Chia như này thì người trực thứ 2 trực thứ 2 miết ạ, tuần này trực thứ2,6 thì tuần sau 3,7, tiếp 4,cn, tiếp là thứ 5. xoay đều cho tất cả.
dạ mình cảm ơn , để mình mò ráp vô. Chứ mình cũng ko rành excel lắm .
Thì 2 lần trực thì tịnh tiến thứ tự lên 1 đơn vị;
Nhưng ông A2 cũng như ông A1 đều đã trực thứ 2 rồi ạ, bác có thể cắt sơ lược e coi được không.
Bạn tự làm trước trong 24 tiếng đồng hồ xem sao; Mình cho rằng chưa được thì tịnh tiến lên 2 chiến sỹ sẽ là OK thôi.
