[發問] 依其他儲存格的條件取代字串

本帖最後由 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)

20131011103516066.png (8.01 KB)

savoir

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Vista
軟體版本: Office 2010
閱讀權限: 10
性別: 女
註冊時間: 2013-10-11
最後登錄: 2013-10-23

5^#

發表於 2013-10-23 19:19 | 只看該作者

本帖最後由 savoir 於 2013-10-23 19:20 編輯

回復 4# oobird

感謝版大回覆！
舉我們某個專櫃實際上班時間為例，

週一~週四：A班=A1、B班=B1、C班=C1
週五：A班=A1、B班=B2、C班=C3
週六：A班=A3、B班=B2、C班=C5
週日：A班=A3、B班=B1、C班=C2

紅字部分與原本A1、B1、C1的代號有所不同，
如同附件的取代前是原本的A、B、C班，取代後則有了A1、A3、B1、B2、C1、C2、C5等代號，
感謝版大解惑！

班表匯入格式(取代前／後).rar (8.2 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2013-10-11 16:29 | 只看該作者

本帖最後由 oobird 於 2013-10-11 16:30 編輯

你得把要求說清楚才有辦法。
試試把If Weekday(Cells(1, c.Column), 2) > 5 Then
改為If Weekday(Cells(1, c.Column), 2) > 4 Then
看看是不是你的意思。

TOP

savoir