计算使用VBA Excel的学生的出勤日期

Question

我需要一些帮助来解决学校作业的VBA代码。

   Dim i As Long
    Dim LastStudent As Long

    Records.Sheets("Student").Activate
        LastStudent = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To LastStudent

        If (DateDiff("d", Date, Attendance_rng.Range("I" & i).Value) > 80) Then
           .Range("K15").Value = WorksheetFunction.CountIfs(Attendance_rng.Range("A:A"), RollNo, Attendance_rng.Range("D:D"), "ACTIVE")
        End If
    Next

我尝试执行上面的代码段。我没有看到任何错误，但我也没有得到任何数据输出。 我想计算天数（今天＆＃39; s日期 - 每个学生的第I列日期），如果该值是＆gt;然后，80从A列中记录每个学生（卷号）的单元格K15中的日计数，其中G列数据是＆＃34;活动＆＃34;。 注意： 第一栏有每周记录的出勤日期