Excel VBA自动计算复选框逻辑实现问题求助

我是Excel VBA新手，想要实现以下逻辑：

• 勾选autocalculate复选框时触发自动计算
• 若同时勾选RectanglePerp复选框，使用第一个公式计算；否则使用第二个公式
• 未勾选autocalculate复选框时，允许通过输入框手动输入值

附上新旧版本VBA代码，不清楚问题出在哪里：

更新后的VBA代码 #

If chkAutoCal.Value = True Then
    If chkRectanglePerp.Value = True Then
        ActiveCell.Offset(0, 11).Value = 2 * ActiveCell.Offset(0, 9).Value + ActiveCell.Offset(0, 2).Value + (ActiveCell.Offset(0, 8).Value - 1) * ActiveCell.Offset(0, 5).Value
    Else
        ActiveCell.Offset(0, 11).Value = 2 * ActiveCell.Offset(0, 10).Value + ActiveCell.Offset(0, 2).Value + (ActiveCell.Offset(0, 8).Value - 1) * ActiveCell.Offset(0, 5).Value
    End If
Else
    ActiveCell.Offset(0, 11).Value = txtPileCapBreath.Value
End If
ActiveCell.Offset(0, 11).HorizontalAlignment = xlCenter
ActiveCell.Offset(0, 11).VerticalAlignment = xlCenter
ActiveCell.Offset(0, 11).NumberFormat = Range("N4").NumberFormat

之前的VBA代码 #

Dim chkAutoCal As Boolean
Dim chkRectanglePerp As Boolean
 
If chkAutoCal.Value = True Then
    If chkRectanglePerp = True Then
        ActiveCell.Offset(0, 11).Value = txtEndDist.Value + txtPileDiameter.Value + (txtRowNo.Value - 1) * ActiveCell.Offset(0, 5).Value + txtEndDist.Value
    Else
        ActiveCell.Offset(0, 11).Value = txtEdgeDist.Value + txtPileDiamter.Value + ((txtPileNo.Value / txtRowNo.Value) - 1) * ActiveCell.Offset(0, 5).Value + txtEdgeDist.Value
    End If
Else
    ActiveCell.Offset(0, 11).Value = txtPileCapBreath.Value
    ActiveCell.Offset(0, 11).HorizontalAlignment = xlCenter
    ActiveCell.Offset(0, 11).VerticalAlignment = xlCenter
    ActiveCell.Offset(0, 11).NumberFormat = Range("N4").NumberFormat

代码问题分析 #

1. 旧代码核心错误：声明了与表单控件同名的布尔变量chkAutoCal和chkRectanglePerp，直接覆盖了控件对象。布尔变量没有.Value属性，导致If chkAutoCal.Value = True Then这行代码运行时直接报错。
2. 旧代码拼写错误：txtPileDiamter应为txtPileDiameter，拼写错误会导致程序找不到对应的输入框控件，引发运行时错误。
3. 格式设置范围问题：旧代码里单元格对齐和格式设置仅写在手动输入的分支中，自动计算后单元格不会应用这些格式；新版将这部分代码移到分支外，所有情况都会生效，这是正确的调整。
4. 新版代码注意点：使用ActiveCell.Offset取数时，要确认Offset(0,9)、Offset(0,10)等偏移量对应的单元格确实是你需要的数据源，避免因单元格位置错误导致计算结果异常。

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