请求编写记录回车键按下次数的Sub过程并排查代码故障

嘿，我来帮你搞定这个需求！我之前也处理过类似的统计场景，下面给你一套完整的实现方案，分步骤拆解，保证你能顺利跑起来：

核心思路拆解 #

要实现这个功能，我们需要搞定两个关键环节：

• 实时捕获所有工作表里的回车键按下动作，累计计数
• 每次关闭文件时，把当前会话的统计结果追加到记录列表的新行，下次打开文件自动初始化计数

完整代码实现 #

1. 先建一个全局计数变量 #

首先打开VBA编辑器（按Alt+F11），插入一个标准模块（右键项目→插入→模块），在里面声明全局变量，这样整个文件打开期间都能持续累加计数：

' 标准模块（比如Module1）中声明
Public enterKeyCount As Integer

2. 捕获所有工作表的回车键事件 #

接下来打开ThisWorkbook的代码窗口（在项目里双击ThisWorkbook），粘贴下面的代码，用来监听所有工作表的按键操作：

' 监听所有工作表的按键按下事件
Private Sub Workbook_SheetKeyDown(ByVal Sh As Object, ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' KeyCode=13对应Enter/Return键
    If KeyCode = 13 Then
        enterKeyCount = enterKeyCount + 1
    End If
End Sub

3. 关闭文件时自动写入记录，打开时初始化计数 #

还是在ThisWorkbook的代码窗口里，继续粘贴这两段代码，负责记录持久化和计数初始化：

' 工作簿打开时，初始化计数为0
Private Sub Workbook_Open()
    enterKeyCount = 0
End Sub

' 工作簿关闭前，把本次会话的统计写入记录工作表
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim recordSheet As Worksheet
    Dim lastRow As Long
    
    ' 尝试找到名为"记录"的工作表，找不到就自动创建
    On Error Resume Next
    Set recordSheet = ThisWorkbook.Worksheets("记录")
    On Error GoTo 0
    
    If recordSheet Is Nothing Then
        ' 新建工作表并设置表头
        Set recordSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        recordSheet.Name = "记录"
        recordSheet.Range("A1").Value = "会话打开时间"
        recordSheet.Range("B1").Value = "回车键按下次数"
        ' 给表头加个粗，看着更清晰
        recordSheet.Range("A1:B1").Font.Bold = True
    End If
    
    ' 找到记录区域的最后一行，准备写入新记录
    lastRow = recordSheet.Cells(recordSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 写入本次会话的时间和计数
    recordSheet.Range("A" & lastRow).Value = ThisWorkbook.OpenTime
    recordSheet.Range("B" & lastRow).Value = enterKeyCount
    
    ' 重置计数，避免下次打开时继承旧值
    enterKeyCount = 0
    
    ' 自动保存文件，确保记录不会丢失
    ThisWorkbook.Save
End Sub

代码细节说明 #

• 全局变量enterKeyCount：专门用来存当前会话的回车键次数，文件关闭后会重置，保证每次打开都是全新的统计。
• Workbook_SheetKeyDown事件：不管你在哪个工作表按回车，都会被捕获到，不会漏统计。
• 自动创建记录工作表：如果文件里没有叫“记录”的Sheet，代码会自动创建，还会帮你加好表头，不用手动设置。
• 持久化记录：每次关闭文件时，会把本次会话的打开时间和计数写到新行，绝对不会覆盖之前的记录。

测试方法 #

1. 按Alt+F11保存所有代码，回到Excel界面。
2. 按几次回车键，然后关闭文件（记得让代码自动保存，不要手动取消）。
3. 重新打开文件，查看“记录”工作表，就能看到新增的一行记录啦！

内容的提问来源于stack exchange，提问作者Francoise Eric