返回列表 上一主題 發帖

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

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-25 22:25 | 只看該作者

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

本帖最後由 gaishutsusuru 於 2016-3-25 22:27 編輯

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

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

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

(圖二) 2.JPG
請教，非粗體字的部份，該如何寫公式，才能有這種功能呢?

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2016-3-26 01:20 | 只看該作者
本帖最後由 luhpro 於 2016-3-26 01:22 編輯

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

  1. Private Sub cbClr_Click()
  2.   Range([H2], [J11]).Clear
  3. End Sub

  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)

TOP

hcm19522

帖子
1800 
主題
186 
精華
0 
積分
1991 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-10-4 

熱烈參與勳章
3#
發表於 2016-3-26 10:27 | 只看該作者
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,"")

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2016-3-26 17:01 | 只看該作者
回復 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)齊按輸入公式
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
5#
發表於 2016-3-26 22:06 | 只看該作者
非常謝謝各位的意見想法，真的很有幫助。
ps. 因為個人權限不足(只是小學生)，所以不能下載「能實做.zip (28.82 KB)」，不知有沒有其他方式可以下載? 謝謝

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
6#
發表於 2016-3-26 23:41 | 只看該作者
回復 5# gaishutsusuru

http://www.FunP.Net/889679
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
7#
發表於 2016-3-27 23:35 | 只看該作者
非常謝謝各位的意見想法，真的很有幫助。
ps. 因為個人權限不足(只是小學生)，所以不能下載「能實做.zip ( ...
gaishutsusuru 發表於 2016-3-26 22:06


能實做.zip (28.82 KB)

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
8#
發表於 2016-3-30 14:24 | 只看該作者
Ｈ２．陣列公式：
=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)),"[>];")

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題