返回列表 上一主題 發帖

分享: 使用者在下拉選單輸入資料後 自動於下拉選單中顯示對應的資料

分享: 使用者在下拉選單輸入資料後 自動於下拉選單中顯示對應的資料

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

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

擷取.PNG
2019-5-16 00:38
  1. Private Sub ComboBox1_Change()

  2.         Dim str_input_len As Integer
  3.         Dim endCol As Integer
  4.         Dim str_cellText As String
  5.         Dim str_output As String
  6.        
  7.         endCol = Range("a65536").End(xlUp).Row

  8.         str_input_len = Len(ComboBox1.Text)
  9.        
  10.         ComboBox1.List = Array()
  11.        
  12.         For i = 1 To endCol Step 1
  13.                 str_output = ""
  14.                 str_cellText = Left(Cells(i, 1).Text, str_input_len)
  15.                 If str_cellText = ComboBox1.Text Then
  16.                         str_output = Cells(i, 1).Text
  17.                         ComboBox1.AddItem str_output
  18.                         SendKeys "%{Down}"
  19.                 End If
  20.         Next
  21. End Sub
複製代碼

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題