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

YZC51

深秋红叶2019 发表于 2020-2-21 17:43
累计充值，累计划卡，卡内余额查询不到了，点击修改是弹出对话框

可能版本关系，把下面这句注释掉

'               Me.会员姓名.SetFocus

深秋红叶2019

YZC51 发表于 2020-2-21 18:01
可能版本关系，把下面这句注释掉

'               Me.会员姓名.SetFocus

不会弹窗了，就是累计充值、累计划卡、卡内余额找查询不到了，现在有事，晚点我在看看，如果不行再请教老师，谢谢老师

YZC51

深秋红叶2019 发表于 2020-2-21 18:08
不会弹窗了，就是累计充值、累计划卡、卡内余额找查询不到了，现在有事，晚点我在看看，如果不行再请教老 ...

建议参考下面的帖子
http://club.excelhome.net/thread-1483932-3-1.html

YZC51

修改为数组查询

深秋红叶2019

YZC51 发表于 2020-2-21 19:11
修改为数组查询

速度很快，实在不要太好用，就是点击保存修改的时候直接就退出了

深秋红叶2019

YZC51 发表于 2020-2-21 19:11
修改为数组查询

老师在帮我看看这个上一条记录和下一条记录代码哪里有问题
Private Sub CommandButton7_Click() '上一条
  If Rnumber > 2 Then
     Rnumber = Rnumber - 1
     TextToRang Rnumber
    Else
       Rnumber = Sheet2.Range("A65536").End(xlUp).Row
  End If
End Sub
Private Sub CommandButton8_Click() '下一条
  If Rnumber < Sheet2.Range("A65536").End(xlUp).Row Then
     Rnumber = Rnumber + 1
     TextToRang Rnumber
   Else
  End If
End Sub

YZC51

注销箭头处语句！

深秋红叶2019

YZC51 发表于 2020-2-21 23:13
注销箭头处语句！

完全正确，老师再帮我看看上一条记录和下一条记录的代码哈，谢谢
Private Sub CommandButton7_Click() '上一条
  If Rnumber > 2 Then
     Rnumber = Rnumber - 1
     TextToRang Rnumber
    Else
       Rnumber = Sheet2.Range("A65536").End(xlUp).Row
  End If
End Sub
Private Sub CommandButton8_Click() '下一条
  If Rnumber < Sheet2.Range("A65536").End(xlUp).Row Then
     Rnumber = Rnumber + 1
     TextToRang Rnumber
   Else
  End If
End Sub

YZC51

请参考

YZC51

深秋红叶2019 发表于 2020-2-21 23:51
完全正确，老师再帮我看看上一条记录和下一条记录的代码哈，谢谢
Private Sub CommandButton7_Cli ...

代码效果如何？给个反馈！
反馈也不给，就重新开贴的做法叫人这么想！！！