馬納

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2016-3-31
最後登錄: 2016-4-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-3-31 16:28 | 只看該作者

[發問] 請問編排勤務班表問題

請問各位excel神人，方便請問一下班表排班函數的設計嗎
排班方式如下：
假如本單位人數為27人，編排勤務是以編號編排的

上班人數為總人數扣掉輪休+差假+休假(即紫色劃線部分)的人皆以號碼表示
而外宿者則在18點後放假，即填寫在外宿處填寫外宿人員號碼(橘線處)且18時之後不會出現在勤務編排上
待命服勤處(綠線)為左側已編排勤務剩下之上班人號碼(紅線)，通訊幕僚為待命服勤最前方第一個人編號(藍線)

105.4.1.rar (18.95 KB)

不知道這樣表達是否清楚
小弟只是想減輕主管排班的辛勞，畢竟主管有點年紀了，謝謝

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

2^#

發表於 2016-3-31 23:37 | 只看該作者

回復 1# 馬納

不大了解你的需求，所以你是要設計哪個地方的函式？

TOP

馬納

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2016-3-31
最後登錄: 2016-4-8

3^#

發表於 2016-4-1 13:22 | 只看該作者

回復 2# tku0216

總人數為27人，班表上以1.2.3.4.5.....25.26.27 表示
應該是待命服勤處 08-18 時，顯示為總人數編號扣掉休假+差假+輪休再扣掉已編排小時內勤務人數
EX：休假人員為4.7.22 差假3.14.25 輪休1.5.8.15.16.17.20.24
上班人為2.6.9.10.11.12.13.18.19.21.23.26.27
08-10時值班10 駕訓21 救護12.27 待命服勤2.6.9.11.13.18.19.21.23.26

而18-08時待命服勤則須在扣除外宿人員編號

不知道這樣表示是不是正確，我EXCEL一直停在基本函數部分而已...

所以我是覺得函式應該是寫在待命服勤欄位，但是不知道如何挑出未排勤務之編號

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2016-4-8 10:48 | 只看該作者

回復 3# 馬納

排班必須考慮到的條件很多
扣除無法排入的人員，其餘上班人員其勤務順序，每人值班時數，每人是否特定職務等問題均須考量
目前附件中的排班似乎沒有一個準則可循
若休假後回來值勤又該如何插入排班的規則又是如何?
種種問題必須整理出他的規則，才可能用程式來做
是否能將這些問題敘述清楚，才能進一步討論
另有一問題就是你班表內取得的編號又可能是以點作連結來表示多人
這樣的字串也會增加函數的困難

學海無涯_不恥下問

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

5^#

發表於 2016-4-8 17:35 | 只看該作者

小弟初試VBA，請您指教
Sub s1()
Worksheets("勤務表").Select
For j = 0 To 23
         Cells(9 + j, 19) = "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,"
      For i = 0 To 11
            '刪除輪休
            If Cells(34, 4 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 4 + i), "")
            End If

            '刪除外宿
            If Cells(35, 4 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 4 + i), "")
            End If

            '刪除差假
            If Cells(34, 19 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 19 + i), "")
            End If

            '刪除休假
            If Cells(35, 19 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 19 + i), "")
            End If
      Next i

      '刪除已派
      For i = 0 To 13
            If Cells(9 + j, 5 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 5 + i), "")
            End If
      Next i
      For i = 0 To 1
         If Cells(9 + j, 29 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 29 + i), "")
            End If
      Next i

Next j
End Sub

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-4-9 22:01 | 只看該作者

本帖最後由 ML089 於 2016-4-9 22:24 編輯

橘色區公式，下拉複製
S9 =MID(AH9,2,99)
AG9 =MID(AH9,2,99)

黃色區公式，先右拉27格(看有多少人數)，在整個下拉複製
AH9 =IF(ISERROR(FIND("."&COLUMN(A1)&".",TRIM("."&$E9&"."&$G9&"."&$I9&"."&$K9&"."&$M9&"."&$O9&"."&$Q9&"."&$D$34&"."&$S$34&"."&$S$35&"."))),"."&COLUMN(A1),"")&AI9

http://www.FunP.Net/992889

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

dj0425

中學生 Rank: 2

帖子: 22
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: windows
軟體版本: 10
閱讀權限: 20
性別: 男
註冊時間: 2016-3-11
最後登錄: 2018-1-1

7^#

發表於 2016-4-18 21:18 | 只看該作者

雖然我回答不了樓一樓大大的問題
不過說真的
這張表我之前有研究過一小段時間(應該跟大大是同道中人)
事實証明了一件事
就是變化大於計劃
函數寫愈多
臨時勤務要修正就愈麻煩

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

8^#

發表於 2016-4-19 21:31 | 只看該作者

回復 1# 馬納
第二版VBA程式碼放在Worksheet_SelectionChange中，只要該時段有輪休、外宿.....，在設勤務時可用下拉式清單

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

9^#

發表於 2016-4-20 16:45 | 只看該作者

回復 1# 馬納
我完成的第二版，程式碼如下，請指教！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For j = 0 To 23
         Cells(9 + j, 19) = "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,"
      For i = 0 To 11
            '刪除輪休
            If Cells(34, 4 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 4 + i) & ",", "")
            End If

            '刪除外宿
            If Cells(35, 4 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 4 + i) & ",", "")
            End If

            '刪除差假
            If Cells(34, 19 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(34, 19 + i) & ",", "")
            End If

            '刪除休假
            If Cells(35, 19 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(35, 19 + i) & ",", "")
            End If
      Next i

      '刪除已派
      For i = 0 To 13
            If Cells(9 + j, 5 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 5 + i) & ",", "")
            End If
      Next i
      For i = 0 To 1
         If Cells(9 + j, 29 + i) <> "" Then
               Cells(9 + j, 19) = Replace(Cells(9 + j, 19), Cells(9 + j, 29 + i) & ",", "")
            End If
      Next i


      '設定職務派任清單
      With Range(Cells(9 + j, 4), Cells(9 + j, 15)).Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 + j, 19)
      End With
      With Range(Cells(9 + j, 29), Cells(9 + j, 30)).Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 + j, 19)
      End With
Next j
End Sub

TOP

[發問] 請問編排勤務班表問題

[發問] 請問編排勤務班表問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]