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

[µo°Ý] Ãö©ó¥H"Àx¦s®æ©³¦â"¶i¦æ±Æ§Çªº°ÝÃD

[µo°Ý] Ãö©ó¥H"Àx¦s®æ©³¦â"¶i¦æ±Æ§Çªº°ÝÃD

20100605-ALL.rar (212.07 KB) EXCEL¦ü¥G¨S¦³´£¨Ñ¥i¥HÅýÀx¦s®æ¨ÌÃC¦â±Æ§Çªº¥\¯à,¤p§Ìª¾¹D¥i¥H±Ä¥Î©w¸q¨ç¼Æ¥~¥[»²§UÄ檺¤è¦¡¸Ñ¨M,¦ý¬O¤p§Ìªº¤u§@ªí­Y­n¼W¥[¤@Äæ,±N·|°Ê¨ì³\¦h¤w³]©w¦nªº¨ä¥Lªí³æ,¦]¦¹¾¬±æ©Î³\¦³VBA°ª¤â¤j¤j¯àÀ°§U¸Ñ¨M.
»Ý¨D¤w¼g¦bªþ¥óÀÉ®×¥ó,½Ð¸ô¹Lªº¤j¤jÀ°¦£!!

[ª©¥DºÞ²z¯d¨¥]
  • ¤p»x(2010-6-8 22:39): §Oı±o¬O²Û°d!¥´¦r¤]­nªá®É¶¡,ÂI¿ô§A¦n¹L¤£²z§A.

¤Ñ§L
¦Ñ®L µoªí©ó 2010-6-7 22:25



    ÁÂÁ¦ѮL«e½ú«ü±Ð~
¤p§Ì²Ó²ÓÀË°Q´£°Ý¤º®e,©¿µMµo²{¬O¦Û¤w¤Ó¹L°õµÛ,·Q­n¦b¦P¤@¥÷ªí³æ¤W·Q¸Ñ¨M°ÝÃD,¤S°g«H¥u¦³°ª¤â¤~¯à¸Ñ¨M,¨ä¹ê¥u­n¼W¥[¤@­ÓªÅ¥Õªí³æ,¥Î²³æªº¥¨¶°±N­ì©l¸ê®Æcopy¹L¨Ó,§Y¥i»´©öªº¦b¤£°Ê­ì©l¸ê®Æªº«e´£¤U³B²z,ÁöµM·Pı¨ü¨ì²Û°d,¤£¹L½T¹ê¦³¦¬Àò,©Ò¥H¤´µM¥²¶·ªí¥Ü·PÁÂ!
²Ê²Lªº°ÝÃD½T¹ê¥i¯à¥O¤H¹½·Ð,¤U¦¸´£°Ý«e¤p§Ì·|¥J²Ó¦A¤T«ä¦Ò¯à§_¥Î¨ä¥L¤è¦¡¸Ñ¨M,©Î³\´«¤@­Ó«ä¸ô,´N¯à¦³©Ò¦¬Àò~
3

µû¤À¤H¼Æ

    • Hsieh: ¤£®¢¤U°Ý,¯à±o¨ì§ó¦h¦¬Ã¬ª÷¿ú + 1
    • ¤p»x: ¥¿½Tªº¾Ç²ßÆ[,¦Û¤v¦h·Q·Q,¦ý§OÆp¤û¨¤¦y!!ª÷¿ú + 1
    • GBKEE: ­È±o¾Ç²ßªº¾Ç²ßºA«×ª÷¿ú + 1

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-8 20:43 ½s¿è

¦^´_ 1# sujane0701
¸Õ¸Õ¬Ý ¥u¥i°Ï¤ÀÀx¦s®æ¦â±m ¦³©ÎµL
  1. Sub Ex()
  2.     Dim i%, Rng As Range, R, D(1 To 2) As Object, C%
  3.     For i = 7 To 6 + (3 * 8) Step 3
  4.         If Cells(Rows.Count, i).End(xlUp) <> Cells(1, i) Then
  5.             Set D(1) = CreateObject("Scripting.Dictionary")
  6.             Set D(2) = CreateObject("Scripting.Dictionary")
  7.             Set Rng = Range(Cells(1, i), Cells(1, i).End(xlDown)).Resize(, 3)
  8.             For Each R In Rng.Columns(1).Cells
  9.                 If R.Interior.ColorIndex <> xlNone Then  ' <>xlNone-> ¤£µ¥©óµL¦â±m
  10.                     D(1)(R.Value) = R.Resize(, 3)
  11.                     C = R.Interior.ColorIndex             '¨ú±o¦â±mªº No
  12.                 Else  '  µL¦â±m
  13.                     D(2)(R.Value) = R.Resize(, 3)
  14.                 End If
  15.             Next
  16.             If D(1).Count > 0 Then
  17.                 With Rng(1).Resize(D(1).Count, 3)
  18.                     .Value = Application.Transpose(Application.Transpose(D(1).ITEMS))
  19.                     .Interior.ColorIndex = C
  20.                     .Sort Key1:=Rng(1), Header:=xlNo    'xlNoµL¼ÐÃD
  21.                 End With
  22.             End If
  23.             If D(2).Count > 0 Then
  24.                 With Rng(D(1).Count + 1, 1).Resize(D(2).Count, 3)
  25.                     .Value = Application.Transpose(Application.Transpose(D(2).ITEMS))
  26.                     .Interior.ColorIndex = xlNone
  27.                     .Sort Key1:=Rng(D(1).Count + 1, 1), Header:=xlNo
  28.                 End With
  29.             End If
  30.         End If
  31.     Next
  32. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ¦U¦ìª©¥D­Ì¹ªÀy«ü±Ð~!
¤Q¤À·PÁÂGBKKª©¥D´£¨Ñªº§Þ³N«ü¾É,¤p§Ìµ{«×¤£¨Î,¤p§Ì»Ý­n¥J²Ó¬ã¨s´¢¼¯¤@µf,´Á±æ¥i¥H¾Ç²ß¨ì§ó°ª²`ªºª¾ÃÑ.

¤p§Ì¥Î¤g¤èªk¸Ñ¨MÃC¦â±Æ§Çªº°ÝÃD,¦]¬°¤£À´VBA,¥H¥¨¶°¿ý»sªº¤è¦¡¨ú±oªºµ{¦¡½XÅã¾Ö¸~Ãe¤j,¤p§ÌµL¤OÅý"¥¦"½G¨­",§Æ±æª©¥D¤j¤j­Ì¬Ý¤F¤£·|²´ªá!
¤g¤èªk1:¦b"±ø½X±Æ§Ç"ªí³æ¤º¥ý³]©w¦nGET.CELL©w¸q,¨ú±oÀx¦s®æ©³¦âªº­È
¤g¤èªk2:­n±Æ§ÇªºÄæ¦ì,»P¤W­z¨ú±oªº­È¤§Äæ¦ì,¤@¨Ö«þ¨©¨ì·s¼W¥[ªºªí³æ¤º¶i¦æ±Æ§Ç,¥HÃC¦âªº­È¬°¥D±Æ§Ç,§Y¥i¨ú±o[¨ÌÀx¦s®æ©³¦â±Æ§Ç]¦nªº¸ê®Æ,¦A±N¦¹¸ê®Æ«þ¦^­ì©l¸ê®Æªí³æ,¹F¨ì¤£§ó°Ê­ì©lªí³æªº­ì«h¤U§¹¦¨±Æ§Ç§@·~.
[attach]1189[/attach]

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2010-6-10 08:22): ¤W¶Ç¤£¦¨¥\ ¥i¦A­«·s½s¿è¤@¦¸¸Õ¸Õ¬Ý ¤£¤@©w­n¦Aµo¤@¦¸¦^ÂÐ §AªºxlsÀɮפ¤¦³¤Ó¦hªºªÅ¥ÕªºModule¬°¦ó¤£§R±¼

¦^´_ 6# sujane0701


    ¤£½T©w¬O§_¦]¬°ÀɮפӤjµLªk¤W¶Ç,¦A¸Õ¤@¦¸! ¤g¤èªk.rar (213.69 KB)

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD