GBKEE

¦^´_ 5# mfsong

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Mydate As Double, d As Integer, Rng As Range, A As Range, yy As Integer, i As Integer, k As Integer
   
4.     d = InputBox("¿é¤J°ò·Ç¤é", , 13)
   
5.     Set Rng = UsedRange.Columns(1)
   
6.     For yy = Year([B1]) To Year([B1].End(xlToRight))        '¦~«×
   
7.         For i = 1 To 12                                     '¤ë¥÷
   
8.             For k = d To 1 Step -1                          '©¹«e§ä¤é´Á
   
9.                 Mydate = DateValue(yy & "/" & i & "/" & k)
   
10.                 If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
    
11.                     Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
    
12.                     GoTo 10
    
13.                 End If
    
14.             Next
    
15.             For k = d + 1 To Day(DateAdd("m", 1, DateValue(yy & "/" & i)) - 1) '©¹«á§ä¤é´Á
    
16.                 Mydate = DateValue(yy & "/" & i & "/" & k)
    
17.                 If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
    
18.                     Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
    
19.                     GoTo 10
    
20.                 End If
    
21.             Next
    
22. 10
    
23.             If Not A Is Nothing Then Set Rng = Union(Rng, A)
    
24.             Set A = Nothing
    
25.         Next
    
26.     Next
    
27.     Rng.Select '¿ï¨ú¸ê®Æ½d³ò
    
28. End Sub

½Æ»s¥N½X