私の簡単なExcel VBAマクロをデバッグするには？

Question

私は、現在の日付に対して、列Aにある最新の日付セルをチェックしようとしています。差異が30日であれば、私は新しい行を書きます。

私が実行すると、私はシート上のCheckAttendanceを呼び出すことができないと言います（Occulnces）。しかし、なぜ？

Option Explicit 

    Public LastCell As Long 
    Public today As Date 


    Function CheckAttendance() 

     Dim DaysSinceOcc As Integer 

     'returns last occupied row 
     LastCell = Cells(Rows.Count, 1).End(xlUp).Row 

     'gets current date 
     today = Date 

     'subtracts last cell in specified column from today's date. 
     DaysSinceOcc = today - Cells(LastCell, 1).Value 

     'writes what I want written in the cells I want it written in.   
     If DaysSinceOcc > 29 Then 
      Cells(LastCell, 1).Offset(1, 1) = "winback" 
      Cells(LastCell, 1).Offset(1, 2) = -0.5 
      Cells(LastCell, 1).Offset(1, 4) = "Earned back 0.5 pts for 30 days perfect attendance (AutoGenerated)" 
      Cells(LastCell, 1).Offset(1, 5) = "AUTO" 
      Cells(LastCell, 1).Offset(1, 0) = today 
     Else 

     End If 


    End Function 

    Sub Attendance() 

     Sheets("Occurences").CheckAttendance 
     'yes Occurences is suppose to be spelled like that (don't ask) 

    End Sub 

編集：おそらくこれには複数の問題があります。私は多くのことを修正しましたが、つづりました。

Answer 1

CheckAttendanceルーチンをパラメータ化して、異なるワークシートで呼び出すことができるようです。これを行うには、ワークシートをパラメータとして受け取るSubにします。また

• あなたの細胞を修飾し、コードの範囲である
• はあなたの変数を暗くし、Option Explicit

---

Option Explicit 

Sub CheckAttendance(ws As Worksheet) 
    Dim DaysSinceOcc As Long, lastRow As Long, today As Long 
    lastRow = ws.Cells(ws.Rows.count, 1).End(xlUp).row 

    'gets current date 
    today = Date 

    'subtracts last cell in specified column from today's date. 
    DaysSinceOcc = today - ws.Cells(lastRow, 1).Value2 

    'writes what I want written in the cells I want it written in. 
    If DaysSinceOcc > 29 Then 
     ws.Cells(lastRow + 1, 1) = today 
     ws.Cells(lastRow + 1, 2) = "winback" 
     ws.Cells(lastRow + 1, 3) = -0.5 
     ws.Cells(lastRow + 1, 5) = "Earned back 0.5 pts for 30 days perfect attendance (AutoGenerated)" 
     ws.Cells(lastRow + 1, 6) = "AUTO" 
    End If 
End Sub 

Sub Attendance() 
    CheckAttendance Sheets("Occurences") ' <-- this is how you call it on any worksheet 
End Sub