VBA輪百分比

Question

我有以下在Excel

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

VBA命令返回我例如這個

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% 

我試圖發揮與圓形和Val功能，但它只是不工作對我來說：P

Answer 1

如有任何疑問，錄製宏:)

這是你是什麼試？

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