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

katefanchen

¦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)

¤U¸ü¦¸¼Æ: 8

2013-1-8 01:44

ÁٽЭþ¦ìÀ°À°¦£¡I:L

Hsieh

¦^´_ 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)

¤U¸ü¦¸¼Æ: 10

2013-1-8 10:27