主页 / 问题 / 877710
Accepted
Sanvirtus
Asked:2020-09-05 18:34:27 +0000 UTC2020-09-05 18:34:27 +0000 UTC

如何在 VBA 中指定小数位数？

  • 772

我试图确保从单元格中读取值后，该值会有一定数量的小数位。我需要 Count 始终有 2 个小数位，并且在 WeightNetto 和 SummNetto 中始终显示 3 个小数位，即使全为零，如何做到这一点？

Dim Count        As Double
Dim WeightNetto  As Double
Dim SummNetto    As Double

For i = 2 To LastRowOpenDbfSheet

    Count = Math.Round(CDbl(sheetOpenDbf.Cells(i, 12)), 2) // Попробовал так но не работает
    WeightNetto = CDbl(sheetOpenDbf.Cells(i, 19))
    SummNetto = Count * WeightNetto
vba

1 个回答

  1. Best Answer

    在VBA舍入运算符中 -Round

    SummNetto = Round(Count * WeightNetto,3)

    对于一个变量，这就足够了，无关紧要的零在这里不起作用。如果您只想对最终结果进行四舍五入，则不需要四舍五入。

    在工作表上，数字也将显示，不带前导左零和右额外零（如果未设置适当的单元格格式）。要显示零，您需要这样写 -以格式显示 ...：

    Cells(1,1).Value = Format(Count * WeightNetto,"0.000")

    怎么会是正确的，但不是很正确。Format将值转换为文本格式。不更改数字更正确，而是设置显示数据的单元格的格式（最初准备或在显示结果之前使用宏更改），

    • 1

相关问题