[發問] 想請教各位前輩~一個VBA的問題

小路西法

下載 (33.01 KB)

2017-8-23 09:15

想請問如果我每天都會更新日期~如何寫才能讓VBA巨集主動抓新的日期~而不需要每天手動去更新~感謝^^

ikboy

Try this:

1. Sub zz()
   
2. Dim md$, t As Boolean
   
3. md = Format(Date, "mmdd")
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name = md Then t = True: Exit For
   
6. Next
   
7. If t Then
   
8.     Sheets(md).Activate
   
9. Else
   
10.     Sheets.Add before:=Sheets(1)
    
11.     ActiveSheet.Name = md
    
12. End If
    
13. End Sub

複製代碼

zheng211016

如果 你只是想要拿今天月份日期建立新工作表的話
不仿試試看我的巨集
不是老手 多見諒

Sub 取得今天月份日期建立為新工作表()
    ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
    i = ActiveSheet.Name
    Sheets(i).Name = Format(Now(), "mmdd")
End Sub

fengetianxia

你每天都在最前面增加頁面的話,就將相關內容都換成sheets(1).