GBKEE

¦^´_ 1# brabus
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.      Names.Add "UpdateDate", Date - 90, False
   
4.      '´ú¸Õ®É½Ð¥ý¦b¦¹©w¸q¦WºÙ µM«á§R±¼³o¦æµ{¦¡½X
   
5.      DayCheck
   
6. End Sub
   
7. Private Sub DayCheck()
   
8.      Dim Msg As Boolean, N As Name
   
9.      For Each N In Names
   
10.         If N.Name = "UpdateDate" Then   'À˹î§ó·s¤é´Á¬O§_¦s¦b
    
11.             Msg = True
    
12.             Exit For
    
13.         End If
    
14.      Next
    
15.      If Not Msg Then
    
16.         §Aªº§ó·sµ{¦¡
    
17.      ElseIf CDbl(Date) - [UpdateDate] >= 90 Or Day(Date) = 1 Then     '
    
18.        If Day(Date) = 1 Then                  '¦p¬O¨C¤ëªº²Ä1¤Ñ
    
19.             Select Case Month(Date)            '¤ë¥÷
    
20.                 Case 1, 4, 7, 10
    
21.                     MsgBox "§ó·sµ{¦¡"
    
22.                     §Aªº§ó·sµ{¦¡               '°õ¦æ§ó·sµ{¦¡
    
23.             End Select
    
24.         Else                                   '>=90¤Ñ
    
25.             MsgBox "§ó·sµ{¦¡"
    
26.             §Aªº§ó·sµ{¦¡                        '°õ¦æ§ó·sµ{¦¡
    
27.         End If
    
28.      End If
    
29. End Sub
    
30. Private Sub §Aªº§ó·sµ{¦¡()
    
31.     '§ó·sµ{¦¡½X
    
32.     '§ó·sµ{¦¡½X
    
33.     '§ó·sµ{¦¡½X
    
34.     '§ó·sµ{¦¡½X
    
35.     Names.Add "UpdateDate", Date, False   '³Ì«á§ó·s¤é´Á
    
36. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# brabus
¥i­×§ï3¤Ñ¤º§ó·sÁ׶}¶g¤»,¶g¤é.
ElseIf CDbl(Date) - [UpdateDate] >= 90 Or Day(Date) >= 1 And Day(Date) <= 3 Then     '