GBKEE

¦^´_ 2# t8899
   

·Q¤F¤@­Ó¤p®É  :-(

·Q¨ì¤F,´N¬O§Aªº.
¥i°Ñ¦Ò¤@¤U

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim rng As Range, E, eDAY As Date, i As Integer
   
4.     eDAY = Date
   
5.     If Weekday(eDAY, vbMonday) >= 6 Then MsgBox eDAY & " ¬O°²¤é": Exit Sub
   
6.     i = IIf(Weekday(eDAY, vbMonday) <= 3, 5, 3)
   
7.     For Each rng In Range("AE4:AE15")
   
8.         If IsDate(rng) And Int(eDAY - rng) >= 0 And Int(eDAY - rng) <= i Then
   
9.             If Weekday(rng, vbMonday) < 6 Then
   
10.                 MsgBox rng & " «e " & Int(eDAY - rng) & " ³qª¾"               
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X