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

"Á`ªí¤º®e¨Ì·Ó±ø¥ó½Æ»s¨ì¥t­Ó¬¡­¶Ã¯"

"Á`ªí¤º®e¨Ì·Ó±ø¥ó½Æ»s¨ì¥t­Ó¬¡­¶Ã¯"

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-21 15:04 ½s¿è

½d¨Ò.rar (33.03 KB) «¢êy.¦U¦ì...¤p§Ì¤S¤W¨Ó¨D±Ï¤F....!!!   ªþ¥ó¦³¨â­ÓEXCELÀÉ
1. JZT BC-Á`ªí
2. Á`­q³æ¼Æ¶q
¤p§Ì·Q±N"Á`­q³æ¼Æ¶q"ªº¸ê°T  «ö·ÓWS¸¹½X©î¦¨¦U­Ó¤u§@ªí¨Ã³q³q©ñ¦bÁ`ªí(¬¡­¶Ã¯)¤¤   ¦A¨Ì·ÓÃC¦â¶ñ¶i¦U­Ó¤u§@ªí¤¤   WS16002¬O§¹¦¨ªº¼Ë¤l..............¤jÀ°¦£...Orz...
Jason

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-21 16:42 ½s¿è

¦^´_ 1# eg0802
[JZT BC-Á`ªí] ½Ð¥ý«Ø¥ß¤@¤u§@ªí(½d¥» :115602ªºªí®æ) ¦h¾lªº¤u§@ªí¥i§R°£±¼
  1. Option Explicit
  2. Dim WB(1 To 2) As Workbook
  3. Sub EX()
  4.     Dim R(1 To 2) As Range
  5.     Set WB(1) = Workbooks("Á`­q³æ¼Æ¶q.xls")
  6.     Set WB(2) = Workbooks("JZT BC-Á`ªí.xls")
  7.     With WB(1).Sheets(1)
  8.         Set R(1) = .Range("B3", .[B3].End(xlDown))
  9.         R(1).AdvancedFilter xlFilterCopy, , .Cells(1, .Rows.Columns.Count), True
  10.         Set R(2) = .Cells(2, .Rows.Columns.Count)
  11.         Do While R(2) <> ""
  12.             With R(1)
  13.                 .Replace R(2), "=AAA", xlWhole
  14.                 With .SpecialCells(xlCellTypeFormulas, xlErrors)
  15.                     .Name = "WS"
  16.                     .Value = R(2)
  17.                 End With
  18.             End With
  19.             ¸ê®Æ¶×¤J R(2).Value, Range("WS")
  20.             Set R(2) = R(2).Offset(1)
  21.         Loop
  22.     End With
  23.     WB(2).Save
  24. End Sub
  25. Private Sub ¸ê®Æ¶×¤J(Sh_Name As String, Rng As Range)
  26.    Dim R As Integer
  27.      On Error GoTo L
  28.      R = Rng.Columns(10).Rows.Count
  29.     With WB(2).Sheets(Sh_Name)        '¤u§@ªí¤£¦s¦b·|¦³¿ù
  30.         .[B24] = Rng.Cells(1, 9)
  31.         .[I6] = Sh_Name
  32.         With .[A30:G60]
  33.             .Cells = ""
  34.             .Cells(1, "A").Resize(R, 1) = Rng.Columns(11).Value
  35.             .Cells(1, "B").Resize(R, 1) = Rng.Columns(3).Value
  36.             .Cells(1, "C").Resize(R, 1) = Rng.Columns(6).Value
  37.             .Cells(1, "E").Resize(R, 1) = Rng.Columns(4).Value
  38.             .Cells(1, "F").Resize(R, 1) = Rng.Columns(5).Value
  39.         End With
  40.     End With
  41.     Exit Sub
  42. L:
  43.     With Workbooks("JZT BC-Á`ªí.xls")
  44.          .Sheets("½d¥»").Copy , .Sheets(1)
  45.         ActiveSheet.Name = Sh_Name
  46.     End With
  47.     Resume
  48. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ·PÁÂg¤jªº¦^ÂР ¤p§Ì·Ó¤F±zªº¤èªk  Åã¥Ü"¶W¥X°}¦C¯Á¤Þ½d³ò"   
¸É¥R»¡©ú : ¥Ñ©ó¨C±iwsªºªíÀY¬O"©T©w"¦ýªí§À¤£¤@©w©T©w(·|ÀHµÛsty Åܦh¦Ó¼W¥[¦C¼Æ)  ¬O§_·|¦³¼vÅT?
Jason

TOP

¦^´_ 3# eg0802
Åã¥Ü"¶W¥X°}¦C¯Á¤Þ½d³ò"  :¬O­þ¤@¦æµ{¦¡½X  
¥Ñ©ó¨C±iwsªºªíÀY¬O"©T©w"¦ýªí§À¤£¤@©w©T©w:  wsªºªíÀY¬O"©T©w" ¬O«ü¨º¸Ì
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# eg0802
¸Õ¸Õ¬Ý¡A¥Ñ¥¨¶°°õ¦æ¶}±ÒÁ`¸ê®ÆÀÉ®×
°õ¦æ«á·|²£¥Í¥H¤é´Á©R¦Wªº¤ÀÃþÀÉ®×
Á`ªí½d¥».rar (22.59 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ·P®¦H¤j  ¥i¥H¥Î!! ^^
Jason

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD