返回列表 上一主題 發帖

[發問] 如何使EXCEL檔案，每天第一次打開時，用當天日期自動新增一個工作表

paul3063

帖子
40 
主題
10 
精華
0 
積分
97 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
台灣台南 
註冊時間
2016-8-26 
最後登錄
2018-10-31 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-12-9 18:15 | 只看該作者

[發問] 如何使EXCEL檔案，每天第一次打開時，用當天日期自動新增一個工作表

如何使EXCEL檔案，每天第一次打開時，用當天日期自動新增一個工作表
假設今天是2017年12月8號星期五，當EXCEL第一次打開時，用當天日期作為名稱(20171208)，新增一個工作表。
如果今天是星期六跟星期日就不新增，第二次打開時也不新增。
請各位高手幫忙一下，謝謝。
收藏 分享

baa168

帖子
119 
主題
14 
精華
0 
積分
138 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-6 
最後登錄
2019-5-4 
5#
發表於 2017-12-22 08:16 | 只看該作者
沒想到 excel 的 vba 竟然有這種用法
太實用了

TOP

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
275  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
4#
發表於 2017-12-12 22:21 | 只看該作者
回復 4# paul3063


  將兩個 Application.Text(Now(), "yyyymmdd") 後面都加上 & "A"

TOP

paul3063

帖子
40 
主題
10 
精華
0 
積分
97 
點名
0  
作業系統
WINDOWS 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
台灣台南 
註冊時間
2016-8-26 
最後登錄
2018-10-31 
3#
發表於 2017-12-12 21:57 | 只看該作者
回復 2# li_hsien

li_hsien大，
如果要多增加一個當天日期後面多一個A的工作表(例如20171212A)要怎樣修該程式碼?
可不可以再麻煩您一下

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
217  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2017-12-11 09:44 | 只看該作者
回復 1# paul3063

作法可能需要寫VBA

程式碼如下
  1. Option Explicit

  3. Private Sub Workbook_Open()
  4.    
  5.     Dim i, flag As Integer
  6.    
  7.     flag = 0
  8.    
  9.     '判斷工作表是否存在
  10.     For Each i In Worksheets
  11.         If i.Name = Application.Text(Now(), "yyyymmdd") Then
  12.             flag = 1
  13.             Exit For
  14.         End If
  15.     Next
  16.    
  17.     '若工作表不存在 判斷是否為六日 (weekday 星期日=1 星期六=7)
  18.     If Weekday(Now()) <> 7 And Weekday(Now()) <> 1 And flag = 0 Then
  19.         
  20.         Worksheets.Add.Name = Application.Text(Now(), "yyyymmdd")
  21.    
  22.     End If
  23.    
  24. End Sub
複製代碼
實作附件如下
AddWorksheet.zip (9.81 KB)
用功到世界末日那一天∼∼∼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題