返回列表 上一主題 發帖

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

katefanchen

帖子
1 
主題
1 
精華
0 
積分
7 
點名
0  
作業系統
windows 7 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2013-1-8 
最後登錄
2013-1-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-8 01:47 | 只看該作者

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

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

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

VBA求救.zip (41.2 KB)

還請哪位幫幫忙！:L
收藏 分享
凱特

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
216  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-10-1 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-1-8 10:17 | 只看該作者
本帖最後由 Hsieh 於 2013-1-8 10:27 編輯

回復 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)
學海無涯_不恥下問

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題