excel - VBA 舍入值

Question

我目前正在处理一个包含数百个不同图表的 Excel 电子表格。我的宏根据数据系列的最小值和最大值选择 y 轴值。我正在尝试将最小值和最大值舍入到有意义的数字。例如，如果最小值是 926.43 舍入到 900，最大值是 1223.21 舍入到 1300。它需要能够处理最小值和最大值为个位数或数百万的数据范围。到目前为止，这是我的代码，它可以在 excel 中运行，但是每当我在 VBA 中运行它时，长度总是最终为 6。有什么建议么？

    Set srs = ActiveChart.SeriesCollection(1)
    Min = WorksheetFunction.Min(srs.Values)
    Max = WorksheetFunction.Max(srs.Values)

    Digits = Int(Max)
    Length = Len(Digits) - 2
    MinRound = WorksheetFunction.RoundDown(Min, -Length)
    MaxRound = WorksheetFunction.RoundUp(Max, -Length)

Answer 1

MRound 是您正在寻找的。

Dim i as integer
i = 1076
i = Application.worksheetFunction.MRound(i, 100)

这将产生 i = 1100

您可以使用它去最近的 10、100、1000，等等。