顯示在搜索列表框中的數據在VBA

我是新來的VBA代碼..顯示在搜索列表框中的數據在VBA

幫助我在這種情況下..

我有一個表像表1

Data table

&用戶形式就像 User form

我需要在t中顯示搜索數據他的列表中...我的邏輯，我已經試過......

1）持有的文本框的值 2）第一次試圖與先進的過濾器，但它不工作 3），然後用試圖找到一個變量它的功能也顯示錯誤..

我都試過，但它不顯示列表框......這是我的先進先用列表框的工作...感謝....

來源

2016-02-25 Subhasish1315

您是否已經想出了答案？謝謝！ –

能你請顯示你已經嘗試過的代碼？如果我不能評論你的問題，我很抱歉，因爲我仍然缺乏聲譽。謝謝！

請在下面試試這個代碼：

Private Sub cmdSearch_Click() 
Dim ws As Worksheet 
Dim numRow As Integer 
Dim found As Boolean 
Set ws = ThisWorkbook.Worksheets("display") 
For numRow = 1 To (ws.Range("A" & ws.Rows.Count).End(xlUp).Row) 
     If nameTxtBox.Value = ws.Range("A" & numRow).Text Then 
      nameList.AddItem (ws.Range("A" & numRow).Value) 
      prodList.AddItem (ws.Range("B" & numRow).Value) 
      saleList.AddItem (ws.Range("C" & numRow).Value) 
      found = True 
      Exit For 
     End If 
Next numRow 
If found = False Then 
    MsgBox "No Match Found!", vbCritical 
    nameList.Clear 
    prodList.Clear 
    saleList.Clear 

End If 

End Sub

窗體屏幕截圖

試算表截圖：

希望這是你想要做什麼！謝謝！

來源

2016-02-25 07:23:55

Access和Excel以及這些工具的版本之間的細節可能會有所不同......我碰巧在此示例中使用了Access 2000。

如果您不確定如何查看圖標的命名方式，請將鼠標光標懸停在上面。

我打開在設計視圖
形式我激活了一個工具欄，有「工具箱」圖標
我選擇了「列表框中的」
我在表格上點擊並拖動一個盒子形狀。本作包含標題框「列表1」，也是一個列表框
我改變了標題爲不管我打算使用的表，這是符合「tblDomainName」，因此「域名：」
我打開了列表框的屬性並在「行來源」區域中單擊。
我基於計劃使用的表鍵入「SELECT DomainName FROM tblDomainName ORDER BY DomainName」，所以如果您的表名爲「Stuff」，那麼您應該在雙引號內輸入內容，在這裏：「SELECT [Name] FROM Stuff ORDER BY [Name]「...如果」Name「是一個保留字，請注意方括號，否則可能會導致混淆。
我改變形成「查看」模式，並點擊各種值。他們與我桌子上的東西相匹配，而且他們排序在外。好極了！

所以，上面得到的列表框基本上工作，並讓你過去的第一個障礙......據我所知。

接下來是什麼？至於你如何使用這個列表框和選定的值，對你的好處....取決於大圖是什麼，所以請隨意詳細說明。

這有幫助嗎？

〜Tanya

來源

2016-02-25 08:51:10

顯示在搜索列表框中的數據在VBA

回答

相關問題