返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-8-28 19:34 | 只看該作者

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

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

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

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

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
5#
發表於 2012-8-28 22:28 | 只看該作者
本題好像回鍋了~如果有請幫我移除~謝謝!

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


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

  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
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
4#
發表於 2012-8-28 19:14 | 只看該作者
回復 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上打上安~則會幫我篩選出來?

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
3#
發表於 2012-8-28 13:58 | 只看該作者
確實不應有這麼多button...
你可以用combo box 作動作選項, 然後加個button來給用戶發起動作
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
2#
發表於 2012-8-28 10:56 | 只看該作者

如何讓CommandButton.Caption內容~可以讓使用者快速搜尋到?

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

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題