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

[µo°Ý] ¨D±Ï¡I¦p¦ó³z¹L¼Ò½k¬d¸ß¡A¨ú±o¹ïÀ³Äæ¦ìªº¦C¼Æ

[µo°Ý] ¨D±Ï¡I¦p¦ó³z¹L¼Ò½k¬d¸ß¡A¨ú±o¹ïÀ³Äæ¦ìªº¦C¼Æ

¦U¦ì¤j¤j½ÐÀ°¦£¡A§Ú°Ñ¦Ò¦n´X¥»®Ñ¡A¬Y¨Ç¥\¯à¤w¸g§Ë¥X¨Ó¡A¥i¬O¦³¨Ç´N¬O·d¤£©w

¨ä¤¤Searchªº¥\¯à¦pªG¯à·d©w¡A¨ä¥L§ÚÀ³¸Ó´N¥i¥H¤ñ¸û¼Ò¥é¤F¡G§Úªº·Qªk¬O¡A§Q¥Î¤¤¤å¤½¥q¦WºÙ¡C¨Ó¬d¸ß«È¤á¸ê®ÆªíAÄ椤ªº¸ê®Æ¡A
µM«á¨ú±o¹ïÀ³Äæ¦ìªº¦C¼Æ¡A¦A³z¹L¦C¼Æ¨Ó©I¥sreadrecordµ{¦¡¡A±a¤J¨ä¥LÄæ¦ì¸ê®Æ

VBA¨D±Ï.zip (41.2 KB)

ÁٽЭþ¦ìÀ°À°¦£¡I:L
³Í¯S

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-1-8 10:27 ½s¿è

¦^´_ 1# katefanchen
·s¼W¤@­Ó¦Û­qªí³æ¡A­«·s©R¦W¬°fm_search
ªí³æ¤¤³]¸m¤@­ÓListbox1
ªí³æ¼Ò²Õµ{¦¡½X
  1. Private Sub ListBox1_Click()
  2. ¤u§@ªí8.readrecord ListBox1.Value
  3. Unload Me
  4. End Sub
½Æ»s¥N½X
¤u§@ªí¼Ò²Õ
  1. Private Sub search_click()
  2. Dim Ar(), company$, s%, A As Range
  3. company = InputBox("½Ð¿é¤J¼t°Ó¦WºÙÃöÁä¦r", , "ªY")
  4. With ¤u§@ªí9
  5. For Each A In .Range(.[A2], .[A2].End(xlDown))
  6.    If InStr(A, company) > 0 Then
  7.       ReDim Preserve Ar(s)
  8.       Ar(s) = A
  9.       s = s + 1
  10.    End If
  11. Next
  12. With fm_search
  13. .Show 0
  14. .ListBox1.List = Ar
  15. End With
  16. End With
  17. End Sub
½Æ»s¥N½X
Help.zip (36.42 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD