GBKEE

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

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim y%, m%, n%, d%, AR()
   
4.     AR = Array(0, "¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤é")
   
5.     y = InputBox("¿é¤J¦~¤À", , Year(Date))
   
6.     For m = 1 To 12
   
7.         With Sheets(m & "¤ë")
   
8.             .[g2:ak3] = ""
   
9.             n = Day(DateSerial(y, m + 1, 1) - 1)
   
10.             ReDim arr(1 To 2, 1 To n)
    
11.             For d = 1 To n
    
12.                 arr(1, d) = d
    
13.                 arr(2, d) = AR(Weekday(DateSerial(y, m, d), vbMonday))
    
14.             Next
    
15.             .[g2].Resize(2, n) = arr
    
16.         End With
    
17.     Next
    
18. End Sub

½Æ»s¥N½X