vba - 使用 Excel VBA 舍入时如何保留尾随零(或多个零)？

Question

标题说明了一切。考虑以下示例:

Option Explicit

Sub RoundToDecimalsDefinedByEndUser()
    Dim DecimNum As Integer
    DecimNum = InputBox("How many decimals do you want?", "Enter")
    Cells(1, 1).Value = Application.WorksheetFunction.Round(Cells(1, 1).Value, DecimNum)
End Sub

考虑这样一种情况:最终用户希望保留 2 位小数，并且要四舍五入的数字为 0.10111。结果应该是 0.10，但 Excel 强制结果为 0.1。关于如何保留尾随零有什么建议吗？

Answer 1

考虑:

Option Explicit

Sub RoundToDecimalsDefinedByEndUser()
    Dim DecimNum As Double, wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    DecimNum = InputBox("How many decimals do you want?", "Enter")
    With Cells(1, 1)
      .Value = wf.Round(.Value, DecimNum)
      .NumberFormat = "0." & wf.Rept("0", DecimNum)
    End With
End Sub

这会将 A1 保留为数值。