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

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­ì¦]

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