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

[µo°Ý] Excel¦p¦ó¥HÃöÁä¦r¿ï¨ú¾ã¦C¸ê®Æ¨Ã½Æ»s¨ì·s¤u§@ªí¡H

¤@°_¥[ªo§a¦U¦ìQUQ¡A§Ú¨C¦¸·Q¨ì´N·|¨Ó³o¸ÌÂIÂI¿n¤À¡A
²r¤@¬Ý¬O2¤ëµo°Ýªº¡A¨ì²{¦bÁÙ¤£¯à¤U¸üXDDDDDDDDDDDDD

§Ú¥u®t3­Ó¿n¤À´N¥i¥H¤U¸ü¤F!!!!!!¥[ªo!!!!!!

TOP

¦n·Qª¾¹D«ç»ò¸Ñ³á

TOP

¶Ù¶Ù~ ¦U¦ì«e½ú¦n!!!
§Ú±N¦¹find record1.rar¤U¸ü¦^¥h¬ã¨s¤F¤@¤U
½Ð°Ý¬O§_¤@©w­n¥ý±N¸ê®Æ±q¦Usheet½Æ»s¥X¨Ó¦s¨ì¬Y¨Ç¦a¤è
¦A±q³o¨Ç¦a¤è¡A½Æ»s¨ì§Ú·Q­nÅã¥ÜªºÄæ¦ì©O¡H

¤£¯à¦Usheet¦³²Å¦Xªº¸ê®Æ¡Aª½±µÅã¥Ü¦b§Ú·Q­nÂ\©ñªºÄæ¦ì¶Ü¡H
¨Ã¥B¨Ì¾Ú¼ÐÃDÅã¥Ü¡A¦p¡G§Ú¥u­nÅã¥Ü¤é´Á¸ò²Ó¸`
ÁÂÁ³á¡I

TOP

½Ð°Ý³oÃþ«¬ªº¹ê§@¬O§_¤@©w±o­É¥Î¨ìVBAªº»yªk¡H
¾ÇµL¤îºÉ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-2 09:45 ½s¿è

¦^´_ 14# b7307024
Â\©ñ¸ê®Æ¤u§@ªí¼Ò²Õªºµ{¦¡½X
  1. Option Explicit                    '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
  2. Option Base 1                      '¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­->¬° 1
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     If Target.Address = "$B$1" Then
  5.          Ext_data Target
  6.     End If
  7. End Sub
  8. Private Sub Ext_data(ByVal Target As Range)
  9.     Dim mnth As Worksheet, all_month(), Rng As Range, AR(), R As Range, S As Integer
  10.     S = 1
  11.     Application.ScreenUpdating = False
  12.     Set Rng = Target.Parent.Range("A5")
  13.     Rng.CurrentRegion.Offset(1).Clear
  14.     all_month = Array("Jan", "Feb", "Mar")
  15.     For Each mnth In Sheets(all_month)
  16.         With mnth
  17.             .Range("A1").AutoFilter 4, "*" & Target & "*"            '¦Û°Ê¿z¿ï
  18.             For Each R In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
  19.                 If R.Row > 1 Then
  20.                     ReDim Preserve AR(1 To S)
  21.                     'AR(S) = R   '¾ã¦C
  22.                     AR(S) = Array(R.Cells(1).Value, R.Cells(4).Value)  '¤é´Á,²Ó¸`
  23.                     S = S + 1
  24.                 End If
  25.             Next
  26.             .AutoFilterMode = False
  27.         End With        
  28.     Next
  29.     Rng.Offset(1).Resize(S - 1, UBound(AR(1))) = Application.Transpose(Application.Transpose(AR))
  30.     Application.ScreenUpdating = True
  31. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁ±z~§Ú¥¿¦n»Ý­n³o¼Ëªº»Ý¨D~3Q

TOP

ÁÂÁ¤À¨É¡A­è¦n¦³»Ý­n

TOP

¦^´_ 3# sunnyso


    ¥i¥HSHARE¹À, ¥»¤H¤]¦³¬Û¦PÁöµM¦¹VBA CODE...ÁÂÁÂ~

TOP

¦^´_ 15# GBKEE


½Ð±Ð¤@¤U¦pªG­n±N©Ô¥X¨Óªº¸ê®Æ°µ­×§ï¨Ã¦^¦s­ìÀx¦s®æ­n«ç»ò°µ©O¡H

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD