¨Ìq³æ¸ê®ÆÂà´«¦¨¤»¶g±Æµ{ªí¡A·q½Ð¦U¦ì¤j¤j½ç±Ð!!!
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¨Ìq³æ¸ê®ÆÂà´«¦¨¤»¶g±Æµ{ªí¡A·q½Ð¦U¦ì¤j¤j½ç±Ð!!!
¥»¦¸´£°Ýªº°ÝÃD¡A¥Dn©µÄòì¥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±Nq³æ¸ê®Æ§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)
|
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¤p§Ìª¾¹D¤@¦¸´£¤F¤Ó¦h°ÝÃD,ÁÙ¬O°w¹ï¦U§O°ÝÃD½Ð¦U¦ì¥ý¶i¥i¸Ñªº¥i¥ý¤£§[½ç±Ð,¤p§Ì¦b¦¹¥ý¦A¹DÁÂ^^ |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
Hsiehª©¥D¤p§Ì¤S¦³°ÝÃD½Ð±Ð¡AìSheet2 FÄæ¦ì»Ý¨D¤é¤Î¥æ´Á»Ý¦A¼W¥[¤@¤J®w¦C
¦ý¤J®w¦¹¸ê®Æ©|¤£·|¦bSheet1¤¤¡A¥u¬O¨Cµ§q³æ©ó±Æµ{ªí¤¤Åܦ¨©T©wn°µ¦¨¤T¦C¡A½Ð±Ð¥¨¶°¦p¦óקï???
FÄæ¦ì
»Ý¨D¤é
¥æ´Á
¤J®w |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
Hsiehª©¥D§A¯uªº¤Ó¯«¤F¡A·PÁ§A¡A¤p§Ì·|¦n¦n¥ý¬ã¨sµ{¦¡½Xªº¡A¦A¦¸·PÁÂ!!! |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 243
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-9
|
¦^´_ 21# p6703 - Sub Ex()
- Dim A As Range, x#, y#
- Set d = CreateObject("Scripting.Dictionary")
- With Sheet2 's("Sheet2")
- s = Application.Min(.Rows(1))
- With Sheets("Sheet1")
- n = Application.Max(.Columns("G:H")) - s + 6
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- ReDim ar(0 To 1, 0 To n)
- m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2) 'q³æ¡B®Æ¸¹¡B¶µ¦¸¬°¯Á¤Þ
- If IsEmpty(d(m)) Then
- GoTo 10
- Else
- For i = 0 To 1
- For j = 0 To n
- ar(i, j) = d(m)(i, j)
- Next
- Next
- End If
- 10
- x = A.Offset(, 6) - s + 6 '»Ý¨D¤é
- y = A.Offset(, 7) - s + 6 '¥æ´Á
- For i = 0 To 4
- ar(0, i) = A.Offset(, IIf(i >= 3, i + 1, i))
- Next
- ar(0, 5) = "»Ý¨D¤é"
- ar(1, 5) = "¥æ´Á"
- If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨DÁקKSheet1¤º»Ý¨D¤éµL¤é´Á
- If y > 0 Then ar(1, y) = A.Offset(, 3) '¥æ´ÁÁקKSheet1¤º¥æ´ÁµL¤é´Á
- d(m) = ar
- Erase ar
- Next
- End With
- r = 2
- For Each ky In d.keys
- .Cells(r, 1).Resize(2, n + 1) = d(ky)
- For i = 0 To 1
- mystr = ""
- Set Rng = .Range("G" & r).Offset(i).Resize(, n - 5)
- If Application.CountA(Rng) > 0 Then
- For Each A In Rng.SpecialCells(xlCellTypeConstants)
- mystr = IIf(mystr = "", .Cells(1, A.Column).Text & "*" & A / 1000 & "K", mystr & "¡A" & .Cells(1, A.Column).Text & "*" & A / 1000 & "K")
- Next
- .Cells(r + i, "CF") = mystr
- End If
- Next
- r = r + 2
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
·PÁÂHsiehª©¥D¡A¤p§Ì·|¦n¦n¬ã¨sµ{¦¡½Xªº¡A§Æ±æ¦³´Â¤@¤é¦Û¤v¤]¥iÆF¬¡¹B¥Î¡A¥tè¤p§Ì´£°Ýªº¥t¤@¶µ¥\¯à¡A¬O§_¤]¥i¥H¥¨¶°¹F¦¨©O??? |
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¤p§Ì¦³©µ¦ù©Ê°ÝÃD·Q¦A½Ð°Ýª©¥D,¬O§_¥i¨Ì©ú²Ó¤¤ªº»Ý¨D¤é´Á¤Î¼Æ¶q¡A©óSheet2¹ïÀ³ªºÄæ¦ì³Ì«á¤@Äæ¨q¥Xªþ¥ó¤¤§Æ±æªº¸ê®Æ???
Book3.rar (16.21 KB)
|
|
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
¯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)
|
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 243
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-9
|
¦^´_ 18# p6703 - Sub Ex()
- Dim A As Range, x#, y#
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("Sheet2")
- s = Application.Min(.Rows(1))
- With Sheets("Sheet1")
- n = Application.Max(.Columns("E:F")) - s + 4
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- ReDim ar(0 To 1, 0 To n)
- m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2)
- If IsEmpty(d(m)) Then
- GoTo 10
- Else
- For i = 0 To 1
- For j = 0 To n
- ar(i, j) = d(m)(i, j)
- Next
- Next
- End If
- 10
- x = A.Offset(, 4) - s + 4 '»Ý¨D¤é
- y = A.Offset(, 5) - s + 4 '¥æ´Á
- For i = 0 To 2
- ar(0, i) = A.Offset(, i)
- Next
- ar(0, 3) = "»Ý¨D¤é"
- ar(1, 3) = "¥æ´Á"
- If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '»Ý¨DÁקKSheet1¤º»Ý¨D¤éµL¤é´Á
- If y > 0 Then ar(1, y) = A.Offset(, 3) '¥æ´ÁÁקKSheet1¤º¥æ´ÁµL¤é´Á
- d(m) = ar
- Erase ar
- Next
- End With
- r = 2
- For Each ky In d.keys
- .Cells(r, 1).Resize(2, n + 1) = d(ky)
- r = r + 2
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 134
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¶³ªL
- µù¥U®É¶¡
- 2010-10-6
- ³Ì«áµn¿ý
- 2018-5-13
|
ªº½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)
|
|
|
|
|
|
|