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

¨Ì­q³æ¸ê®ÆÂà´«¦¨¤»¶g±Æµ{ªí¡A·q½Ð¦U¦ì¤j¤j½ç±Ð!!!

¨Ì­q³æ¸ê®ÆÂà´«¦¨¤»¶g±Æµ{ªí¡A·q½Ð¦U¦ì¤j¤j½ç±Ð!!!

¥»¦¸´£°Ýªº°ÝÃD¡A¥D­n©µÄò­ì¥H¤Uªºµo©«¤º®e¡A¦ý¦]¥»¦¸»Ý¨D¸û¬°½ÆÂø¡A¬G¯S¦A¥t¶}¤@·s¸ÜÃD¡A½Ð±Ð¦U¦ì¥ý¶i«ü±Ð
http://forum.twbts.com/viewthrea ... a=pageD1&page=1

¦pªþ¥ó¤¤¡A¥[¤J¤§«eHsiehª©¥D½s¼gªº¥¨¶°¡A§Æ±æ­×§ïªº¦a¤è¡G

1.­ìÄæ¦ì¥ÑA~E¼W¥[¦ÜA~JÄæ¦ì¡A°£¤FJÄæ¦ì¬O®»¨ú¨ä¥Lªº¸ê®Æ¥~¡A¨ä¾l§¡¥ÑSheet1¸ê®Æ¤¤ºI¨ú±o¥X

2.­ì¤@µ§­q³æ¥Ñ¤G¦C¶×¾ã¦Ó¦¨¡A­×§ï¬°3¦C¡]»Ý¨D¤é¡B¥æ´Á¡B¹ê»Ú¥X³f¡^

3.¨Ì¿é¤J¤é´Á¦Û°Ê®i¥X±Æµ{ªí¤»¶g¤é´Á¡]¦pªþ¥ó¡A¿é¤J10/1°_®»¨ú42¤Ñªº¤é´Á¡A¥]§t¤»¤é¡^

4.©µ¦ù²Ä¤TÂI¡A±N­q³æ¸ê®Æ§P©w¶È±N²Å¦X¦¹´Á¶¡¤§­q³æ¸ê®Æ®»¤J¡]²Å¦X»Ý¨D¤é§Y»Ý¥N¤J¡A¨Ò¡G»Ý¨D¤é10/14¡A¦ý¥æ´Á¦^ÂЦÜ11/20¡A«h¦¹µ§®»¤J±Æµ{ªí¤¤¶È©ó10/14¦³¦C¥X¨ä»Ý¨D¼Æ¡F»Ý¨D¤é¤@¥¹¤£²Å¦¹¤é´Á½d³ò¤º¡A¸Óµ§­q³æ§Y¤£¦C¤J¡^

5.¥¨¶°°õ¦æ±Æ¥X±Æµ{ªí«á¡A±NSheet1¤¤¦³¦C¤J±Æµ{¤ÎµL¦C¤Jªº¦A¦U¦s¦¨¤@¤u§@ªí¡]¤u§@ªí¦WºÙ¡G¦³¦C¤J¡AµL¦C¤J¡^

6.±Æµ{ªí¥¨¶°³Ì«áµ{¦¡½X¬O¤p§Ì¥H¤gªk½m¿û¤è¦¡±N¦U±Æµ{ªí­º¦C¥H¥¨¶°°õ¦æ¶]¥X«á¡A¦A±N¹ïÀ³ªº²Ä¤G¤Î²Ä¤T¦C½Æ»s²Ä¤@¦Cªº¸ê®Æ¡A¦A¶K¤W­È¡]¦]¦X¨ÖÄæ¦ìµLªk¿z¿ï¬d¬Ý¥X¸Ó­q³æ¸ê®Æ¡A¬G¤p§Ì¥u¯à¥H¤W¤èªk±N¤@µ§­q³æÅܦ¨¤Tµ§¡^¡Aµ{¦¡½X¬O§_¥i¦A­×§ï???

¥»¦¸­×§ï¤§³B¸û¦h¡A¥B©¹«á¤´¦³¥i¯à·|¦³¤@¨Ç©µ¦ùªº°ÝÃD¡A§Æ±æ¦U¦ì¤j¤j¯à¤£§[½ç¥æ¡A¦b¦¹¥ý·PÁ¦U¦ì....

±Æµ{ªí¥¨¶°.rar (16.17 KB)

¤p§Ìª¾¹D¤@¦¸´£¤F¤Ó¦h°ÝÃD,ÁÙ¬O°w¹ï¦U§O°ÝÃD½Ð¦U¦ì¥ý¶i¥i¸Ñªº¥i¥ý¤£§[½ç±Ð,¤p§Ì¦b¦¹¥ý¦A¹DÁÂ^^

TOP

Hsiehª©¥D¤p§Ì¤S¦³°ÝÃD½Ð±Ð¡A­ìSheet2 FÄæ¦ì»Ý¨D¤é¤Î¥æ´Á»Ý¦A¼W¥[¤@¤J®w¦C
¦ý¤J®w¦¹¸ê®Æ©|¤£·|¦bSheet1¤¤¡A¥u¬O¨Cµ§­q³æ©ó±Æµ{ªí¤¤Åܦ¨©T©w­n°µ¦¨¤T¦C¡A½Ð±Ð¥¨¶°¦p¦ó­×§ï???

FÄæ¦ì
»Ý¨D¤é
¥æ´Á
¤J®w

TOP

Hsiehª©¥D§A¯uªº¤Ó¯«¤F¡A·PÁ§A¡A¤p§Ì·|¦n¦n¥ý¬ã¨sµ{¦¡½Xªº¡A¦A¦¸·PÁÂ!!!

TOP

¦^´_ 21# p6703
  1. Sub Ex()
  2. Dim A As Range, x#, y#
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With Sheet2 's("Sheet2")
  5. s = Application.Min(.Rows(1))
  6. With Sheets("Sheet1")
  7. n = Application.Max(.Columns("G:H")) - s + 6
  8.    For Each A In .Range(.[A2], .[A2].End(xlDown))
  9. ReDim ar(0 To 1, 0 To n)
  10.        m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2) '­q³æ¡B®Æ¸¹¡B¶µ¦¸¬°¯Á¤Þ
  11.        If IsEmpty(d(m)) Then
  12.        GoTo 10
  13.        Else
  14.        For i = 0 To 1
  15.          For j = 0 To n
  16.            ar(i, j) = d(m)(i, j)
  17.          Next
  18.        Next
  19.        End If
  20. 10
  21.        x = A.Offset(, 6) - s + 6 '»Ý¨D¤é
  22.        y = A.Offset(, 7) - s + 6 '¥æ´Á
  23.        For i = 0 To 4
  24.          ar(0, i) = A.Offset(, IIf(i >= 3, i + 1, i))
  25.        Next
  26.        ar(0, 5) = "»Ý¨D¤é"
  27.        ar(1, 5) = "¥æ´Á"
  28.        If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨DÁקKSheet1¤º»Ý¨D¤éµL¤é´Á
  29.        If y > 0 Then ar(1, y) = A.Offset(, 3) '¥æ´ÁÁקKSheet1¤º¥æ´ÁµL¤é´Á
  30.        d(m) = ar
  31.        Erase ar
  32.    Next
  33. End With
  34. r = 2
  35. For Each ky In d.keys
  36.   .Cells(r, 1).Resize(2, n + 1) = d(ky)
  37.   For i = 0 To 1
  38.   mystr = ""
  39.   Set Rng = .Range("G" & r).Offset(i).Resize(, n - 5)
  40.   If Application.CountA(Rng) > 0 Then
  41.       For Each A In Rng.SpecialCells(xlCellTypeConstants)
  42.         mystr = IIf(mystr = "", .Cells(1, A.Column).Text & "*" & A / 1000 & "K", mystr & "¡A" & .Cells(1, A.Column).Text & "*" & A / 1000 & "K")
  43.       Next
  44.       .Cells(r + i, "CF") = mystr
  45.   End If
  46.   Next
  47.   r = r + 2
  48. Next
  49. End With
  50. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂHsiehª©¥D¡A¤p§Ì·|¦n¦n¬ã¨sµ{¦¡½Xªº¡A§Æ±æ¦³´Â¤@¤é¦Û¤v¤]¥iÆF¬¡¹B¥Î¡A¥t­è¤p§Ì´£°Ýªº¥t¤@¶µ¥\¯à¡A¬O§_¤]¥i¥H¥¨¶°¹F¦¨©O???

TOP

¤p§Ì¦³©µ¦ù©Ê°ÝÃD·Q¦A½Ð°Ýª©¥D,¬O§_¥i¨Ì©ú²Ó¤¤ªº»Ý¨D¤é´Á¤Î¼Æ¶q¡A©óSheet2¹ïÀ³ªºÄæ¦ì³Ì«á¤@Äæ¨q¥Xªþ¥ó¤¤§Æ±æªº¸ê®Æ???

Book3.rar (16.21 KB)

TOP

¯u¬O¤Ó·PÁÂHsiehª©¥D¡A¸Ñ¨M¤F¤p§Ìªº¤j°ÝÃD¡A°õ¦æ¤w¥i¦Û°Ê®M¥X

¦pªG¤p§Ì·Q¦A¥[¤J¦h¤@¨Çªº¸ê®Æ¡]¨Ò­ì¥u¦³­q³æ,®Æ¸¹,¶µ¦¸¡A·Q¦A¼W¥[«È¤á,³W®æ...¡^==>¤w§ó·sªþ¥ó¤¤¡A½Ð°Ý¦p¦ó­×§ï???

¤p§Ì¦³¦Û¤v´ú¸Õ­×§ï¡A¦ý¥\¤O¹ê¦b¤£¨¬¡A§ï«áÁÙ¬OµLªk®M¥X¥¿½T¸ê®Æ¡A¬G·Ð½ÐHsiehª©¥DÀ°¦£

Book2.rar (16.01 KB)

TOP

¦^´_ 18# p6703
  1. Sub Ex()
  2. Dim A As Range, x#, y#
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With Sheets("Sheet2")
  5. s = Application.Min(.Rows(1))
  6. With Sheets("Sheet1")
  7. n = Application.Max(.Columns("E:F")) - s + 4
  8.    For Each A In .Range(.[A2], .[A2].End(xlDown))
  9. ReDim ar(0 To 1, 0 To n)
  10.        m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2)
  11.        If IsEmpty(d(m)) Then
  12.        GoTo 10
  13.        Else
  14.        For i = 0 To 1
  15.          For j = 0 To n
  16.            ar(i, j) = d(m)(i, j)
  17.          Next
  18.        Next
  19.        End If
  20. 10
  21.        x = A.Offset(, 4) - s + 4 '»Ý¨D¤é
  22.        y = A.Offset(, 5) - s + 4 '¥æ´Á
  23.        For i = 0 To 2
  24.          ar(0, i) = A.Offset(, i)
  25.        Next
  26.        ar(0, 3) = "»Ý¨D¤é"
  27.        ar(1, 3) = "¥æ´Á"
  28.        If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨DÁקKSheet1¤º»Ý¨D¤éµL¤é´Á
  29.        If y > 0 Then ar(1, y) = A.Offset(, 3) '¥æ´ÁÁקKSheet1¤º¥æ´ÁµL¤é´Á
  30.        d(m) = ar
  31.        Erase ar
  32.    Next
  33. End With
  34. r = 2
  35. For Each ky In d.keys
  36.   .Cells(r, 1).Resize(2, n + 1) = d(ky)
  37.   r = r + 2
  38. Next
  39. End With
  40. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ªº½T¦³¦pHsiehª©¥D©Ò»¡ªºª¬ªp¡A¦ý§Y¨Ï§Ú±N¤é´Á³Ì¤p­È¤w§ó·s¦Ü5/1°_¡A¦ý°õ¦æ®É¤´µo¥Í¿ù»~¡Aªþ¤WÀɮסA·Ð½ÐHsiehª©¥D¸Ñ´b¡AÁÂÁÂ!!!
Book1.rar (15.27 KB)

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD