[已解决]有个问题想请教一下，希望可以得到回答

假绅士

本人在学习编辑VBA的时候遇到一个问题，就是用VBA计算出来的数保留两位小数的问题，我在网上查了查，有大侠提出用一段代码去改，但是我是初学，看不懂，也不太会用，所以想问问有没有类似函数Round的代码可以使计算出来的数直接保留两位小数。
例：

1. sub 实验()
   
2. a=1
   
3. b=3
   
4. c=a/b
   
5. msgbox"c"
   
6. end sub
   

复制代码

这时候c=0.333333……
怎样才能使c=0.33,需要加怎样的代码才能实现呢？

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-29 10:34

假绅士 发表于 2014-12-29 09:52
请问，那具体该怎么写代码呢？在例子中添加就可以，谢谢

比如你得到的数字是X，前面套Application.Round（x,2）,看下面例子

Sub demo()
    m = 5.35624
    x = Application.Round(m, 2)
    MsgBox x
End Sub

跳转到最佳答案楼层

zyouong

Sub 实验()
a = 1
b = 3
c = Round(a / b, 2)
MsgBox "c=" & c
End Sub

qh8600

VBA中的round函数不是真正的四舍五入
可以调用工作表函数ROUND
application.round

假绅士

qh8600 发表于 2014-12-22 10:25
VBA中的round函数不是真正的四舍五入
可以调用工作表函数ROUND
application.round

请问，那具体该怎么写代码呢？在例子中添加就可以，谢谢

qh8600

假绅士 发表于 2014-12-29 09:52
请问，那具体该怎么写代码呢？在例子中添加就可以，谢谢

比如你得到的数字是X，前面套Application.Round（x,2）,看下面例子

Sub demo()
    m = 5.35624
    x = Application.Round(m, 2)
    MsgBox x
End Sub

假绅士

qh8600 发表于 2014-12-29 10:34
比如你得到的数字是X，前面套Application.Round（x,2）,看下面例子

Sub demo()

谢谢您！