Excel VBA开发需求：150数值按50次递增计数及重置按钮实现

核心功能实现代码 #

1. 工作表自动计数代码（实时更新C列） #

打开Excel按Alt + F11进入VBA编辑器，找到对应的工作表（比如Sheet1），粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim total150 As Long
    Dim currentCycle As Long
    Dim resetFlag As Range
    
    ' 只监听A列的变更
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        ' 获取150的总出现次数
        total150 = Application.WorksheetFunction.CountIf(Me.Range("A:A"), 150)
        
        ' 读取重置标记（用隐藏单元格存储已重置的累计值，避免影响现有数据）
        If Me.Range("Z1").Value = "" Then Me.Range("Z1").Value = 0
        resetFlag = Me.Range("Z1").Value
        
        ' 计算当前周期数：(总次数 - 已重置的累计数) 除以50，向上取整
        currentCycle = WorksheetFunction.Ceiling((total150 - resetFlag) / 50, 1)
        
        ' 大于0时显示周期数，否则留空
        Me.Range("C2").Value = IIf(currentCycle > 0, currentCycle, "")
    End If
End Sub

说明：用Z1单元格存储已重置的累计次数，选中Z列右键选择「隐藏」即可避免误操作，不影响现有数据展示。

2. 重置按钮宏代码 #

在VBA编辑器的模块（比如Module1）中粘贴以下重置宏：

Sub Reset150Cycle()
    Dim total150 As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的目标工作表名称
    total150 = Application.WorksheetFunction.CountIf(ws.Range("A:A"), 150)
    
    ' 将Z1设为当前总次数，实现后续计数从零开始
    ws.Range("Z1").Value = total150
    ' 清空C2的周期显示
    ws.Range("C2").Value = ""
End Sub

操作步骤 #

1. 隐藏辅助列：选中Z列，右键选择「隐藏」，避免干扰正常数据操作。
2. 添加重置按钮：
   • 点击「开发工具」选项卡 → 「插入」→ 选择「按钮（窗体控件）」。
   • 在工作表空白区域绘制按钮，弹出的「指定宏」窗口中选择Reset150Cycle，点击确定。
   • 修改按钮文字为「重置150计数」。

功能验证 #

• 当A列新增150编号时，C2自动更新周期数：第1-50次显示1，51-100次显示2，以此类推。
• 点击重置按钮后，C2清空，后续新增的150会重新从1开始累计，A列原始数据和B列的全局统计不受影响。

内容的提问来源于stack exchange，提问作者Aadavan Naveen