vba有下拉框的模糊查找_VBA Combobox控件模糊查找+拼音查找怎么做？

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNextDimstrNAsStringSetcnn=CreateObject("adodb.connection")cnn.Open"Provider=microsoft.jet.oledb.4.0;Da...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Dim strN As String

Set cnn = CreateObject("adodb.connection")

cnn.Open "Provider=microsoft.jet.oledb.4.0;Data Source =Z:\KD\KDDATA\" & Sheet3.[D2] & "数据库.mdb"

sql = "Select distinct 客户名称 from 开单资料"

strN = "Select distinct 客户名称 from 开单资料"

If IsNull(strN) Then

MsgBox "数据库可能为空"

Else

arr = cnn.Execute(sql).GetRows

Sheet3.ComboBox1.List = WorksheetFunction.Transpose(arr)

If (Target.Column = 2 Or Target.Column = 3) And Target.Row = 2 Then

If IsDate(Target) Then

<