VBA圆形百分比

Question

我在excel中有以下vba命令

wbImportFrom.Sheets("Sheet 3").Cells(n, 8).Value

这让我回来了

0,128888889

我可以把它变成百分比

Format(wbImportFrom.Sheets("Sheet 3").Cells(n, 8).Value,"Percent")
-- returns 13.00 %

如何将百分比数字舍入为整数(13%)？其他例子

0,057 => 6%
0,088571429 => 9%
0,15 => 15%
0,048461538 => 5%
0,128888889 => 13%
0,03 => 3%
0 => 0%

我尝试使用Round和Val函数,但它对我不起作用:p

Answer 1

每当有疑问时,记录一个宏:)

这是你在尝试什么？

Format(wbImportFrom.Sheets("Sheet 3").Cells(n, 8).Value,"0%")