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

¬d¸ß¦p¦ó°}¦C¡A¥[§Ö¤Æ¡H

¦^´_ 1# s7659109
  1. Sub ex()
  2. Dim Ar(), A As Range, s&, k&
  3. With Sheets("data")
  4. k = .[A4].End(xlToRight).Column
  5. For Each A In .Range(.[A5], .[A5].End(xlDown))
  6.    mystr = Join(Application.Transpose(Application.Transpose(A.Resize(, k))), Chr(10))
  7.    If InStr(mystr, Sheets("search").[C1]) > 0 Then
  8.    ReDim Preserve Ar(s)
  9.    Ar(s) = Split(mystr, Chr(10))
  10.    s = s + 1
  11.    End If
  12. Next
  13. If s > 0 Then Sheets("search").[A3].Resize(s, k) = Application.Transpose(Application.Transpose(Ar))
  14. End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# s7659109
§Aªº°ÝÃD¬OÅÜ°Ê°}¦C¤j¤p®É¡A±N¤W­­­È¥ý³]»P«á³]ªº®t²§
¦]¬°°}¦C°_©l­È¦b¨S¦³³]©w¤U¬O±q0¶}©l¡A­Y§A¬O±Ns=s+1©ñ¦bReDim¤§«e¡A¨º»ò°}¦C¤W­­¬O0ªº±¡ªp¤U
§A«o­nµ¹°}¦CAr(1)³]©w­È¡A³o¼Ë´N·|¥X²{¶W¥X°}¦C¯Á¤Þ½d³òªº¿ù»~
©³¤U¾A¥ÎÀx¦s®æChange¨Æ¥ó¨Ñ§A°Ñ¦Ò
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$AB$2" Then
  3. Range("A:A").EntireRow.Hidden = False
  4. For Each A In Range([A5], [A5].End(xlDown))
  5.   If InStr(Join(Application.Transpose(Application.Transpose(A.Resize(, 31))), Chr(10)), [AB2]) = 0 Then A.EntireRow.Hidden = True
  6. Next
  7. End If
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD