Excel VBA - 如何插入没有公式的普通值？

发布于 2024-11-03 15:43:42 字数 324 浏览 6 评论 0原文

我浏览了许多 Excel VBA 主题，但是，我没有找到任何有关插入普通值的信息 - 在本例中是 SUM() 的结果 - 而不是公式。有一个方法，PasteSpecial xlPasteValues，但似乎不是我要找的。

以下代码示例插入公式，而不仅仅是值：

Sub test()
    Range("A4").Value = "=SUM(A1:A3)"
End Sub

How do I insert plain value without the Formula in Excel VBA?

原文

I have skimmed many Excel VBA topics, however, I have not found any information about inserting plain values - the result of SUM() in this case - not formula. There is a method, PasteSpecial xlPasteValues, but it seems that it is not what I am looking for.

The following code example inserts the formula, not only the value:

Sub test()
    Range("A4").Value = "=SUM(A1:A3)"
End Sub

How do I insert plain values without the formula in Excel VBA?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

时光倒影 2024-11-10 15:43:42

这就是我的想法，您正在寻找

range("a4").Value = Evaluate("SUM(A1:A3)")

Here is what I think, you are looking for

range("a4").Value = Evaluate("SUM(A1:A3)")

回复收藏 0 原文

尘曦 2024-11-10 15:43:42

您想要SUM的实际结果吗？我会尝试使用 WorksheetFunction.Sum 例如

Dim MyRange as Range
With Worksheets("SheetName")
  Set MyRange = .Range(.Cells(1, 1), .Cells(3, 1))
  .Cells(4,1) = WorksheetFunction.Sum(MyRange)
End With

Are you wanting to the actual result of the SUM? I would try using WorksheetFunction.Sum eg

Dim MyRange as Range
With Worksheets("SheetName")
  Set MyRange = .Range(.Cells(1, 1), .Cells(3, 1))
  .Cells(4,1) = WorksheetFunction.Sum(MyRange)
End With

回复收藏 0 原文

~没有更多了~