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

[µo°Ý] ¤£¦Pªºsheet¬Û¦Pªº°Ê§@,¦p¦óÅý¥¦¤@¦¸©Ê§¹¦¨?

[µo°Ý] ¤£¦Pªºsheet¬Û¦Pªº°Ê§@,¦p¦óÅý¥¦¤@¦¸©Ê§¹¦¨?

¤j®a¦n,
¨C­Ósheet¬Û¦Pªº°Ê§@,¦p¦óÅý¥¦¤@¦¸©Ê§¹¦¨?
°Ê§@1: AA:AL      COPY«á­ì½d³ò¶K¤W­È(´N¬O±N¤½¦¡¥h°£)
°Ê§@2: A:AD ¨ú®ø¦Û°Ê¿z¿ï,¦A«ì´p¦Û°Ê¿z¿ï(¦]¬°¬O¤½¥Îªí®æ,³o¼Ë°µ¥i¥HÅý¤£·í¾Þ§@®É,¨Ï¦Û°Ê¿z¿ï¥¿±`)
°Ê§@3: ±Æ§Ç>>>¶¶§Ç¬°AC,U,Q,C,D

¥¨¶°Àx¦s¦b: VBA Cluster.xlsm
»Ý­n°µ­«½Æ°Ê§@ªºÀɮ׬O: 2012 samples Chart

2012 samples Chart.zip (131.55 KB)

  1. Sub yy()
  2.     For Each sh In Sheets '¦b©Ò¦³¤u§@ªí¤¤´`Àô
  3.         sh.UsedRange = sh.UsedRange.Value '§â¤½¦¡µ²ªGÅܦ¨­È
  4.         sh.[a4:ad4].AutoFilter '¨ú®ø¦Û°Ê¿z¿ï
  5.         sh.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
  6.         
  7.         n = sh.[AC1000].End(3).Row 'acÄæ³Ì«áÀx¦s®æ¦C¸¹
  8.         sh.Sort.SortFields.Clear '²M°£­««Ø±Æ§Ç±ø¥ó
  9.         sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
  10.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
  11.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
  12.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
  13.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)

  14.         With sh.Sort '¹ï«ü©w½d³ò¥H«ü©w±ø¥ó±Æ§Ç
  15.             .SetRange sh.Range("A5:AD" & n)
  16.             .Header = xlNo
  17.             .MatchCase = False
  18.             .Orientation = xlTopToBottom
  19.             .SortMethod = xlPinYin
  20.             .Apply
  21.         End With
  22.     Next '¤U¤@­Ó¤u§@ªí
  23. End Sub
½Æ»s¥N½X
¤é´ÁÄæ¦ì¤é´Á®æ¦¡¤£¥¿½T·|¼vÅT±Æ§Ç¥¿½T©Ê

TOP

¦^´_ 2# oobird
±z¦n,

¯à¤£¯à±Ð§Ú¥Î°}¦C¤è¦¡ªº¼gªk?³o¼Ë¥H«á­Y¸ê®Æ¦³Åܰʭקï·|§ó¤è«K!

ÁÂÁ±z.

TOP

¥Î°}¦C¤è¦¡ªº¼gªk?~¬O«ü±Æ§Ç¶Ü¡H
±Æ§ÇÁÙ¬O¥Î¤u§@ªí¦Û¦³ªº±Æ§Ç¤è¦¡®Ä²v°ª±o¦h
¥Î°}¦C©Î»¼°j±Æ§Ç¥N½X³£·|¼g±o«Üªø«Ü½ÆÂø¡A¦Ó¥BºC¡C
­Ë¬O³o¸Ì±Æ§Çªº±ø¥ó¥i¥H¥Î´`Àô¨Ó´î¤Ö¥N½X¶q¡A­Y¼ô±x´`Àô¤Î¬ÛÃöÅܼƴN¤£¥Î¤@¦æ¦æªº¼g¤F¡C

TOP

¦^´_ 4# oobird
Ãþ¦ü¹³¥H¤U³o¼Ëªº,§Ú·Pı«Ü¤£¿ù,½Ð§AÀ°§Ú¬Ý¬Ý¬O¤£¬O¥i¦æ?
  1. Sub Acopy_from_Multi_format()
  2.     Dim Wb(1 To 2) As Workbook, xS As Integer, Ar1(), Ar2()
  3.     '*** «ü©wµ¹ÅܼÆ: ¦pµ{§Ç«Ü¤j ­×§ï¦WºÙ®É¤£¥²¦bµ{§Ç¤¤¤@¤@§ó§ï ***
  4.     Dim Ar(1 To 2)
  5.     Set Wb(1) = Workbooks("2011 BCMart Multi-Format.xlsx")
  6.     Set Wb(2) = Workbooks("VBA Cluster.xlsm")
  7.     Ar1 = Array("BCM±±ºÞ", "Factory ship", "Chart", "HD")    '¸m¤J°}¦C
  8.     Ar2 = Array("A:EK", "A:AP", "A:AQ", "A:AO")                '¸m¤J°}¦C
  9.     For xS = 0 To UBound(Ar1)     '-> Array("BCM±±ºÞ", "Factory xsip", "Chart")
  10.         With Wb(1).Sheets(Ar1(xS))                                  '¥N¤J Ar1(xS)
  11.             .Columns("A:EK").Hidden = False
  12.             Intersect(.UsedRange, .Range(Ar2(xS))).SpecialCells(xlCellTypeVisible).Copy
  13.                                    ''¥N¤J Ar2(xS) : ¥ý°µ½Æ»sªº°Ê§@
  14.                 With Wb(2).Sheets(Ar1(xS))                              '¥N¤J Ar1(xS)
  15.                     .Range("A1").PasteSpecial Paste:=xlPasteAll         '§¹¥þ½Æ»s
  16.                     .Range("A1").PasteSpecial Paste:=xlPasteValues      '½Æ»s­È
  17.                     .Columns("A:EK").Hidden = False
  18.             End With
  19.         End With
  20.     Next
  21.     Application.CutCopyMode = False
  22. End Sub
½Æ»s¥N½X

TOP

¦¹¨Ò¤¤¶¡¬q
  1. sh.Sort.SortFields.Add Key:=sh.Range("AC5:AC" & n)
  2.         sh.Sort.SortFields.Add Key:=sh.Range("u5:u" & n)
  3.         sh.Sort.SortFields.Add Key:=sh.Range("q5:q" & n)
  4.         sh.Sort.SortFields.Add Key:=sh.Range("c5:c" & n)
  5.         sh.Sort.SortFields.Add Key:=sh.Range("d5:d" & n)
½Æ»s¥N½X
¥i¥H§âÄæ¦W©ñ¦b°}¦C¤¤´`Àô
  1. ar = Array("ac", "u", "q", "c", "d")
  2.         For i = 0 To UBound(ar)
  3.             sh.Sort.SortFields.Add Key:=sh.Range(ar(i) & "5:" & ar(i) & n)
  4.         Next
½Æ»s¥N½X
¬O³o­Ó·N«ä¶Ü¡H

TOP

¦^´_ 6# oobird
Hi,
¥Ø«e§Úªþ¤WªºÀɮצ³ Apr, May, Jun, Jul, Aug, Sep, Oct µ¥Sheets(¥H«á³£ÁÙ·|¼W¥[)
    Ar1 = Array(Apr, May, Jun, Jul, Aug, Sep, Oct)    '¸m¤J°}¦C (©Î³\¤]¯à³o¼Ë¼g...Apr¤§«áªºSheets³£§@¬Û¦P°Ê§@)
    Ar2 = Array(°Ê§@1: AA4:AL¦³¸ê®Æªº³Ì«á¤@¦C,COPY«á­ì½d³ò¶K¤W­È    °Ê§@2: A4:AD4 ¨ú®ø¦Û°Ê¿z¿ï,¦A«ì´p¦Û°Ê¿z¿ï   °Ê§@3: ±Æ§Ç¶¶§Ç¬°AC,U,Q,C,D)                '¸m¤J°}¦C
¯à¤£¯à¥Î¤W­zªºÃþ¦ü§@ªk? ¤£¦n·N«ä,§ÚµLªk±N敍­zÂনµ{¦¡,¤£¹L§Ú·Q¥H¤Wªººc«äÀ³¸Ó¬O¯à°÷¹ê²{ªº,¥u¦³°Ê§@1: AA4:AL¦³¸ê®Æªº³Ì«á¤@¦C,COPY«á­ì½d³ò¶K¤W­È,¥i¯à¤ñ¸û¦³°ÝÃD,¤£ª¾¯à§_¥Îµ{¦¡¥h¹F¦¨?
¦]¬°AD:AE¬O§¹¥þªÅ¥ÕÄæ,¦ÓACªº³Ì«á¤@¦C¸ê®Æ»PAFªºªí®æ¤S¦³3¦æ¥H¤Wªº§¹¥þªÅ¥Õ¦C.
ex.jpg
2012-5-4 13:29

TOP

¦^´_ 6# oobird
¸É¥R:³o¬O§Ú¤Ñ°¨¦æªÅªº·Qªk,­Y¬O¦³®¯©ó¥¿±`µ{¦¡ªº¼gªk,½Ð¤Å¨£©Ç!
¥t¥~....¯uªº¼g±o¦¨ªº¸Ü,¤]½Ðµ¹§Ú§¹¾ãªºµ{¦¡,¦]¬°..§Aª¾¹Dªº,§Ú¤£·|«÷´ê¤Ó½ÆÂøªºµ{¦¡.
·PÁ±z!

TOP

¤G¼Óªº«e¨â¦æ¤£´N¬O³o­Ó­n¨D¡H
For Each sh In Sheets '¦b©Ò¦³¤u§@ªí¤¤´`Àô
        sh.UsedRange = sh.UsedRange.Value '§â¤½¦¡µ²ªGÅܦ¨­È
¤£¥²¤@©w­ncopy¦A¥H­È¶K¤W¤~¯à§â¤½¦¡Åܦ¨­Èªº¡C
¦b©Ò¦³ªí¤¤´`Àô¤£¶·«Ø¥ß°}¦C¡A«Ø¥ß¤F¤]¬O¦h¤@¹Dµ{§Ç¡A¤S¦ó¥²¦h¦¹¤@Á|¡H

TOP

¦^´_ 2# oobird
  1. SH.[a4:ad4].AutoFilter '¨ú®ø¦Û°Ê¿z¿ï
  2. SH.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
½Æ»s¥N½X
³o¬O«á½ú§Úªº¨£¸Ñ ,¦p¦³¿ù»~½Ð¨£½Ì.
µ{¦¡¶}©l°õ¦æªì®É         [a4:ad4] ¬O¦b¦Û°Ê¿z¿ïªºª¬ºA¤U,²Ä¤@¦¸ªºAutoFilter  ¤~·|¬O  ¨ú®ø¦Û°Ê¿z¿ï
¦ý¦p   [a4:ad4] ¤£¬O¦b¦Û°Ê¿z¿ïªºª¬ºA¤U,²Ä¤G¦¸ªºAutoFilter ·|¬O   ¨ú®ø¦Û°Ê¿z¿ï
  1. SH.AutoFilterMode = False '¨ú®ø¦Û°Ê¿z¿ï  
  2.         SH.[a4:ad4].AutoFilter '«Ø¥ß¦Û°Ê¿z
  3.         
½Æ»s¥N½X
µ{¦¡°õ¦æ®É   ¤£ºÞ[a4:ad4] ¬O§_¦b¦Û°Ê¿z¿ïªºª¬ºA¤U, AutoFilterMode = False  ³£·|¨ú®ø¦Û°Ê¿z¿ï
1

µû¤À¤H¼Æ

    • oobird: ²Ó¤ß+¼ö¤ß¡I¥i·qªººë¯«ª÷¿ú + 2

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD