kerrypnx
1/30/2018 - 5:34 AM

查缩写

查缩写

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