¦h­¶¥X³f¸ê®Æ¦p¦ó¦b·s¤À­¶¨Ì½d³ò¤é´Á¿ï¥X±Æ¦C©O? ¨Ì½d³ò¤é´Á¿ï¥X±Æ¦C

jimmy510

½Ð±Ð¦U¦ì¤j¤j:
§Ú¦bEXCEL¸ê®Æ¸Ì­±¦³¦h­Ó¤À­¶¦p¤U

¤U¸ü (75.09 KB)

2012-7-16 09:40

¤U¸ü (74.51 KB)

2012-7-16 09:41

¦³¿ìªk¥i¥H¦b·sªº¤À­¶¸Ì­±¨Ì«ü©wªº¤é´Á½d³ò±N¦h­Ó¤À­¶¤º²Å¦Xªº¸ê®Æ¦^¶Ç¨ì·s¤À­¶¤¤¶Ü?
°_¨Óªº®ÕªG¦p¤U­±ªº±Æ¦C..

¤U¸ü (80.7 KB)

2012-7-16 09:44

½Ðºë³qEXCELLªº¤j¤jÀ°§Ú¸Ñµª,ÁÂÁÂ..

jimmy510

¤@­Ó¦h¤ë¤F~©È¦U¦ì¤j¤j¤Ó¦£¨S¬Ý¨ì~~³»¤@¤U^^

jimmy510

¦^´_ 2# jimmy510
½d¨ÒÀɦpÀ£ÁYÀÉ,½Ð°Ý¥i¥H¦b·s¤À­¶¤¤±N¬Y°Ï¬q¤é´Áªº©Ò¦³¤À­¶¸ê®Æ±Æ¦C¥X¨Ó¶Ü?¨Ò¦p§Ú­n¿ï99/6/1¦Ü99/9/1©Ò¦³ªº¥X³f¸ê®Æ..
·Ð½Ð¸ê²`ªºª©¤ÍÀ°§Ú¤@¤U~ÁÂÁÂ..
¤å¥ó.rar (15.36 KB)

¤U¸ü¦¸¼Æ: 7

2012-8-23 13:24

jimmy510

©êºpÅo~¦A³»¤@¤U~§Ú¤å¥ó¤w¸g¤W¶Ç¤F~¦³ªÅªºª©¤ÍÀ°¦£¤@¤U§a^^~ÁÂÁÂ..

Hsieh

¦^´_ 4# jimmy510
¤£ª¾¹D¬O¤£¬O³o­Ó·N«ä
·J¾ã¸ê®Æ¤S¦³­pºâÄæ¦ì¥i¯à¥ÎVBA¤ñ¸û³æ¯Â

1. Sub ex()
   
2. Dim ar()
   
3. ReDim Preserve ar(s)
   
4. ar(s) = Array("¤Ø¤o", "¤é´Á", "¼Æ¶q", "³æ»ù", "Á`ÃB", "³Æµù")
   
5. s = 1
   
6. st = InputBox("¿é¤J°_©l¤é´Á", , Format(DateAdd("M", -12, Date), "e/m/d"))
   
7. st1 = InputBox("¿é¤J°_©l¤é´Á", , Format(Date, "e/m/d"))
   
8. For Each sh In Sheets
   
9. With sh
   
10.    If .Name Like "¤M¼Ò*" Then
    
11.      For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
    
12.        If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
    
13.           ReDim Preserve ar(s)
    
14.           ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
    
15.           s = s + 1
    
16.        End If
    
17.      Next
    
18.     End If
    
19. End With
    
20. Next
    
21. If s > 1 Then
    
22. With Worksheets.Add(after:=Sheets(Sheets.Count))
    
23. .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
    
24. End With
    
25. Else
    
26. MsgBox "¨S¦³²Å¦X¸ê®Æ"
    
27. End If
    
28. End Sub

½Æ»s¥N½X

jimmy510

¦^´_ 5# Hsieh


    ·PÁª©¤jªº¸Ñµª~§Ú´ú¸Õ«á¯uªº¬O§Ú·Q­nªºªF¦è~ÁÂÁÂ..¥i¬O¦³¨Ç¤p°ÝÃD·Q½Ð±Ð,·í§Ú±N³o­ÓVBA©ñ¨ì§Oªº¬¡­¶Ã¯¨Ï¥Î®É¥¨¶°¦A¶]®É¦³µo¥Í¿ù»~,°õ¦æ°»¿ù®É¶]¨ì
If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then ¿ù»~,½Ð°Ý¦³­þÃä»Ý­n½Õ¾ã¶Ü?

Hsieh

£¿¦^´_ 6# jimmy510


    §Aªº¤é´Á¨Ã«D¥¿½Tªº¤é´Á®æ¦¡
¨Ò¦p99/9/3³o·|³Q»{¬°¬O1999/9/3
¥i¯à¬O§Aªº¤é´Á¶W¥X¨t²Î³\¥i¤é´Á½d³ò
¾É­PCdate¨ç¼Æ¥X¿ù
½Ð¤W¶Ç¿ù»~ÀÉ®×¥HÂç²M­ì¦]

jimmy510

¦^´_ 7# Hsieh


    ª©¤j§A¦n,ªþ¤W¦³°ÝÃDªº¸ê®Æ,³Â·Ð§AÀ°§Ú¬Ý¤@¤U,§Ú¦³¬Ý¹L¤é´Á³]©wÀ³¸Ó³£¨S¿ù.. ¬üªL.rar (28.04 KB)

¤U¸ü¦¸¼Æ: 3

2012-9-6 14:45

Hsieh

¦^´_ 8# jimmy510



    ·í¤u§@ªíA3¥H¤U¨S¦³¤é´Á¸ê®Æ¤~·|¥X¿ù

1. Sub ¥X³f¬d¸ß()
   
2. Dim ar()
   
3. ReDim Preserve ar(s)
   
4. ar(s) = Array("¤Ø¤o", "¤é´Á", "¼Æ¶q", "³æ»ù", "Á`ÃB", "³Æµù")
   
5. s = 1
   
6. st = InputBox("¿é¤J°_©l¤é´Á", , Format(DateAdd("M", -12, Date), "e/m/d"))
   
7. st1 = InputBox("¿é¤J°_©l¤é´Á", , Format(Date, "e/m/d"))
   
8. For Each sh In Sheets
   
9. With sh
   
10.    If .Name Like "¤M¼Ò*" Then
    
11.      For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
    
12.      If Not IsDate(a) Then GoTo 10
    
13.        If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
    
14.           ReDim Preserve ar(s)
    
15.           ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
    
16.           s = s + 1
    
17.        End If
    
18. 10
    
19.      Next
    
20.     End If
    
21. End With
    
22. Next
    
23. If s > 1 Then
    
24. With Worksheets.Add(after:=Sheets(Sheets.Count))
    
25. .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
    
26. End With
    
27. Else
    
28. MsgBox "¨S¦³²Å¦X¸ê®Æ"
    
29. End If
    
30. End Sub

½Æ»s¥N½X

jimmy510

·PÁª©¤j~~¸Ñ¨M¤F~~ÁÂÁ§AªºÀ°¦£