[發問] 關於ComboBox如何打第一個字~快速篩選出同樣詞?

av8d

CommandButton有50個~每個的內容都不同~
如何讓CommandButton.Caption內容~可以讓使用者快速搜尋到?
或是不用CommandButton用其他的也可以~感謝各位大大!

kimbal

確實不應有這麼多button...
你可以用combo box 作動作選項, 然後加個button來給用戶發起動作

av8d

回復 2# kimbal


    如果資料放在工作表2的A欄內

1. Private Sub UserForm1_Initialize()
   
2.     Dim d As Object, A
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With 工作表2
   
5.         For Each A In .Range("A1", .[A1].End(xlDown))
   
6.           d(A.Value) = ""
   
7.         Next A
   
8.         ComboBox1.List = Application.Transpose(d.keys)
   
9.     End With
   
10. End Sub

複製代碼

以上是否可以在ComboBox打上關鍵字~幫我排序?
例如A欄內有豐米,安心,池上
如果我要找安心~只要在ComboBox上打上安~則會幫我篩選出來?

av8d

本題好像回鍋了~如果有請幫我移除~謝謝!

ComboBox內有路人甲,紅綠燈1,紅綠燈2,路人乙,路人丙
當我在ComboBox打"路"的時候~是否可以只顯示路人甲,路人乙,路人丙

進階題
ComboBox內有路人甲,紅綠燈1,紅綠燈2,中華路,馬路如虎口
當我在ComboBox打"路"的時候~是否可以只顯示路人甲,中華路,馬路如虎口

kimbal

本題好像回鍋了~如果有請幫我移除~謝謝!

ComboBox內有路人甲,紅綠燈1,紅綠燈2,路人乙,路人丙
當我在Com ...
av8d 發表於 2012-8-28 19:34

試試加上這個,每按一下鍵,列表自動更新

1. 
   
2. Private Sub ComboBox1_Change()
   
3.     Dim d As Object, A
   
4.     Application.EnableEvents = False
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.    With 工作表2
   
7.        For Each A In .Range("A1", .[A1].End(xlDown))
   
8.            If A Like "*" & ComboBox1.Text & "*" Then
   
9.                 d(A.Value) = ""
   
10.             End If
    
11.         Next A
    
12.         If d.Count > 0 Then
    
13.             ComboBox1.List = Application.Transpose(d.keys)
    
14.         End If
    
15.     End With
    
16.     Application.EnableEvents = True
    
17.     Set d = Nothing
    
18. End Sub

複製代碼

下載 (68.67 KB)

2012-8-28 22:28