有什么办法让查询条件也参与到查询信息中

深秋红叶2019

有什么办法让查询条件也参与到查询信息中，蓝色画圈的输入电话/卡号是查询条件，同时电话/卡号也参与查找范围内，应该怎么修改代码，然后就是当“”输入电话/卡号为空时不显示ListBox 1，当输入数据时再显示ListBox 1，这段代码没有数组运行的很忙，点击查找后2秒才出结果，请老师也帮加数组，谢谢，代码如下：
Private Sub 电话卡号_Change()
If Len(Me.电话卡号.Value) >= 1 Then
Me.ListBox1.Clear
For i = 3 To Sheet1.Range("a65536").End(xlUp).Row
If InStr(Sheet1.Range("a" & i), Me.电话卡号.Value) > 0 Then
Me.ListBox1.AddItem Sheet1.Range("a" & i)
End If
Next
If Me.ListBox1.ListCount > 0 Then
Me.ListBox1.Visible = True
Else: Me.ListBox1.Visible = False
End If
Else: Me.ListBox1.Visible = False
End If
End Sub
Private Sub ListBox1_Click()
Me.电话卡号.Value = Me.ListBox1.Value
Me.ListBox1.Visible = False
End Sub
Private Sub CommandButton4_Click()
Me.电话卡号.Value = ""
Me.会员姓名.Value = ""
Me.性别.Value = ""
Me.卡类型.Value = ""
Me.累计充值.Value = ""
Me.累计划卡.Value = ""
Me.卡内余额.Value = ""
For i = 3 To Sheet1.Range("b65536").Row
If Sheet1.Range("a" & i) = Val(Me.电话卡号.Value) Then
Me.电话卡号.Value = Sheet1.Range("a" & i)
Me.会员姓名.Value = Sheet1.Range("b" & i)
Me.性别.Value = Sheet1.Range("c" & i)
Me.卡类型.Value = Sheet1.Range("d" & i)
Me.累计充值.Value = Sheet1.Range("e" & i)
Me.累计划卡.Value = Sheet1.Range("f" & i)
Me.卡内余额.Value = Sheet1.Range("g" & i)
UserForm4.电话卡号.Enabled = Fals
UserForm4.会员姓名.Enabled = False
UserForm4.性别.Enabled = False
UserForm4.卡类型.Enabled = False
UserForm4.累计充值.Enabled = False
UserForm4.累计划卡.Enabled = False
UserForm4.卡内余额.Enabled = False
End If
Next
End Sub
Private Sub CommandButton1_Click() '编辑
MsgBox ("请修改记录！")
UserForm4.电话卡号.Enabled = True
UserForm4.会员姓名.Enabled = True
UserForm4.性别.Enabled = True
UserForm4.卡类型.Enabled = True
UserForm4.CommandButton3.Enabled = True '保存记录
End Sub