ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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


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

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

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2012-8-20 09:42): ½Ð¤W¶Ç½d¨ÒÀÉ®×

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

TOP

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

¥»©«³Ì«á¥Ñ jimmy510 ©ó 2012-8-23 13:24 ½s¿è

¦^´_ 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)
JIMMY

TOP

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-9-5 16:26 ½s¿è

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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½Õ¾ã¶Ü?
JIMMY

TOP

£¿¦^´_ 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­ì¦]
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh


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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD