h60327

帖子: 39
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: XP3
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2023-3-22

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-8-13 15:57 | 只看該作者

[發問] 3段式輪班法

123.rar (7.22 KB) 請教各位先進，有一輪值表分為3種輪值方式，輪值人員為B90-E128範圍，並依平日上班時段分為2班，平日下班時段1班，以及例假日2班，3種班表各自輪流服勤，假設7月1日(星期日)由A8開始輪值，7月2日上班日第1班由S1開始輪值，7月2日平常日下班時段由A1開始輪值，請問是否可用VBA取得每月之輪值表呢？麻煩各位先進了。

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-8-14 08:06 | 只看該作者

回復 1# h60327
試試看

輪值表.rar (12.5 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-8-14 08:34 | 只看該作者

回復 2# GBKEE
排班 R, Range(R)
請教您第二個引入參數，為何使用 Range(R)，其用意何在？

TOP

h60327

中學生 Rank: 2

帖子: 39
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: XP3
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2023-3-22

論壇贊助勳章

4^#

發表於 2012-8-14 09:18 | 只看該作者

不是很了解，但是透過定義名稱取得每一個班表的輪序是一個好構想，只是由於每一個月的星期排序並未固定，可否透過程序自動調整調整顯示呢？例如7月1日是星期日，8月1日是星期三等，再次感謝

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-8-14 10:06 | 只看該作者

本帖最後由 GBKEE 於 2012-8-14 10:48 編輯

回復 3# c_c_lai ]
Range(R)，其用意何在？
R="平日" ->  Range("平日")
定義"平日" 的範圍"A1:C10"  => Range("A1:C10")

回復 4# h60327
三個班表的輪序都有註明輪序符號
每月制定排班表示都依每段班表最後符號開始, 應該不需理會每月的星期排序吧.

當輪序到底時,會回到第一個員工開始輪序