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

YZC51

深秋红叶2019 发表于 2020-2-23 14:45
老师，还是一样从第3行显示

可以贴出代码看下吗！

深秋红叶2019

YZC51 发表于 2020-2-23 14:59
可以贴出代码看下吗！

Private Sub CommandButton7_Click() '上一条记录
    If Rnumber < 6 Then Rnumber = 7
    If Rnumber > 6 Then
        Rnumber = Rnumber - 1
        TextToRang (Rnumber)
        Label14 = Rnumber - 5
    Else
        MsgBox "已经是第一条啦！ 第" & Rnumber - 5 & "条"
        Exit Sub
   '     Rnumber = Sheet2.Range("A65536").End(xlUp).Row
    End If
'    Debug.Print Rnumber
End Sub

Private Sub CommandButton8_Click() '下一条记录
    If Rnumber < 6 Then Rnumber = 5
    If Rnumber < Sheet2.Range("A65536").End(xlUp).Row Then
        Rnumber = Rnumber + 1
        TextToRang Rnumber
        Label14 = Rnumber - 5
'    Debug.Print Rnumber
    Else
        MsgBox "已经是最后一条啦！ 第" & Rnumber - 5 & "条"
        'Rnumber = 6
    End If
End Sub

深秋红叶2019

深秋的黎明 发表于 2020-2-23 13:45
你的理发店老板，还是员工？这些天疫情不营业，你没闲着哈，很用功。
我觉得你这样的“系统”应该全部用窗 ...

老师，因为第一次做系统，没有经验，没有规划好，所以就设计的不专业了，我也没有用功，主要有老师帮忙吧，还是很感谢YZC51老师

YZC51

深秋红叶2019 发表于 2020-2-23 15:20
Private Sub CommandButton7_Click() '上一条记录
    If Rnumber < 6 Then Rnumber = 7
    If Rnumbe ...

74楼附件已经更新，请重新下载！

深秋红叶2019

YZC51 发表于 2020-2-23 15:31
74楼附件已经更新，请重新下载！

已经可以了，谢谢老师

YZC51

深秋红叶2019 发表于 2020-2-23 16:44
已经可以了，谢谢老师

不客气。能用就好！

深秋红叶2019

YZC51 发表于 2020-2-23 15:31
74楼附件已经更新，请重新下载！

老师帮我看下这段代码怎么回事，搞不名白了，有附件
Private Sub UserForm_Initialize()   老师这里本来是userForm 1窗体的（就是新增学员信息窗体），只有改为UserForm（就是学员报名窗体）返学费下拉菜单才有出现，动态时间和最小化按钮才有出现呢
返学费.List = Array("返学费")
Label8.Caption = Format(Now, "yyyy年mm月dd日 [$-804]aaaa hh:mm:ss")
Start_Timer
Dim hWndForm As Long
  Dim IStyle As Long
  hWndForm = FindWindow("ThunderDFrame", Me.Caption)
  IStyle = GetWindowLong(hWndForm, GWL_STYLE)
  IStyle = IStyle Or WS_THICKFRAME '还原
  IStyle = IStyle Or WS_MINIMIZEBOX '最小化
  SetWindowLong hWndForm, GWL_STYLE, IStyle
End Sub------------------------------------------------------------------------------------------
Private Sub UserForm1_Initialize()     这个下拉菜单没有反应，不知为啥
Dim num As Integer
num = ThisWorkbook.Sheets(2).Range("A1").CurrentRegion.Rows.Count
Dim Names As Variant
Names = ThisWorkbook.Sheets(2).Range("A2:A" & num).Value
学习课程.List = Names
End Sub

深秋红叶2019

YZC51 发表于 2020-2-23 16:54
不客气。能用就好！

老师，这个统计的代码可以改为工作表事件吗，通过命令按钮计算的话查询会员余额就不方便了，因为要点击计算按钮才可以查到余额
Sub 汇总统计()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheet1.Range("a3:a" & Sheet1.[a65536].End(3).Row)
    ReDim brr(1 To UBound(arr), 1 To 3)
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = i
    Next
    crr = Sheet2.Range("a6:j" & Sheet2.[a65536].End(3).Row)
    For i = 1 To UBound(crr)
        n = d(crr(i, 2))
        If n > 0 Then
            If crr(i, 9) > 0 Then brr(n, 1) = brr(n, 1) + crr(i, 9)
            If crr(i, 10) > 0 Then
                brr(n, 2) = brr(n, 2) + crr(i, 10)
                brr(n, 3) = brr(n, 1) - brr(n, 2)
            End If
        End If
    Next
    Sheet1.[e3].Resize(UBound(brr), 3) = brr
End Sub

YZC51

会员信息表工作表事件
Private Sub Worksheet_Activate()
    Call Sheet2.汇总统计
End Sub

YZC51

深秋红叶2019 发表于 2020-2-23 17:01
老师帮我看下这段代码怎么回事，搞不名白了，有附件
Private Sub UserForm_Initialize()   老师这里本来 ...

窗体加载只能是
Private Sub UserForm_Initialize()