根据B列值，实时在C列的 ListBox 匹配对应值

YZC51

MDX680 发表于 2020-1-20 11:42
能否麻烦您上传附件？万分感谢！

您好！先练习着抄写代码吧！

YZC51

刚才发现图片不全

MDX680

YZC51 发表于 2020-1-20 11:51
刚才发现图片不全

万分感谢，问题得以解决。

YZC51

MDX680 发表于 2020-1-20 13:29
万分感谢，问题得以解决。

您好！据说现在鲜花都需要用金 条买了！！！

YZC51

谢谢老师小花花鼓励！
ListBox 匹配对应值.zip (108.3 KB, 下载次数: 7)

2020-1-20 15:23 上传

点击文件名下载附件

MDX680

YZC51 发表于 2020-1-20 15:20
谢谢老师小花花鼓励！

完美解决，十分感谢！

YZC51

MDX680 发表于 2020-1-21 08:53
完美解决，十分感谢！

不客气！解决就好！

MDX680

YZC51 发表于 2020-1-21 09:31
不客气！解决就好！

谢谢你的热情帮助！

YZC51

MDX680 发表于 2020-1-21 14:29
谢谢你的热情帮助！

不客气！请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row > 3 And (Target.Column = 1 Or Target.Column = 2) Then
        Set d = CreateObject("scripting.dictionary")
        If Target.Column = 1 Then mystr = "" Else mystr = Target(1, 0)
        Me.ListBox1.Clear
        ListBox1.Visible = True
        arr = Sheet2.[a1].CurrentRegion
        For i = 2 To UBound(arr)
            d(arr(i, 1)) = ""
        Next
        brr = Application.Transpose(d.keys)
        With ListBox1
            .Top = Target(2).Top
            .Left = Target.Offset(, 1).Left
            .Height = 110.25
            .Width = 100
            .Visible = True
        End With
        If Target.Column = 1 Then
            For i = 1 To UBound(brr)
                Me.ListBox1.AddItem brr(i, 1)
            Next
        End If
        If Target.Column = 3 Then
            For i = 2 To UBound(arr)
                If InStr(arr(i, 1), mystr) > 0 Then Me.ListBox1.AddItem arr(i, 2)
            Next
        End If
    Else
        ListBox1.Visible = False
    End If
End Sub