標題:
[發問]
關於ComboBox如何打第一個字~快速篩選出同樣詞?
[打印本頁]
作者:
av8d
時間:
2012-8-28 10:56
標題:
如何讓CommandButton.Caption內容~可以讓使用者快速搜尋到?
CommandButton有50個~每個的內容都不同~
如何讓CommandButton.Caption內容~可以讓使用者快速搜尋到?
或是不用CommandButton用其他的也可以~感謝各位大大!
作者:
kimbal
時間:
2012-8-28 13:58
確實不應有這麼多button...
你可以用combo box 作動作選項, 然後加個button來給用戶發起動作
作者:
av8d
時間:
2012-8-28 19:14
回復
2#
kimbal
如果資料放在工作表2的A欄內
Private Sub UserForm1_Initialize()
Dim d As Object, A
Set d = CreateObject("Scripting.Dictionary")
With 工作表2
For Each A In .Range("A1", .[A1].End(xlDown))
d(A.Value) = ""
Next A
ComboBox1.List = Application.Transpose(d.keys)
End With
End Sub
複製代碼
以上是否可以在ComboBox打上關鍵字~幫我排序?
例如A欄內有豐米,安心,池上
如果我要找安心~只要在ComboBox上打上安~則會幫我篩選出來?
作者:
av8d
時間:
2012-8-28 19:34
標題:
關於ComboBox如何打第一個字~快速篩選出同樣詞?
本題好像回鍋了~如果有請幫我移除~謝謝!
ComboBox內有路人甲,紅綠燈1,紅綠燈2,路人乙,路人丙
當我在ComboBox打"路"的時候~是否可以只顯示路人甲,路人乙,路人丙
進階題
ComboBox內有路人甲,紅綠燈1,紅綠燈2,中華路,馬路如虎口
當我在ComboBox打"路"的時候~是否可以只顯示路人甲,中華路,馬路如虎口
作者:
kimbal
時間:
2012-8-28 22:28
本題好像回鍋了~如果有請幫我移除~謝謝!
ComboBox內有路人甲,紅綠燈1,紅綠燈2,路人乙,路人丙
當我在Com ...
av8d 發表於 2012-8-28 19:34
試試加上這個,每按一下鍵,列表自動更新
Private Sub ComboBox1_Change()
Dim d As Object, A
Application.EnableEvents = False
Set d = CreateObject("Scripting.Dictionary")
With 工作表2
For Each A In .Range("A1", .[A1].End(xlDown))
If A Like "*" & ComboBox1.Text & "*" Then
d(A.Value) = ""
End If
Next A
If d.Count > 0 Then
ComboBox1.List = Application.Transpose(d.keys)
End If
End With
Application.EnableEvents = True
Set d = Nothing
End Sub
複製代碼
[attach]12313[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
