帖子: 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→2→3→1→2→3 ...... 這三種模式循環去輪

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

(圖二)

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

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

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2016-3-26 01:20 | 只看該作者

本帖最後由 luhpro 於 2016-3-26 01:22 編輯

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

Private Sub cbClr_Click()
Range([H2], [J11]).Clear
End Sub
Private Sub cbGet_Click()
Dim iCol%, iNo%
Dim lRow&
Dim dDate As Date
Dim vDd, vDp
Set vDd = CreateObject("Scripting.Dictionary")
Set vDp = CreateObject("Scripting.Dictionary")
lRow = 2
While Cells(lRow, 7) <> ""
vDd(CStr(Cells(lRow, 7))) = lRow
lRow = lRow + 1
Wend
iCol = 8
While Cells(1, iCol) <> ""
vDp(CStr(Cells(1, iCol))) = iCol
iCol = iCol + 1
Wend
lRow = 2
While Cells(lRow, 2) <> ""
dDate = Cells(lRow, 2)
iNo = Cells(lRow, 4)
While dDate <= Cells(lRow, 3)
Cells(vDd(CStr(dDate)), vDp(CStr(Cells(lRow, 5)))) = iNo
iNo = iNo + (iNo = 3) * 3 + 1
dDate = dDate + 1
Wend
lRow = lRow + 1
Wend
End Sub

複製代碼

能實做.zip (28.82 KB)

TOP

hcm19522

大學生 Rank: 4

帖子: 1399
主題: 4
精華: 0
積分: 1409
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-2-21

熱烈參與勳章

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

中學生 Rank: 2

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2016-3-27 23:35 | 只看該作者

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

能實做.zip (28.82 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

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