求通过录入汉字首拼显示供货商名称

zhy0911

请问各位大佬，如何通过拼音的首字母录入供货商的名称，套取汉字首字母的公式已做好了，接下来该如何做呢？谢谢了！

zhy0911

要求通过输入汉字首拼和汉字都可以查找，谢谢了

IVYQQQQQ

给你一个参考附件！录入汉字英文或拼音首字母都可以。

zhy0911

IVYQQQQQ 发表于 2020-1-10 14:53
给你一个参考附件！录入汉字英文或拼音首字母都可以。

谢谢了，请问这个选择中可以做成多选吗？

IVYQQQQQ

zhy0911 发表于 2020-1-10 14:57
谢谢了，请问这个选择中可以做成多选吗？

很多程序都是根据工作需要定制的，所以首先要了解需求，想要做什么达到什么目标。我这个例子是根据清单里的数据，只要录入相关的内容就会把相关的内容显示出来供选择录入，如果想录入多行，也是可以的，一般不会这么操作。

zhy0911

好的，谢谢

zhy0911

IVYQQQQQ 发表于 2020-1-10 15:02
很多程序都是根据工作需要定制的，所以首先要了解需求，想要做什么达到什么目标。我这个例子是根据清单里 ...

那如果我在“数据”工作表中增加了几列，要求在“填写”工作表中，也要显示，怎么改呢？谢谢了

YZC51

zhy0911 发表于 2020-1-10 14:57
谢谢了，请问这个选择中可以做成多选吗？

请参考
    Dim a(), i
'    On Error Resume Next
    If (Target.Column = 11 Or Target.Column = 14) And Target.Row > 4 Then
        On Error GoTo err
        If Target.Validation.Type >= 0 Then SendKeys "%{down}"
    End If
err:     '自动下拉，不用再点选箭头代码结尾

   
    If Target.Column <> 2 Then Exit Sub
    If Target(0, 1) = "" Then Exit Sub
'    If Target(1, 0) <> "" Then Exit Sub
    If Target.CountLarge = 1 And Target.Row > 4 Then
  '      If Target(1, 0) = "" Then
            If Target.Column = 2 Then Application.CommandBars("myCell").ShowPopup
            If Target <> "" Then Target(1, 0) = Date
            Target(1, 7) = sx
            Target(1, 8).Select
  '      Target(1, 12) = Lb
'       End If
    End If
'    End If
End Sub

IVYQQQQQ

zhy0911 发表于 2020-1-10 16:02
那如果我在“数据”工作表中增加了几列，要求在“填写”工作表中，也要显示，怎么改呢？谢谢了

先自己研究研究代码，实际就套用套用代码就可以了，实在不会等我空的时候给你看看。

zhy0911

IVYQQQQQ 发表于 2020-1-10 16:15
先自己研究研究代码，实际就套用套用代码就可以了，实在不会等我空的时候给你看看。

好的，抽空时帮我看看，我刚学VBA，有些东西实在看不懂，十分谢谢了！