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

p6703

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

kimbal

回復 1# p6703


工作表是執行後新加上?
第一段是同時加上  "上午","下午" 兩份.
第二段是按當運行時時間加上

1. Sub ampm()
   
2.     Worksheets.Add
   
3.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-上午"
   
4.     Worksheets.Add
   
5.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-下午"
   
6. End Sub
   
7. 
   
8. Sub bytime()
   
9.     Worksheets.Add
   
10.     ActiveSheet.Name = Format(Now(), "MM-DD") & "-" & IIf(Hour(Now()) >= 12, "下午", "上午")
    
11. End Sub

複製代碼

GBKEE

回復 1# p6703

1. Sub Ex()
   
2.     ActiveSheet.Name = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
   
3. End Sub

複製代碼

p6703

感謝二位版主的指導,小弟執行已可符合需求,但又有一延伸問題請教

因原執行時已產生一個1018-下午的工作表,當再次執行時即秀出錯誤(原工作表已有該名稱)

是否可將再次執行產生的工作表名稱依序增加格式為:1018-下午(2),1018-下午(3)....

再次感謝版主的教導,謝謝...^^

GBKEE

回復 4# p6703
試試看

1. Option Explicit
   
2. Sub EX()
   
3.     Dim xlName As String, Sh As Worksheet, i As Integer
   
4.     xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
   
5.     On Error GoTo R:
   
6.     With Sheets.Add(, Sheets(Sheets.Count))
   
7.         ActiveSheet.Name = xlName
   
8.     End With
   
9. R:
   
10.     If Err.Number <> 0 Then
    
11.         For Each Sh In Sheets
    
12.             If InStr(Sh.Name, xlName) Then i = i + 1
    
13.         Next
    
14.         xlName = xlName & "(" & i & ")"
    
15.         Err.Clear
    
16.         Resume
    
17.     End If
    
18. End Sub

複製代碼

p6703

感謝GBKEE 版主，修改的確可如小弟告知的依序將同時段的工作表自動序號增加

但可能有點誤會小弟的意思了，小弟再說明一下
我指定的工作表是以其他的巨集執行產生的，可能就類似一個"新訂單"工作表，希望執行現請教的巨集後，即可將該工作表名稱自動變更成1018-下午形式，但當天可能又會再重新跑一次，又再產生一次新訂單工作表，如再按巨集執行時，名稱即變成1018-下午(1)（現執行巨集時是原工作表仍存在）

GBKEE

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

1. Option Explicit
   
2. Sub 新訂單()
   
3.     Dim xlName As String, Sh As Worksheet
   
4.     Dim Msg As Boolean
   
5.     xlName = Format(Now(), "mmdd") & "-" & Mid(Format(Time(), "C"), 1, 2)
   
6.     For Each Sh In Sheets
   
7.         If InStr(Sh.Name, xlName) Then Msg = True: Exit For
   
8.     Next
   
9.     If Msg = False Then   '沒比對到
   
10.         Sheets.Add(, Sheets(Sheets.Count)).Name = xlName
    
11.     Else
    
12.         With Sh           '比對到
    
13.             If Mid(.Name, 9) = "" Then   '尚未有()
    
14.             .Name = .Name & "(1)"
    
15.             Else                         '已有()
    
16.                 .Name = xlName & "(" & Val(Mid(.Name, 9)) + 1 & ")"
    
17.             End If
    
18.         End With
    
19.     End If
    
20. End Sub

複製代碼

p6703

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

GBKEE

回復 8# p6703
再試試看

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

複製代碼

p6703

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