如何用VBA实现单元格输入值时自动按公式计算（无需单独单元格）

实现步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧「项目资源管理器」中，双击你要添加功能的工作表（比如Sheet1，对应你的成本计算表格）。
3. 在右侧代码窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应C3单元格的内容变化
    If Not Intersect(Target, Me.Range("C3")) Is Nothing Then
        ' 关闭事件触发，避免修改单元格后重复触发循环
        Application.EnableEvents = False
        
        ' 仅当输入值为1时执行计算并覆盖C3的值
        If Target.Value = 1 Then
            Target.Value = (Target.Value * Me.Range("B3").Value) * Me.Range("C1").Value
        End If
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

代码说明： #

• Worksheet_Change是工作表内置事件，单元格内容变化时自动触发。
• Intersect(Target, Me.Range("C3"))用于精准判断：只有C3单元格变化时才执行后续逻辑，避免无关操作干扰。
• Application.EnableEvents = False是必须项，否则修改C3值后会再次触发Change事件，陷入无限循环。

扩展优化（可选）： #

如果需要让其他月份列（比如D3、E3等）也实现相同逻辑，可修改代码适配批量列：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 处理C3到Z3的所有月份列（可根据实际列范围调整）
    If Not Intersect(Target, Me.Range("C3:Z3")) Is Nothing Then
        Application.EnableEvents = False
        
        If Target.Value = 1 Then
            ' 匹配对应顶部的月份天数单元格（比如D3对应D1）
            Dim headerDayCell As Range
            Set headerDayCell = Me.Cells(1, Target.Column)
            Target.Value = (Target.Value * Me.Range("B3").Value) * headerDayCell.Value
        End If
        
        Application.EnableEvents = True
    End If
End Sub

注意事项： #

• 保存文件时需选择「Excel 启用宏的工作簿（.xlsm）」格式，否则宏会失效。
• 打开文件时需在Excel的安全提示中选择「启用内容」，宏才能正常运行。

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