2013-11-15 190 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 ** –

相關問題