p6703

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-10-18 11:53 | 只看該作者

依當下執行時間，如何自動將指定工作表名稱修改成此格式"1018-上午"???

原工作表名稱如想依當天日期上下午各儲存如"1018-上午",或"1018-下午"名稱時，請問如何可以巨集自動執行達成???

樓主熱帖

p6703

中學生 Rank: 2

帖子: 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

複製代碼

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兔年全勤獎章

14^#

發表於 2012-10-23 10:30 | 只看該作者

回復 13# p6703
是這樣嗎?
7# 程式碼

If Msg = False Then '沒比對到
MsgBox "找不到 " & xlName
'註解 Sheets.Add(, Sheets(Sheets.Count)).Name = xlName
Else

複製代碼

TOP

p6703

中學生 Rank: 2

帖子: 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），以此類推.....

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兔年全勤獎章

12^#

發表於 2012-10-23 09:43 | 只看該作者

回復 11# p6703
現在我已弄不清楚了,你執行一次後要的是什麼?
你說: 新訂單工作表--->日期+上(下)午工作表（工作表名稱變更，非新增工作表）
Q:活頁簿中: 日期+上(下)午工作表是每天的日期都有一張嗎?
還是活頁簿中不管是日期為何,都只有 (當日日期) 一張日期+上(下)午工作表 ?

TOP

p6703

中學生 Rank: 2

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

11^#

發表於 2012-10-23 09:07 | 只看該作者

GBKEE版主，這二天執行發現有點問題，按此巨集執行，雖然可產生日期+上下午(序號)工作表，但該工作表中無任何資料，而且每日新訂單工作表仍在，小弟原以為是自己將程式碼加入關係造成，但後單獨只以版主提供的程式碼執行時，仍是此情況，請GBKEE版主再協助確認，謝謝
首次執行巨集：
新訂單工作表--->日期+上(下)午工作表（工作表名稱變更，非新增工作表）
當天再次執行巨集（當天可能會再捉一次新訂單工作表）：
新訂單工作表--->日期+上(下)午(序號)工作表（工作表名稱變更，非新增工作表）

TOP

p6703

中學生 Rank: 2

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

10^#

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

感謝GBKEE版主可以了^^..不過小弟在家測試時跑出的格式竟然是1019-23(-->此變成時間)，我在公司跑的時候都是上下午的．．待週一再到公司試試^^再次說聲謝謝啦^^

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兔年全勤獎章

9^#

發表於 2012-10-19 20:34 | 只看該作者

回復 8# p6703
再試試看

Option Explicit
Sub 新訂單()
Dim xlName As String, Sh As Worksheet
Dim xMsg As Integer
xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
For Each Sh In Sheets
If InStr(Sh.Name, xlName) Then xMsg = xMsg + 1
Next
Sheets.Add(, Sheets(Sheets.Count)).Name = xlName & IIf(xMsg > 0, "(" & xMsg & ")", "")
End Sub

複製代碼

TOP

p6703

中學生 Rank: 2

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

8^#

發表於 2012-10-19 17:35 | 只看該作者

感謝GBKEE 版主立即的回覆，但小弟表達實在不佳，又讓GBKEE版主誤會
我想要的是當第一次執行巨集時，新訂單工作表--->1018-下午
當天可能會再有一次新工單工作表，當再次執行時，原1018-下午的工作表仍在，增加了新工作表1018-下午(2)
以此推類，也就是如果我當天執行三次巨集，就會產生三個工作表
==>1018-下午，1018-下午(2)，1018-下午(3)

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兔年全勤獎章

7^#

發表於 2012-10-19 10:40 | 只看該作者

回復 6# p6703
所以要說明白的

Option Explicit
Sub 新訂單()
Dim xlName As String, Sh As Worksheet
Dim Msg As Boolean
xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
For Each Sh In Sheets
If InStr(Sh.Name, xlName) Then Msg = True: Exit For
Next
If Msg = False Then '沒比對到
Sheets.Add(, Sheets(Sheets.Count)).Name = xlName
Else
With Sh '比對到
If Mid(.Name, 9) = "" Then '尚未有()
.Name = .Name & "(1)"
Else '已有()
.Name = xlName & "(" & Val(Mid(.Name, 9)) + 1 & ")"
End If
End With
End If
End Sub

複製代碼

TOP