請教：自動排班EXCEL如何處理

gaishutsusuru

想做個excel 排班功能，說明如下：

(圖一)

下載 (20.23 KB)

2016-3-25 22:25

上班開始日、上班結束日、開始班別：這三個由請假方填寫
黃色部份：我方填寫要安排的人員
註：開始班別：依1→2→3→1→2→3 ......    這三種模式循環去輪

一旦黃色部份填上後，會自動出現如圖二的資料

(圖二)

下載 (22.78 KB)

2016-3-25 22:19

請教，非粗體字的部份，該如何寫公式，才能有這種功能呢?

我想了好久，還是不懂。所以請教各位excel大大的想法，謝謝。

luhpro

回復 1# gaishutsusuru
這可用 Dictionary 函數先建立相關位置索引後會較容易做.

下載 (90.97 KB)

2016-3-26 01:17

1. Private Sub cbClr_Click()
   
2.   Range([H2], [J11]).Clear
   
3. End Sub
   
4. 
   
5. Private Sub cbGet_Click()
   
6.   Dim iCol%, iNo%
   
7.   Dim lRow&
   
8.   Dim dDate As Date
   
9.   Dim vDd, vDp
   
10.   
    
11.   Set vDd = CreateObject("Scripting.Dictionary")
    
12.   Set vDp = CreateObject("Scripting.Dictionary")
    
13.   
    
14.   lRow = 2
    
15.   While Cells(lRow, 7) <> ""
    
16.     vDd(CStr(Cells(lRow, 7))) = lRow
    
17.     lRow = lRow + 1
    
18.   Wend
    
19.   
    
20.   iCol = 8
    
21.   While Cells(1, iCol) <> ""
    
22.     vDp(CStr(Cells(1, iCol))) = iCol
    
23.     iCol = iCol + 1
    
24.   Wend
    
25.   
    
26.   lRow = 2
    
27.   While Cells(lRow, 2) <> ""
    
28.     dDate = Cells(lRow, 2)
    
29.     iNo = Cells(lRow, 4)
    
30.     While dDate <= Cells(lRow, 3)
    
31.       Cells(vDd(CStr(dDate)), vDp(CStr(Cells(lRow, 5)))) = iNo
    
32.       iNo = iNo + (iNo = 3) * 3 + 1
    
33.       dDate = dDate + 1
    
34.     Wend
    
35.     lRow = lRow + 1
    
36.   Wend
    
37. End Sub

複製代碼

能實做.zip (28.82 KB)

排班功能實做
下載次數: 13

2016-3-26 01:18

hcm19522

http://blog.xuite.net/hcm19522/twblog/395556234
G2:I11{=IFERROR(MOD(LOOKUP(1,0/(($F2>=$A$2:$A$7)*($F2<=$B$2:$B$7)*($D$2:$D$7=G$1)),$C$2:$C$7)-2+ROW(A1),3)+1,"")

ML089

回復 1# gaishutsusuru

借2樓檔案格式

H2陣列公式
{=TEXT(MIN(IF((H$1=$E$2:$E$7)*($B$2:$B$7+COLUMN($A:$Z)-1=$G2)*($G2<=$C$2:$C$7),MOD($D$2:$D$7+COLUMN($A:$Z)+1,3)+1)),"[>];")}

需用三鍵(SHIFT+CTRL+ENTER)齊按輸入公式

gaishutsusuru

非常謝謝各位的意見想法，真的很有幫助。
ps. 因為個人權限不足(只是小學生)，所以不能下載「能實做.zip (28.82 KB)」，不知有沒有其他方式可以下載? 謝謝

ML089

回復 5# gaishutsusuru

http://www.FunP.Net/889679

luhpro

非常謝謝各位的意見想法，真的很有幫助。
ps. 因為個人權限不足(只是小學生)，所以不能下載「能實做.zip ( ...
gaishutsusuru 發表於 2016-3-26 22:06

能實做.zip (28.82 KB)

准提部林

Ｈ２．陣列公式：
=SUBSTITUTE(MAX((MOD($G2-$B$2:$B$7+$D$2:$D$7-1,3)+1)*($B$2:$B$7<=$G2)*($C$2:$C$7>=$G2)*($E$2:$E$7=H$1)),0,)
或：
=TEXT(MAX((MOD($G2-$B$2:$B$7+$D$2:$D$7-1,3)+1)*($B$2:$B$7<=$G2)*($C$2:$C$7>=$G2)*($E$2:$E$7=H$1)),"[>];")