计算事件发生的次数并报告事件以及会话日期

Question

我目前正在尝试创建一个子：

• 在列表中记录我按下返回键的次数 本届会议
• 我希望我的宏写回复键的次数 每次重新打开文件
时，我都会在新行的会话中按下
• 我还希望我的宏能够记录文件的开放日期和时间 同一行

所以，我希望按下返回键的第一个次数显示在A2中（然后是B2中的日期）。然后在下一个会话中，转到下一行，在A3中写下下一个结果，然后在B3中写入日期。等等...

不幸的是，我在苦苦挣扎。我有一些关于事件创建和“转到下一行”过程的问题。

以下是我提出的代码：

Option Explicit


Private Sub Return_Key()
    Application.OnKey "{RETURN}", "ReturnKeyCounter"
End Sub

Private Sub Session_Open()
    Workbook.Open "VBA_Exercice", "SessionOpened"
End Sub

Sub ReturnKeyCounter()

Feuil1.Cells(1, 1) = "Number of times"
Feuil1.Cells(1, 2) = "Session Date"

Set Column_Result = Feuil1.Cells(2, 1)
Set Column_Date = Feuil1.Cells(2, 2)

For Each Session_Open In Feuil3

    If Return_Key = True Then
    Counter = WorksheetFunction.Count(Return_Key)
    Column_Result.Offset(1, 0).Value = Counter
    Column_Date.Offset(1, 0).Value = Date

Next Session_Open

End Sub

我希望有人能够帮助我，非常感谢！