返回列表 上一主題 發帖

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

小路西法

帖子
32 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
WINDOWS7 
軟體版本
.. 
閱讀權限
20 
註冊時間
2016-6-20 
最後登錄
2020-10-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-8-23 09:16 | 只看該作者

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

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

fengetianxia

帖子
93 
主題
3 
精華
0 
積分
134 
點名
0  
作業系統
WINDOWS7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-3-21 
最後登錄
2025-5-30 
2#
發表於 2017-8-24 10:12 | 只看該作者
你每天都在最前面增加頁面的話,就將相關內容都換成sheets(1).

TOP

zheng211016
　暱稱: zheng逸

中學生Rank: 2

帖子
99 
主題
15 
精華
0 
積分
164 
點名
0  
作業系統
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

ikboy

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

2016猴年全勤獎章
4#
發表於 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
複製代碼

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題