Excel如何制作動態模糊匹配的下拉菜單？

Excel如何制作動態模糊匹配的下拉菜單？

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

完成后的效果演示如下：

1 丨 制作步驟

選中目標工作表，在【開發工具】→【插入】→【ActiveX控件】，先后插入一個文本框和一個列表框?？丶拇笮『痛娣诺奈恢枚茧S意，反正這事你說了也不算，后面代碼會自己做調整。

需要注意的是，如果你不會調整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 '如果用戶選擇的單元格不是第1列或者屬于第1行 If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then b = True '如果用戶選擇的單元格數量大于1 If b Then ListBox1.Visible = False '不可見 TextBox1.Visible = False '不可見 Exit Sub '退出程序 End If With Worksheets("示例") '下拉列表來源內容的所在工作表 arr = .Range("d2:d" & .Cells(Rows.Count, "d").End(3).Row) '數據源 End With With TextBox1 .Value = "" .Visible = True '可見 .Top = Target.Top '文本框頂部位置 .Left = Target.Left '文本框左側位置 .Height = Target.Height '文本框高度 .Width = Target.Width '文本框寬度 .Activate '激活文本框 End With With ListBox1 .Visible = True '可 .Top = Target.Offset(0, 1).Top .Left = Target.Offset(0, 1).Left .Height = Target.Height * 5 .Width = Target.Width .List = arr '寫入數據源數據 End WithEnd Sub'根據文本框的輸入值動態匹配數據Private Sub TextBox1_Change() Dim arr, brr, i&, k& With Worksheets("示例") '下拉列表來源內容的所在工作表 arr = .Range("d2:d" & .Cells(Rows.Count, "d").End(3).Row) '數據源 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 '忽略字母大小寫 k = k + 1 brr(k) = arr(i, 1) End If Next ListBox1.List = brr '寫入匹配后的數據End Sub'如果雙擊列表框的內容則寫入活動單元格Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ActiveCell = ListBox1.Text With ListBox1 .Clear '清空列表框 .Visible = False End With With TextBox1 .Value = "" .Visible = False End WithEnd 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

來源：https://mp.weixin.qq.com/s/oWpO2KTfpDwYtHuEYsYP4Q

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。