返回列表下一主題上一主題發帖

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

小路西法

中學生 Rank: 2

帖子: 32
主題: 8
精華: 0
積分: 71
點名: 0
作業系統: WINDOWS7
軟體版本: ..
閱讀權限: 20
註冊時間: 2016-6-20
最後登錄: 2020-10-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-8-23 09:16 | 只看該作者

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

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

樓主熱帖

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

4^#

發表於 2017-8-29 09:58 | 只看該作者

Try this:

Sub zz()
Dim md$, t As Boolean
md = Format(Date, "mmdd")
For i = 1 To Sheets.Count
If Sheets(i).Name = md Then t = True: Exit For
Next
If t Then
Sheets(md).Activate
Else
Sheets.Add before:=Sheets(1)
ActiveSheet.Name = md
End If
End Sub

複製代碼

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 99
主題: 15
精華: 0
積分: 164
點名: 2
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-10-5

3^#

發表於 2017-8-28 18:44 | 只看該作者

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

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

TOP

fengetianxia

中學生 Rank: 2

帖子: 93
主題: 3
精華: 0
積分: 134
點名: 0
作業系統: WINDOWS7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-3-21
最後登錄: 2020-11-30

2^#

發表於 2017-8-24 10:12 | 只看該作者

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

TOP

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題