|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Private Sub ListBox1_Click()
- ActiveCell.Value = Me.ListBox1.Value
- Me.ListBox1.Visible = False
- Me.TextBox1.Visible = False
- End Sub
- Private Sub TextBox1_Change()
- Dim arr, i%, j%, d
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.Range("A1").CurrentRegion
- For i = 2 To UBound(arr)
- If InStr(arr(i, 1), Me.TextBox1.Value) Then
- d(arr(i, 1)) = ""
- End If
- Next
- Me.ListBox1.Clear
- If d.Count >= 1 Then Me.ListBox1.List = d.keys
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Count > 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
- If Target.Column <> 3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
- Dim arr, i%, j%, d
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.Range("A1").CurrentRegion
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = ""
- Next
- With Me.TextBox1
- .Top = Target.Top
- .Left = Target.Left
- .Width = Target.Width
- .Height = Target.Height
- .Activate
- .Value = ""
- .Visible = True
- End With
- With Me.ListBox1
- .Clear
- .Top = Target.Offset(0, 1).Top
- .Left = Target.Offset(0, 1).Left
- .List = d.keys
- .Visible = True
- End With
- End Sub
复制代码 |
|