[發問] 求救！如何透過模糊查詢，取得對應欄位的列數

katefanchen

各位大大請幫忙，我參考好幾本書，某些功能已經弄出來，可是有些就是搞不定

其中Search的功能如果能搞定，其他我應該就可以比較模仿了：我的想法是，利用中文公司名稱。來查詢客戶資料表A欄中的資料，
然後取得對應欄位的列數，再透過列數來呼叫readrecord程式，帶入其他欄位資料

VBA求救.zip (41.2 KB)

下載次數: 8

2013-1-8 01:44

還請哪位幫幫忙！:L

Hsieh

回復 1# katefanchen
新增一個自訂表單，重新命名為fm_search
表單中設置一個Listbox1
表單模組程式碼

1. Private Sub ListBox1_Click()
   
2. 工作表8.readrecord ListBox1.Value
   
3. Unload Me
   
4. End Sub

複製代碼

工作表模組

1. Private Sub search_click()
   
2. Dim Ar(), company$, s%, A As Range
   
3. company = InputBox("請輸入廠商名稱關鍵字", , "欣")
   
4. With 工作表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

複製代碼

Help.zip (36.42 KB)

下載次數: 10

2013-1-8 10:27