手機(jī)如何做表格：點(diǎn)擊查看

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

完成后的效果演示如下：

如上圖所示，點(diǎn)擊A列單元格，Excel會(huì)自動(dòng)跳出一個(gè)文本輸入框和一個(gè)列表框。當(dāng)在文本框中輸入數(shù)據(jù)時(shí)，列表框的數(shù)據(jù)會(huì)隨之動(dòng)態(tài)更新。

選中目標(biāo)工作表，在【開發(fā)工具】→【插入】→【ActiveX控件】，先后插入一個(gè)文本框和一個(gè)列表框。控件的大小和存放的位置都隨意，反正這事你說了也不算，后面代碼會(huì)自己做調(diào)整。

需要注意的是，如果你不會(huì)調(diào)整VBA代碼，那么此處文本框的名字必須為TextBox1，列表框的名字必須為ListBox1——正常而言，這倆名字也都是系統(tǒng)默認(rèn)的。

保持目標(biāo)工作表選中狀態(tài)不變，按快捷鍵打開VBE器，將以下代碼粘貼到當(dāng)前工作表的代碼窗口。

代碼解析見注釋

最后關(guān)閉VBE，將當(dāng)前工作簿另存為xlsm文件即可。……

如果你不懂VBA，按以上步驟操作后，需要將代碼中的”示例”替換為下拉列表數(shù)據(jù)源所在的工作表名，將”d2:d” & .Cells(Rows.Count, “d”)部分，替換為實(shí)際數(shù)據(jù)源所在列。