这段VBA联想输入问题、查询代码哪里有问题

深秋红叶2019

这段代码哪里有出了问题，为什么电话卡号控件没输入电话listBox 1实时显示的，输入号码后点击查询按钮也找不到信息而且半天才有反应：Private Sub 电话卡号_Change()
If Len(Me.电话卡号.Value) >= 4 Then
Me.ListBox1.Clear
For i = 3 To Sheet1.Range("b65536").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 = ""
For i = 3 To Sheet1.Range("b65536").Row
If Sheet1.Range("a" & i) = Me.电话卡号.Value Then
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 = False
UserForm4.累计划卡.Enabled = False
UserForm4.卡内余额.Enabled = False
End If
Next
End Sub

约定的童话

猜测是字符串匹配问题，慢的话是你用了单元格循环，没用数组！

wj2368

。。。。。。。。。。。。。

深秋红叶2019

wj2368 发表于 2020-2-19 14:48
。。。。。。。。。。。。。

老师可不可以帮我用数组进行查询，然后就是那个listBox 1控件等电话卡号输入数据的时候在显示，就是说打开会员查询的时候先不显示ListBox 1

深秋红叶2019

约定的童话 发表于 2020-2-19 14:47
猜测是字符串匹配问题，慢的话是你用了单元格循环，没用数组！

老师可以帮我用数组查询吗吗，谢谢老师Private Sub 电话卡号_Change()
If Len(Me.电话卡号.Value) >= 1 Then
Me.ListBox1.Clear
For i = 3 To Sheet1.Range("b65536").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 = ""
For i = 3 To Sheet1.Range("b65536").Row
If Sheet1.Range("a" & i) = Val(Me.电话卡号.Value) Then
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 = False
UserForm4.累计划卡.Enabled = False
UserForm4.卡内余额.Enabled = False
End If
Next
End Sub

wj2368

深秋红叶2019 发表于 2020-2-19 14:56
老师可不可以帮我用数组进行查询，然后就是那个listBox 1控件等电话卡号输入数据的时候在显示，就是说打 ...

...............................

深秋红叶2019

wj2368 发表于 2020-2-19 16:03
...............................

谢谢老师

深秋红叶2019

深秋红叶2019 发表于 2020-2-19 16:06
谢谢老师

老师，为什么查找还是很慢呢，还有那个当电话卡号没有输入数据时先隐藏ListBox 1，等电话卡号输入了数据在显示该怎么改呢

wj2368

深秋红叶2019 发表于 2020-2-19 16:17
老师，为什么查找还是很慢呢，还有那个当电话卡号没有输入数据时先隐藏ListBox 1，等电话卡号输入了数据 ...

条件句，为空不显示，不空显示

wj2368

深秋红叶2019 发表于 2020-2-19 16:17
老师，为什么查找还是很慢呢，还有那个当电话卡号没有输入数据时先隐藏ListBox 1，等电话卡号输入了数据 ...

..........................