查缩写
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.EnableEvents = False
ActiveCell.Value = ListBox1.Value
Me.ListBox1.Clear
Me.ListBox1.Value = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
Application.EnableEvents = True
End Sub
Private Sub TextBox1_Keyup(ByVal keycode As MSForms.ReturnInteger, ByVal shift As Integer)
Dim i As Integer
Me.ListBox1.Clear
For i = 2 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(UCase(Sheet2.Cells(i, 1).Value), UCase(Me.TextBox1.Value)) > 0 Then
Me.ListBox1.AddItem Sheet2.Cells(i, 1).Value
End If
Next i
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Me.ListBox1.Clear
Me.TextBox1.Value = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
If Target.Address = "$B$2" Then
With Me.TextBox1
.Activate
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
Height = Target.Height
End With
With Me.ListBox1
.Visible = True
.Top = Range("b3").Top + 10
.Left = Range("b3").Left
.Width = Range("b3").Width * 2
.Height = Range("c3").Height * 10
' For i = 2 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
' .AddItem Sheet2.Cells(i, 1).Value
' Next i
End With
End If
End Sub