如何用vba保留当前表中显示的值,去掉隐藏的部分

求助怎么用vba保留当前表中显示的值,去掉隐藏的部分
就是比如看到一个单元格的值是11.1,但是一点它,上面的数值就显示11.12121212,还有很多小数,怎么用vba去掉这些隐藏的部分,谢谢各位大神了!

------解决方案--------------------
要保留一位小数?
a = int(a * 10) / 10