|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 深秋红叶2019 于 2020-2-19 16:13 编辑
这段代码如何用数组查询,还有就是在电话卡号框里输入数据时再显示ListBox 1
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
|
|