手把手教你Excel製作動態模糊匹配的下拉式選單

這篇文章為大家帶來了關於excel的相關知識，其中主要介紹了關於Excel如何製作動態模糊匹配的下拉菜單的相關問題，下面就一起來看一下，希望對大家有幫助。

相關學習推薦：excel教學

#我們知道，可以利用函數製作模糊匹配的下拉式選單，但函數那傢伙的特色是小巧靈，數據量稍大，效率就直接彌留之際了。眾所周知，在Excel裡，高效率解決複雜問題，還是得靠又笨又愣愣的VBA。那麼，今天就再給大家分享一下，如何使用VBA製作更好用的動態模糊配對下拉式選單。

完成後的效果示範如下：

如上圖所示，點選A列儲存格，Excel會自動跳出文字輸入框和一個列表框。當在文字方塊中輸入資料時，列錶框的資料會隨之動態更新。

1 丨 製作步驟

選取目標工作表，在【開發工具】→【插入】→【ActiveX控制項】，先後插入一個文字方塊與一個列錶框。控制的大小和存放的位置都隨意，反正這事你說了也不算，後面程式碼會自己做調整。

需要注意的是，如果你不會調整VBA程式碼，那麼這裡文字方塊的名稱必須為TextBox1，列錶框的名字必須為ListBox1－正常而言，這倆名字也都是系統預設的。

保持目標工作表選取狀態不變，按快速鍵開啟VBE編輯器，將以下程式碼貼到目前工作表的程式碼視窗。

程式碼解析見註解

'设置文本框和列表框的大小及位置
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim b As Boolean, arr
    If Target.Column <> 1 Or Target.Row < 2 Then b = True &#39;如果用户选择的单元格不是第1列或者属于第1行
    If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then b = True &#39;如果用户选择的单元格数量大于1
    If b Then
        ListBox1.Visible = False &#39;不可见
        TextBox1.Visible = False &#39;不可见
        Exit Sub &#39;退出程序
    End If
    With Worksheets("示例") &#39;下拉列表来源内容的所在工作表
        arr = .Range("d2:d" & .Cells(Rows.Count, "d").End(3).Row) &#39;数据源
    End With
    With TextBox1
        .Value = ""
        .Visible = True &#39;可见
        .Top = Target.Top &#39;文本框顶部位置
        .Left = Target.Left &#39;文本框左侧位置
        .Height = Target.Height &#39;文本框高度
        .Width = Target.Width &#39;文本框宽度
        .Activate &#39;激活文本框
    End With
    With ListBox1
        .Visible = True &#39;可
        .Top = Target.Offset(0, 1).Top
        .Left = Target.Offset(0, 1).Left
        .Height = Target.Height * 5
        .Width = Target.Width
        .List = arr &#39;写入数据源数据
    End With
End Sub
&#39;根据文本框的输入值动态匹配数据
Private Sub TextBox1_Change()
    Dim arr, brr, i&, k&
    With Worksheets("示例") &#39;下拉列表来源内容的所在工作表
        arr = .Range("d2:d" & .Cells(Rows.Count, "d").End(3).Row) &#39;数据源
    End With
    If TextBox1.Text = "" Then ListBox1.List = arr: Exit Sub
    ReDim brr(1 To UBound(arr))
    For i = 1 To UBound(arr)
        If InStr(1, arr(i, 1), TextBox1.Text, vbTextCompare) Then  &#39;忽略字母大小写
            k = k + 1
            brr(k) = arr(i, 1)
        End If
    Next
    ListBox1.List = brr &#39;写入匹配后的数据
End Sub
&#39;如果双击列表框的内容则写入活动单元格
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveCell = ListBox1.Text
    With ListBox1
        .Clear &#39;清空列表框
        .Visible = False
    End With
    With TextBox1
        .Value = ""
        .Visible = False
    End With
End Sub

最後關閉VBE，將目前工作簿另存為xlsm檔即可。
……

2 丨其它

如果你不懂VBA，按以上步驟操作後，需要將程式碼中的」範例」替換為下拉式清單資料來源所在的工作表名，將”d2:d” & .Cells(Rows.Count, “d”)部分，替換為實際資料來源所在欄位。

With Worksheets("示例") '下拉列表来源内容的所在工作表
arr = .Range("d2:d" & .Cells(Rows.Count, "d").End(3).Row) '数据源
End With

相關學習推薦：excel教學

#

以上是手把手教你Excel製作動態模糊匹配的下拉式選單的詳細內容。更多資訊請關注PHP中文網其他相關文章！