標題: 分享: 使用者在下拉選單輸入資料後 自動於下拉選單中顯示對應的資料 [打印本頁]

---

作者: ciboybj    時間: 2019-5-16 00:41     標題: 分享: 使用者在下拉選單輸入資料後 自動於下拉選單中顯示對應的資料

本帖最後由 ciboybj 於 2019-5-16 00:42 編輯

以下程式
可以讓使用者在下拉式選單ComboBox中輸入單字時
自動去比對欄1中具有相同字串的儲存格內容
舉例來說，欄1填有多個公司名
如下圖所示，當使用者於下拉選單中輸入「台」 則下拉選單的下方將自動產生出「台」開頭的公司名

[attach]30614[/attach]

1. Private Sub ComboBox1_Change()
   
2. 
   
3.         Dim str_input_len As Integer
   
4.         Dim endCol As Integer
   
5.         Dim str_cellText As String
   
6.         Dim str_output As String
   
7.        
   
8.         endCol = Range("a65536").End(xlUp).Row
   
9. 
   
10.         str_input_len = Len(ComboBox1.Text)
    
11.        
    
12.         ComboBox1.List = Array()
    
13.        
    
14.         For i = 1 To endCol Step 1
    
15.                 str_output = ""
    
16.                 str_cellText = Left(Cells(i, 1).Text, str_input_len)
    
17.                 If str_cellText = ComboBox1.Text Then
    
18.                         str_output = Cells(i, 1).Text
    
19.                         ComboBox1.AddItem str_output
    
20.                         SendKeys "%{Down}"
    
21.                 End If
    
22.         Next
    
23. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)