oobird

1. Sub Ex()
   
2.     Dim y%, m%, n%, d%
   
3.     y = [am1]
   
4.     For m = 1 To 12
   
5.         With Sheets(m & "¤ë")
   
6.             .[g2:ak3] = ""
   
7.             n = Day(DateSerial(y, m + 1, 1) - 1)
   
8.             ReDim arr(1 To 2, 1 To n)
   
9.             For d = 1 To n
   
10.                 arr(1, d) = d
    
11.                 arr(2, d) = Right(Application.Text(DateSerial(y, m, d), "aaa"), 1)
    
12.             Next
    
13.             .[g2].Resize(2, n) = arr
    
14.         End With
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

aa.rar (25.32 KB)

¤U¸ü¦¸¼Æ: 8

2011-10-8 23:54