[發問] Excel排班表問題

各位先進早:
            有一些問題想請教一下
                     本表小弟主要的概念為在輪值表上KEY上我所設的代號
                     人員即會對應到班表上,我主要是以IF函數去完成。
                  問題一:是否有其他方法可以替代,怕人員一多IF函數無法負荷
                  問題二:總共要做31天,小弟第一天公式設好後,複製到後面的活頁上
                                 才發現跨活頁公式貼上,抓到的跟前面的一樣,小弟目前只會用手動修改
                                 不知是否有更簡易的方式‧
                  以上兩點懇請新進幫個忙!!非常感謝!!

排班表.zip (48.18 KB)

相互交流求進步

JOUE

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: window xp
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: 彰化
註冊時間: 2011-11-16
最後登錄: 2011-11-22

6^#

發表於 2011-11-22 09:14 | 只看該作者

很感謝新進的回答,雖然小弟看不懂VBA
我會再努力的,謝謝!!

相互交流求進步

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2011-11-21 22:48 | 只看該作者

本帖最後由 register313 於 2011-11-21 22:50 編輯

1.VBA初學者,請各位大大指正
2.11月員工工作表結構太亂建議改嚴謹一些

Public A, D, R, S1, S2, S3, S4

Sub 排班()

  For D = 1 To 31
Sheets(D + 1).Select
Range("B7:K27").Select
Selection.ClearContents

'早班
S1 = 7
S2 = 9
S3 = 11
S4 = 14
For A = 7 To 15
   R = 2
   Call 排班1
Next A

'中班
S1 = 7
S2 = 9
S3 = 11
S4 = 14
For A = 23 To 28
   R = 3
   Call 排班1
Next A

'晚班
S1 = 7
S2 = 9
S3 = 11
S4 = 14
For A = 33 To 41
   R = 4
   Call 排班1
Next A
  Next D

End Sub

Sub 排班1()

執掌 = Sheets(1).Cells(A, D + 5)
Select Case 執掌
Case "4"
      Sheets(D + 1).Cells(S1, R) = Sheets(1).Cells(A, 4)
      S1 = S1 + 1
Case "7"
      Sheets(D + 1).Cells(S2, R) = Sheets(1).Cells(A, 4)
      S2 = S2 + 1
Case "1"
      Sheets(D + 1).Cells(S3, R) = Sheets(1).Cells(A, 4)
      S3 = S3 + 1
Case "2"
      Sheets(D + 1).Cells(S4, R) = Sheets(1).Cells(A, 4)
      S4 = S4 + 1
Case Else
End Select

End Sub