如何在 Excel VBA 中将值舍入为 2dp？

Question

我正在尝试将值记录为 2dp，但在使其工作时遇到问题。

我有一个包含测试用例的工作簿。宏获取这些测试用例，并在单独的工作簿中运行它们。然后将第二个工作簿中的计算值记录回第一个工作簿中。

我可以通过fine得到所有值，但希望其中三个值为2dp。我现在可以让它们显示为2dp，但当我单击单元格时，实际值约为13dp。如何将值设置为2dp，而不仅仅显示为2dp？

Dim MPCalc as Single
MPCalc = Sheets("Calculation").Cells(45,11).Value
MPCalc = WorksheetFunction.Round(MPCalc,2)
Cells(i, MPCalc_Col).Value = MPCalc

我试过。NumberFormat0.00，格式（MPCalc，0.00），圆形（MPCalc，2），但它们都带来了13dp的值，显示为2dp，我不知道为什么！

Answer 1

或者（或添加）到@Peh他的答案：

Sub RoundRange()

With Worksheets("Calculation")
    .Range("A1:A4").Value = .[ROUND(A1:A4,2)]
End With

End Sub

或更动态：

With Worksheets("Calculation")
    .Range("A1:A4").Value = Application.Round(.Range("A1:A4"), 2)
End With

而不是< code >。Range("A1:A4")您可以< code >设置另一个< code>Range变量。

Answer 2

舍入后

Dim MPCalc As Single
MPCalc = Worksheets("Calculation").Cells(45,11).Value
MPCalc = Application.WorksheetFunction.Round(MPCalc, 2)

舍入值在变量< code>MPCalc中，但不在单元格中。因此，您需要将它写回您的单元格:

Worksheets("Calculation").Cells(45,11).Value = MPCalc

或者多合一：

With Worksheets("Calculation").Cells(45,11)
    .Value = Application.WorksheetFunction.Round(.Value, 2)
End With