如果点击单元格引用参数中的数据

Benfyhu

各位老师好！如果点击单元格引用参数中的数据，输入某个字后可快速带出和该字有相关的数据

vitrel

楼主，您好！
已按您要求修改，您看是否符合。

vitrel

反正要等待审核，先附上效果图。

3190496160

这个得用文本框控件和列表框控件才能做到的吧

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        ActiveCell = ListBox1.List(i, 0)
        TextBox1.Visible = False
        ListBox1.Visible = False
        TextBox1 = ""
        ListBox1.Clear
        Exit For
    End If
Next i
End Sub

Private Sub TextBox1_Change()
Dim d As Object
zd = TextBox1.Text
Set d = CreateObject("scripting.dictionary")
With Sheets("参数")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:a" & r)
End With
For i = 2 To UBound(ar)
    If InStr(ar(i, 1), zd) > 0 Then
        d(ar(i, 1)) = ""
    End If
Next i
With ListBox1
    .Visible = True
    .Top = ActiveCell.Top + 20
    .Left = ActiveCell.Left + 10
    .List = d.keys
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 3 Then
    If T.Count > 1 Then End
    With TextBox1
        .Visible = True
        .Top = T.Top
        .Left = T.Left
        .Activate
    End With
Else
    TextBox1.Visible = False
    ListBox1.Visible = False
    TextBox1 = ""
    ListBox1.Clear
End If
End Sub

3190496160

如果点击单元格引用参数中的数据，输入某个字后可快速带出和该字有相关的数据.rar (46.58 KB, 下载次数: 7)

2024-3-30 09:59 上传

点击文件名下载附件

蓝桥玄霜

请见附件。

Benfyhu

蓝桥玄霜 发表于 2024-3-30 10:31
请见附件。

谢谢老师！还有一个问题。怎么会了出现点一次单元格，它的LIST引用表就会小一点。点多几次之后就显示不出来了（也就是LIST框一次比一次小）

蓝桥玄霜

我这里是正常的。可能版本的问题。你可以加一句.width=85
    With Me.ListBox1
        .Visible = True
        .Top = Target.Top
        .Left = Target.Left + Target.Width
        .Height = Target.Height * 10
        .Width = 85
    End With

Benfyhu

蓝桥玄霜 发表于 2024-4-2 10:16
我这里是正常的。可能版本的问题。你可以加一句.width=85
    With Me.ListBox1
        .Visible = True ...

非常感谢！！