- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2013-10-11
- 最後登錄
- 2013-10-23
|
本帖最後由 savoir 於 2013-10-11 13:41 編輯
公司的會計小姐每到月底就要花一整天取代各店班別代號才能匯入人事系統，而且很常出錯，
所以我希望能讓她們使用vba自動依條件取代代號，在各大論壇、網站搜尋、爬文似乎找不到符合需求的介紹，
因此誠心發問，希望能找出解決之道，讓會計大姊們不會一到月底想到班表就心慌慌^^
以下是取代前的班表，各店排班都是直接依照A、B、C、休下去排，
但因為假日上下班時間不同系統需要班別代號識別：
週一~週五：A班=A1；B班=B1；C班=C1
週六、周日：A班=A2；B班=B2；C班=C2
「休」不予取代。
取代完成後的班表會變成這樣：
因為平常只使用Excel函數功能，很少接觸vba，用巨集錄製後的程式是這樣：- Sub 取代()
- '
- ' 取代 巨集
- '
- ' 快速鍵: Ctrl+i
- '
- Cells.Replace What:="A", Replacement:="A1", LookAt:=xlPart, SearchOrder _
- :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
- Cells.Replace What:="B", Replacement:="B1", LookAt:=xlPart, SearchOrder _
- :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
- Cells.Replace What:="C", Replacement:="C1", LookAt:=xlPart, SearchOrder _
- :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
- End Sub
想請前輩們指導應該如何設定條件取代成不同的代號，感激不盡！
 班表取代.rar (10.14 KB)
|
|
發表於 2013-10-11 13:39
| 
發表於 2013-10-11 14:09
| 
