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

[µo°Ý] ¤U©Ô¦¡¿ï³æ³sµ²¿z¿ï¥\¯à

[µo°Ý] ¤U©Ô¦¡¿ï³æ³sµ²¿z¿ï¥\¯à

¦U¦ì«e½ú¦n

³Ìªñ¤S¹J¨ì¤@­Ó°ÝÃD¡A»Ý­n·s¼W¸ê®Æ¿z¿ïªº¥\¯à¡A
¦b²@µLÀYºüªºª¬ªp¤U¨ì³Bª¦¤å¡A¬Ý¬Ý§O¤Hªº°µªk¡A
¨ä¤¤¦³¬Ý¨ì"­ã´£³¡ªL"¤j¤jªº¦h±ø¥ó·j´M»P¿z¿ï¡A
§Ú·Q¸ß°Ý¦³¨S¦³¿ìªk¦b¦P¤@­Ó­¶­±¸Ì­±³B²z³o¨Ç¸ê®Æ?(²{ªp¤u§@ªí¤w¸g¦³ÂI¦h)
Á|­Ó¨Ò¤l¡G
ÃöÁä¦r¦bsheet2ªºBÄæ
¸ê®Æ¦bsheet1ªºBÄæ
·Q­n¦bsheet1ªºBÄæ¤W¤è³sµ²¤@­Ó¤U©Ô¦¡¿ï³æ(©Î¥[­Ó«ö¶s°õ¦æµ¥¤è¦¡)¡A¿ï³æ¸Ì­±³sµ²ÃöÁä¦r
ÂI¿ï§¹¤U©Ô¦¡¿ï³æ«á¡A¤U­±ªº¸ê®Æ¤w¿z¿ï¥X§t¦³ÃöÁä¦rªº¤º®e
³o­Ó¯à°µ±o¨ì¶Ü? ©Î¬O¨Ï¥ÎVBA?


¸ê®Æ¿z¿ï°ÝÃD.rar (7.46 KB)

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.      If .Address = "$B$1" Then
  4.         If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
  5.         If .Value = "" Then Exit Sub
  6.         Range([A3], [A65536].End(xlUp).Cells(1, 2)).AutoFilter Field:=2, Criteria1:="=*" & .Value & "*"
  7.      End If
  8. End With
  9. End Sub
½Æ»s¥N½X
¸ê®Æ¿z¿ï°ÝÃD_V1.rar (10.12 KB)

TOP

¦^´_ 2# ­ã´£³¡ªL


ÁÂÁ­㴣³¡ªLªº«üÂI
§Úªº»Ý¨D´N¬O³o­Ó!!!
­ì¨Ó¥i¥H¹ïÀx¦s®æ³o¼Ë¨Ï¥Î~!!!
¤S¾Ç¤F¤@½Ò~¯uªº«D±`·PÁ±z

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD