li_hsien

¦^´_ 1# paul3063

§@ªk¥i¯à»Ý­n¼gVBA

µ{¦¡½X¦p¤U

1. Option Explicit
   
2. 
   
3. Private Sub Workbook_Open()
   
4.    
   
5.     Dim i, flag As Integer
   
6.    
   
7.     flag = 0
   
8.    
   
9.     '§PÂ_¤u§@ªí¬O§_¦s¦b
   
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.     '­Y¤u§@ªí¤£¦s¦b §PÂ_¬O§_¬°¤»¤é (weekday ¬P´Á¤é=1 ¬P´Á¤»=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

½Æ»s¥N½X

¹ê§@ªþ¥ó¦p¤U
AddWorksheet.zip (9.81 KB)

¤U¸ü¦¸¼Æ: 16

2017-12-11 09:43