|
Private Sub bianhao_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim arr, arr1 ListBox1.Visible = True ListBox1.Clear arr = Range("a4", [a65536].End(xlUp)) arr1= Filter(Application.Transpose(arr2), textbox1.Text, True) ListBox1.List = arr3 End Sub |
|
|
