依當下執行時間,如何自動將指定工作表名稱修改成此格式"1018-上午"???
- 帖子
- 134
- 主題
- 27
- 精華
- 0
- 積分
- 168
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2010-10-6
- 最後登錄
- 2018-5-13

|
GBKEE版主,這二天執行發現有點問題,按此巨集執行,雖然可產生日期+上下午(序號)工作表,但該工作表中無任何資料,而且每日新訂單工作表仍在,小弟原以為是自己將程式碼加入關係造成,但後單獨只以版主提供的程式碼執行時,仍是此情況,請GBKEE版主再協助確認,謝謝
首次執行巨集:
新訂單工作表--->日期+上(下)午工作表(工作表名稱變更,非新增工作表)
當天再次執行巨集(當天可能會再捉一次新訂單工作表):
新訂單工作表--->日期+上(下)午(序號)工作表(工作表名稱變更,非新增工作表) |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2012-10-23 09:43
| 只看該作者
回復 11# p6703
現在我已弄不清楚了,你執行一次後要的是什麼?
你說: 新訂單工作表--->日期+上(下)午工作表(工作表名稱變更,非新增工作表)
Q:活頁簿中: 日期+上(下)午工作表 是每天的日期都有一張嗎?
還是活頁簿中不管是日期為何,都只有 (當日日期) 一張 日期+上(下)午工作表 ? |
|
|
|
|
|
|
- 帖子
- 134
- 主題
- 27
- 精華
- 0
- 積分
- 168
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2010-10-6
- 最後登錄
- 2018-5-13

|
13#
發表於 2012-10-23 10:17
| 只看該作者
GBKEE版主,容小弟再解釋
一般一天會上下午各去捉取一次新訂單
上午捉取的新訂單工作表(此我是又另外用巨集去捉取的),執行巨集後,變成1023-上午(此時原新訂單工作表已變更此名稱)
但有時上午會捉取不止一次,當第二次捉取新訂單工作表時,執行巨集時,應變成了1023-上午(1),以此類推..... |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
14#
發表於 2012-10-23 10:30
| 只看該作者
回復 13# p6703
是這樣嗎?
7# 程式碼- If Msg = False Then '沒比對到
- MsgBox "找不到 " & xlName
- '註解 Sheets.Add(, Sheets(Sheets.Count)).Name = xlName
- Else
複製代碼 |
|
|
|
|
|
|
- 帖子
- 134
- 主題
- 27
- 精華
- 0
- 積分
- 168
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2010-10-6
- 最後登錄
- 2018-5-13

|
15#
發表於 2012-10-23 11:14
| 只看該作者
GBKEE 版主,小弟按原4#提供的程式巨集稍做修改,可符小弟的需求,在次再次感謝GBKEE 版主,謝謝....(原巨集應是新增工作表,但小弟需求的是將原工作表變更名稱,以便之後再新增"每日新訂單"工作表時不致錯誤)- Option Explicit
- Sub 已核對的訂單可轉成日期名稱()
- Dim xlName As String, Sh As Worksheet, i As Integer
- xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
- On Error GoTo R:
- Sheets("每日新訂單").Select
- ActiveSheet.Name = xlName
- R:
- If Err.Number <> 0 Then
- For Each Sh In Sheets
- If InStr(Sh.Name, xlName) Then i = i + 1
- Next
- xlName = xlName & "(" & i & ")"
- Err.Clear
- Resume
- End If
- End Sub
複製代碼 |
|
|
|
|
|
|