¤¤¤åÅܤF­^¤å, ¦ó¸Ñ,

hong912

½Ð±Ð¤j¤j­Ì, ¤@­ÓÅV¥Ü°ÝÃD, ªþÀɤW¶Ç, ¤º¦³»¡©ú,
¥ý¦æÁ¹L¦U«e½ú, ·P®¦,
AB.rar (49.58 KB)

¤U¸ü¦¸¼Æ: 11

2015-11-23 12:25

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

stillfish00

¦^´_ 1# hong912
§ï¥Î [$-404]aaa  ¬Ý¯à¤£¯à¸Ñ¨M¡C

hong912

¦^´_ 2# GBKEE
ÁÂÁª©¤j¦^À³,
¤w¸Õ¹L°ÝÃD¤w¸Ñ¨M, ·PÁÂ, ¯¬§Ö¼Ö.

hong912

¦^´_ 3# stillfish00
ÁÂÁ¼ӥD¦^À³, ¼Ó¥D´£¥Ü§ï¥Î [$-404]aaa¸Õ¸Õ, ¥i§_©ú½T»¡©ú, ¦]¥\¤O«Ü²L,
ÁÂÁÂ!!

stillfish00

¦^´_ 5# hong912
[$-404] ¬°¦a°Ï¥N½X¡Aªí¥Ü¤¤¤å(¥xÆW)

¦]¬°¤é´Á®æ¦¡ aaa ¨Ì¤£¦P¦a°ÏÅã¥Ü¤£¤@¼Ë
¨Ò¦p§A¦bÀx¦s®æ¥´ =TEXT(NOW(),"[$-409]aaa")
·|¥X²{"Tue" ([$-409]ªí¥Ü¬ü°ê)¡A¦Ó¤£¬O§A­nªº "¶g¤G"

­ã´£³¡ªL

arr(2, d) = Mid("¤»¤é¤@¤G¤T¥|¤­", DateSerial(y, m, d) Mod 7 + 1, 1)

hong912

¦^´_ 6# stillfish00
¨ü±Ð¤F, ·PÁ«ü¾É, ÁÂÁÂ!!

hong912

¦^´_ 7# ­ã´£³¡ªL
°J¤ß·PÁ¦^À³, ÁÂÁÂÁÂ!