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

¦p¦óÅã¥Ü¯S©w³æ»ù½d³òªº¸ê®Æ¡H

¦p¦óÅã¥Ü¯S©w³æ»ù½d³òªº¸ê®Æ¡H

¦p¦óÅã¥Ü¯S©w³æ»ù½d³òªº¸ê®Æ¡H

½Ð°Ñ¦Ò
https://dl.dropboxusercontent.com/u/12575824/no.filter.xls

sheet1 ©ñ¤F«Ü¦h²£«~ªº²M³æ¸ê®Æ¡C

²{¦b§Ú¦bsheet2 §Æ±æ¥u¦C¥X sheet2.[a2] ½d³ò¤ºªº²£«~²M³æ

½Ð°Ý¡A§Ú¸Ó¥Î«ç¼Ëªº«ü¥O¡H
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^

¦^´_ 4# eigen
¥i¥Hµoªí¿ù¦b­þ¸Ì¶Ü?¥æ¬y¤@¤U.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ÁÂÁ¡A§Úª¾¹D¨º¿ù¤F
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^

TOP

¦^´_ 2# GBKEE


   GBKEE ¡AÁÂÁ§Aªº¦^´_¡A§Ú¦b excel 2003 ¤W¡A·Ó§A´£¨Ñªº¸ê®Æ¡AµLªk¹B§@

https://dl.dropboxusercontent.com/u/12575824/no.filter.xls

µLªk¹B§@¡A¤£¦n·N«ä¡A½Ð«üÂI¤@¤U¡CÁÂÁÂ
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^

TOP

¦^´_ 1# eigen
  1. Option Explicit  'Sheet2 ªºµ{¦¡½X
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Application.EnableEvents = Fals
  4.     If Target.Address(0, 0) = "A2" Then
  5.         Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, [A5:A6], [E1:G1], False
  6.     End If
  7.     Application.EnableEvents = True
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD