標題: [發問] 想請教各位前輩~一個VBA的問題 [打印本頁]

---

作者: 小路西法    時間: 2017-8-23 09:16     標題: 想請教各位前輩~一個VBA的問題

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

---

作者: fengetianxia    時間: 2017-8-24 10:12

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

---

作者: zheng211016    時間: 2017-8-28 18:44

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

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

---

作者: ikboy    時間: 2017-8-29 09:58

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)