AutoSum命令为什么不起作用？

Question

当我使用AutoSUM时，该子项退出，我需要手动按Enter键。我尝试对Enter键进行硬编码，但是一旦代码到达Application.CommandBars ...，代码仍然退出子程序。

谢谢大家。

我有以下代码：

For r = fRows + 1 To ActiveSheet.UsedRange.Rows.count
If Cells(r, 3).Value <> Cells(r + 1, 3).Value And Not Cells(r, 3).Value = 0 Then
    Cells(r + 1, 12).Select
    Application.CommandBars("Standard").Controls("Autosum").Controls("Sum").Execute.SendKeys "{ENTER}"
    Application.SendKeys "{ENTER}"
End If
Next r

Answer 1

TBH，我从没在VBA宏中使用过SendKeys之类的东西。您应该使用类似

的方法

Cells(r + 1, 12).FormulaR1C1 = "=SUM(R1C12:R" & r & "C12)"

或

Cells(r + 1, 12).Formula = "=SUM(L1:L" & r & ")"

您的原始问题为什么AutoSum命令不起作用我无法回答。