[µo°Ý] ¦p¦ó¨ÏEXCELÀɮסA¨C¤Ñ²Ä¤@¦¸¥´¶}®É¡A¥Î·í¤Ñ¤é´Á¦Û°Ê·s¼W¤@­Ó¤u§@ªí

paul3063

¦p¦ó¨ÏEXCELÀɮסA¨C¤Ñ²Ä¤@¦¸¥´¶}®É¡A¥Î·í¤Ñ¤é´Á¦Û°Ê·s¼W¤@­Ó¤u§@ªí
°²³]¤µ¤Ñ¬O2017¦~12¤ë8¸¹¬P´Á¤­¡A·íEXCEL²Ä¤@¦¸¥´¶}®É¡A¥Î·í¤Ñ¤é´Á§@¬°¦WºÙ(20171208)¡A·s¼W¤@­Ó¤u§@ªí¡C
¦pªG¤µ¤Ñ¬O¬P´Á¤»¸ò¬P´Á¤é´N¤£·s¼W¡A²Ä¤G¦¸¥´¶}®É¤]¤£·s¼W¡C
½Ð¦U¦ì°ª¤âÀ°¦£¤@¤U¡AÁÂÁ¡C

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

paul3063

¦^´_ 2# li_hsien

li_hsien¤j¡A
¦pªG­n¦h¼W¥[¤@­Ó·í¤Ñ¤é´Á«á­±¦h¤@­ÓAªº¤u§@ªí(¨Ò¦p20171212A)­n«ç¼Ë­×¸Óµ{¦¡½X?
¥i¤£¥i¥H¦A³Â·Ð±z¤@¤U

infoverdad

¦^´_ 4# paul3063


  ±N¨â­Ó Application.Text(Now(), "yyyymmdd") «á­±³£¥[¤W & "A"

baa168

¨S·Q¨ì excel ªº vba ³ºµM¦³³oºØ¥Îªk
¤Ó¹ê¥Î¤F