- ©«¤l
- 104
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 144
- ÂI¦W
- 0
- §@·~¨t²Î
- windowsXP
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-25
- ³Ì«áµn¿ý
- 2022-9-2

|
¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-5-2 13:47 ½s¿è
¦^´_ 4# Hsieh
¤j¤j¦n¡G
§ï¥Î¤j¤jªº»yªk«á¡Arun°_¨Ó¦³§Ö«Ü¦h¡A¦ýÁÙ¬O¦³Ó¦a¤è¦³°ÝÃD
½Ð°Ý¤j¤j¤@Ó°ÝÃD¡A
§Ú¤@ª½¥æ¤e´ú¸Õµo²{¨ì¡A
¿z¿ï¨Ã¶K¤Wªº»yªk¡A«Ü¶O®É¶¡¡A
µ{¦¡½X¦p¤U¡G- Dim HH As Range, KK As Range, PP As Range
- Set PP = .[A6]
- .[A1:W65536].ClearContents
- HH.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=KK,
½Æ»s¥N½X ¡i°²³]¤¤dµ§¸ê®Æ¡j
run°_¨Ó¡A¸ê®Æ¤@µ§¤@µ§¶K¤W¡A¶K¨ì¤¤dµ§»Ýn¤£¤Ö®É¶¡¡A
(§Ú±NÀx¦s®æ©Ô¦Ü5000¦C³B¡A«ö°õ¦æ¡Aµo²{n¤@¬q®É¶¡¤~·|run¨ì¤¤dµ§¡A¦]¦¹§PÂ_¬O³o°ÝÃD)
¥i¬O§Ú§â¤@¼Ëªº¸ê®Æì«Ê¤£°Êªº¶K¨ì·ssheetÀÉ(new excel file)¡A¦brun¡A¤£¨ì¤@¬í´N¶]§¹¤F¡A(........)
(PS)¾ãÓexcelÀɮצ³¬ù20Óuserform¨CÓ³£¿z¿ï¤£¦P±ø¥ó¡A¤p§Ì¦b²q·Q¡A³o¼Ë·|¤£·|³y¦¨excel°õ¦æ®Éªº½wºC¡H
½Ð¯q¤j¤j·N¨£¡A¤p§Ì²{¦bÀY¦n·w=.= ·PÁ |
|