Hsieh

µLªk±oª¾¦~¤À

Hsieh

¦^´_ 3# ©P¤j°¶

nn.rar (5.86 KB)

¤U¸ü¦¸¼Æ: 34

2011-6-16 23:48

Hsieh

¦^´_ 6# 317


¥H4#Àɮ׬°¨Ò
­ì¨Ó²Ä2¦C¬O¥Ñ¨Ï¥ÎªÌ¦Û¦æ¿é¤J
§ï¥Î¤½¦¡
G2=IF(MONTH(DATE($AL$1,y,COLUMN(A1)))<>--y,"",DAY(DATE($AL$1,y,COLUMN(A1))))
G3=IF(G2="","",CHOOSE(WEEKDAY(--($AL$1&"/"&SUBSTITUTE(MID(x,FIND("]",x)+1,3),"¤ë","")&"/1")+G2-1,2),"¤@","¤G","¤T","¥|","¤­","¤»","¤é"))
¦V¥k½Æ»s
¦]¬°¤u§@ªí¦WºÙ¬O¤ë¥÷¡A©Ò¥H¨Ï¥Î¤½¦@©w¸q¨ú¥X¤u§@ªí¦WºÙªº¼Æ¦r³¡¤À·í§@¤ë¥÷¡A³o¼Ë§ó§ï¤u§@ªí¦WºÙ»P¦~¥÷ªº¼Æ­È´N¯à¥¿½TÅã¥Ü¤é´Á
¤é¾ä.rar (11.49 KB)

¤U¸ü¦¸¼Æ: 22

2011-6-19 09:46

Hsieh

¦^´_ 7# ©P¤j°¶
¬Ý¤£À´§A­n¦p¦ó¾ã²z¦h¦~¸ê®Æ
¬Ý¬Ý8#Àɮ׬O§_§A¯àÀ³¥Î¡A¦A§â§Aªº»Ý¨DÁ¿²M·¡

Hsieh

¦^´_ 11# 317


    ¤½¦¡¤¤ªºx¬O¨Ï¥Îcell¨ç¼Æ±o¨ìªºfilename
§A¦b¨ä¥¦ªÅ¥Õ³B¼g¤J¤½¦¡=x´Nª¾¹Dx¤º®e¬O¤°»ò
¬Ý¤¤¬A¸¹¤º¥Nªíªº¬O°Ñ·Ó¤¤ªº¤°»ò¦ì¸m´Nª¾¹Dfindªº§@¥Î¤F

Hsieh

¦^´_ 14# ©P¤j°¶


    ¥¨¶°¤½¦¡?
§Úªº¤èªk¨S¦³¥Î¨ì¥¨¶°ªü
À³¸Ó¬O©w¸q¦WºÙªº°ÝÃD
§A­n§â©w¸q¦WºÙ¦b·s¬¡­¶Ã¯¤¤«Ø¥ß
¨Ã¥B¸ÓÀɮפw¸gÀx¦s
¦Ü©ó¸Ó°T®§§Ú´N¨S¹J¹L¤£ª¾¬O¬°¦ó²£¥Íªº

Hsieh

¦^´_ 17# 317

1. Sub Ex()
   
2. Dim Ar()
   
3.    y = [AL1]
   
4.    m = Val(ActiveSheet.Name)
   
5.    If m < 1 Or m > 12 Then MsgBox "¤u§@ªí¦WºÙ»Ý­n²Å¦X1~12¤ë": Exit Sub
   
6.    d = 1
   
7.    mydate = DateSerial(y, m, d)
   
8.    Do Until Month(mydate) <> m
   
9.      ReDim Preserve Ar(s)
   
10.      k = Format(mydate, "aaa")
    
11.      Ar(s) = Array(d, Format(mydate, "aaa"))
    
12.      s = s + 1
    
13.      d = d + 1
    
14.      mydate = DateSerial(y, m, d)
    
15.    Loop
    
16.    [G2:AK3] = ""
    
17.    [G2].Resize(2, s) = Application.Transpose(Ar)
    
18. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 19# 317


         Ar(s) = Array(d, Replace(Format(mydate, "aaa"), "¶g", ""))

Hsieh

¦^´_ 22# 317

¥i¯à¬Oª©¥»°ÝÃD
Formatªº®æ¦¡¥Î"aaa"¦b§Úªº¹q¸£¤W¬OÅã¥Ü"¶g¤é"
¦pªG§Aªº¹q¸£¤WÅã¥Ü¬O"¬P´Á¤é"
¨º´N±NReplaceªº¦r¦ê§ï¦¨"¬P´Á"§Y¥i
Ar(s) = Array(d, Replace(Format(mydate, "aaa"), "¬P´Á", ""))
©Î
Ar(s) = Array(d, Right(Format(mydate, "aaa"),1))

Hsieh

¦^´_ 25# ©P¤j°¶

1. Sub Ex()
   
2. Dim y$, Ar(), w$, j%, i%
   
3. y = InputBox("¿é¤J¦~¤À", , Year(Date))
   
4. If y = "" Then Exit Sub
   
5. For i = 1 To 12
   
6.    d = Day(DateAdd("m", 1, DateSerial(CInt(y), i, 1)) - 1)
   
7.    ReDim Preserve Ar(1 To 2, 1 To d)
   
8.    For j = 1 To d
   
9.    w = Replace(Format(Weekday(DateSerial(CInt(y), i, j), 2), "aaa"), "¶g", "")
   
10.       Ar(1, j) = j
    
11.       Ar(2, j) = w
    
12.    Next
    
13.    Sheets(i & "¤ë").[G2:AK3] = ""
    
14.    Sheets(i & "¤ë").[G2].Resize(2, d) = Ar
    
15.    Erase Ar
    
16. Next
    
17. End Sub

½Æ»s¥N½X