返回列表 上一主題 發帖

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

li_hsien

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題