excel - 格式化一个可以用千位分隔符可变四舍五入的数字

Question

我有一个以变量“dTot”结尾的代码，该变量将是一个小数点后最多 5 位的数字。

用户可以选择设置舍入 dTot 的小数位数，用户选择分配给变量“iDP”，它可以是 0 到 5 之间的任何值。

dTot = Round(dTot, iDP)` 工作得很好。

但是，添加到另一个数组时，我还需要用千位分隔符格式化舍入数字。
Format(Round(dTot, iDP), "#,##0.00000")
如果 iDP 为 5，则有效，并且
Format(Round(dTot, iDP), "#,##0.00")
如果 iDP 为 2

如何获得遵循 iDP 值的格式？

我知道我可以使用“Select Case iDP”并拥有 6 个 Case，但是由于需要将格式设置应用于数组中 200 行中的每一个中的最多 6 个表达式，我希望找到一种避免“Select Case”的方法

Answer 1

根据需要构建格式掩码字符串。

Format(Round(dTot, iDP), "#,##0" & IIF(iDP, ".", "") & string(iDP, "0"))