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

深秋红叶2019

YZC51 发表于 2020-2-21 12:26
下面是由姓名和卡号都能查询的代码

老师，这段代码很牛逼，非常好用，太强大了，不知道还有这种操作，老师您太强大了，如果按照这个推理，是不是就可以通过输入姓名来查找出电话卡号了呢，这样的话就可以修改电话了，对不喽

YZC51

请参考

YZC51

请参考

YZC51

深秋红叶2019 发表于 2020-2-21 13:25
老师，这段代码很牛逼，非常好用，太强大了，不知道还有这种操作，老师您太强大了，如果按照这个推理，是 ...

不用这么费事，以上3段代码修改后即可

深秋红叶2019

YZC51 发表于 2020-2-21 15:34
不用这么费事，以上3段代码修改后即可

嗯，老师，这段代码没看懂，不知道加哪里，没有找到CommandButton3按钮
Dim hh
private Sub CommandButton3_Click() '修改电话卡号
     Sheet1.Range("A" & hh) =  Me.电话卡号
     Unload Me
End Sub

YZC51

深秋红叶2019 发表于 2020-2-21 15:51
嗯，老师，这段代码没看懂，不知道加哪里，没有找到CommandButton3按钮
Dim hh
private Sub CommandBut ...

会员查询中的保存修改按钮

YZC51

如图

深秋红叶2019

YZC51 发表于 2020-2-21 16:54
如图

原来是这样，不过Dim hh没地方放，它是这样显示的
Private Sub UserForm_Initialize()
If Me.ListBox1.Text = "" Then Me.ListBox1.Visible = False
' Me.ListBox1.Visible = False ' Else Me.ListBox1.Visible = true
End Sub
Dim hh  好像有问题
------------------------------------------------------------------------------------
Private Sub CommandButton3_Click() '修改电话卡号
     Sheet1.Range("A" & hh) = Me.电话卡号
     Unload Me
End Sub

YZC51

深秋红叶2019 发表于 2020-2-21 17:06
原来是这样，不过Dim hh没地方放，它是这样显示的
Private Sub UserForm_Initialize()
If Me.ListBox1. ...

放在最上面

深秋红叶2019

YZC51 发表于 2020-2-21 17:15
放在最上面

累计充值，累计划卡，卡内余额查询不到了，点击修改是弹出对话框