2013-11-15 188 views
0

我从一个程序叫下面的常规Excel的VBA SUM公式显示在单元格

Sub DoTotals() 

    With ActiveSheet.Cells(Rows.Count, "F").End(xlUp)(2, 1) 
    .Formula = "=SUM(F2:" & .Offset(-1, 0).Address & ")" 
    End With 

End Sub 

单元格中显示的结果是不求和的结果,但 =SUM(F$1:$F2)

我已经在其他Excel文档中使用了相同的例程,但它正确地返回了总和 - 不是在这一个中。

回答

1

细胞可能已被格式化为文本.......尝试:

Sub DoTotals() 
With ActiveSheet.Cells(Rows.Count, "F").End(xlUp)(2, 1) 
    .Clear 
    .Formula = "=SUM(F2:" & .Offset(-1, 0).Address & ")" 
End With 
End Sub 

编辑#1

也许窗口是在错误的显示模式:

Sub DoTotals() 
    With ActiveSheet.Cells(Rows.Count, "F").End(xlUp)(2, 1) 
     .Clear 
     .Formula = "=SUM(F2:" & .Offset(-1, 0).Address & ")" 
    End With 
     ActiveWindow.DisplayFormulas = False 
End Sub 
+0

不错的一个。我永远不会记得如何解决这个问题。 –

+0

尝试了建议 - 仍然显示公式...谢谢! – user2996729

+1

如果起初我们不成功,请参阅**编辑#1 ** –

相关问题