Hsieh

¦^´_ 3# mfsong

1. Sub ex()
   
2. Dim Mydate#, d%, Rng As Range, A As Range
   
3. d = InputBox("¿é¤J°ò·Ç¤é", , 13)
   
4. ym = Format([B1], "yyyy/")
   
5. Set Rng = UsedRange.Columns(1)
   
6. For i = 1 To 12
   
7.   Mydate = DateValue(ym & i & "/" & d)
   
8.   k = d
   
9.   Do Until IsNumeric(Application.Match(Mydate, Rows(1), 0))
   
10.   k = k - 1
    
11.   If k < 1 Then GoTo 10
    
12.   Mydate = DateValue(ym & i & "/" & k)
    
13.   Loop
    
14.   Mydate = DateValue(ym & i & "/" & k)
    
15.   Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
    
16.   Set Rng = Union(Rng, A)
    
17. 10
    
18. Next
    
19. Rng.Select '¿ï¨ú¸ê®Æ½d³ò
    
20. End Sub

½Æ»s¥N½X