求助帮忙修改代码实现新需求，根据输入值模糊匹配，并把匹配项列出候选框填充的代码

百读谷歌

这个代码原来是根据输入值，模糊匹配D列数值后，唯一一项自动填充，多个匹配项就排序一个窗口候选选择后填充的。
现在想增加一些新的需求，能不能请大佬帮忙看一下，能不能帮忙加点代码实现？

现在要匹配项先匹配E列，再匹配D列，并根据不同列数填充不同位置的数值。

具体说明在附件更详细，劳烦大佬下载来看看。不胜感激！！

wtg321

只做了前2个需求。

1. ar = Range("d1", Cells(Rows.Count, "e").End(3))
   
2.     strTarget = Target.Value
   
3.     For i = 1 To UBound(ar)
   
4.         If InStr(ar(i, 2), strTarget) Then
   
5.              r = r + 1
   
6.              ReDim Preserve br(1 To r)
   
7.              br(r) = ar(i, 1)
   
8.         End If
   
9.          If InStr(ar(i, 1), strTarget) Then
   
10.              r = r + 1
    
11.              ReDim Preserve br(1 To r)
    
12.              br(r) = ar(i, 1)
    
13.         End If
    
14.     Next i

复制代码

百读谷歌

wtg321 发表于 2024-9-9 11:18
只做了前2个需求。

谢谢。测试可行，只是这个需求能不能一起加到你的这些修改代码去？

弹出多个匹配项候选窗格，如果没有选择内容填充插入，要清空输入值。

因为这个需求是大佬你给的代码一起的，如果我没有选择多匹配项的候选窗格的内容来填充，我想要他清空输入单元格内容。

期待大佬回复，感谢！

xjl565135022

有个类似的案例，稍微改了一下，追加客户我觉得还是手动追加吧

xjl565135022

附件忘记传了...

Qs18

用文本框和列表框做的看看对您有用没有

Qs18

用文本框和列表框做的看看对您有用没有

Qs18

用文本框和列表框做的看看对您有用没有

Qs18

1. Function Py$(ByVal rng$)
   
2.     Dim i%, pyArr, str$, ch$
   
3.     pyArr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
   
4.     str = Replace(Replace(rng, " ", ""), "　", "")          '去空格和Tab
   
5.     For i = 1 To Len(str)
   
6.         ch = Mid(str, i, 1)
   
7.         If ch Like "[一-龥]" Then   '如果是汉字，进行转换
   
8.             Py = Py & WorksheetFunction.Lookup(Mid(str, i, 1), pyArr)
   
9.         Else
   
10.             'Py = Py & UCase(ch)     '如果不是汉字，直接输出
    
11.         End If
    
12.     Next
    
13. End Function

复制代码

Qs18

试试。。。。。。。。。。