[已解决]代码测试

642070295

请教一下各位大师，点击附件sheet1表中按钮运行代码后，msgbox显示.213（小数点前面的0不见了），为什么不是显示0.213呢？ 附件.rar (20.75 KB, 下载次数: 4)

2014-4-24 16:02 上传

点击文件名下载附件    先谢了！

最佳答案

月排行榜 / 总排行榜

as0810114

2014-4-24 16:12

Private Sub CommandButton1_Click()
    Dim yn%
    yn = MsgBox("显示：" & Format(Sheets("图表").Range("c5"), "0.000") & "?", Buttons:=vbYesNo)
    If yn = vbYes Then
        p = Sheets("图表").Range("c5")
        MsgBox Format(p, "0.000")
    End If
End Sub

跳转到最佳答案楼层

冥王

1. MsgBox Application.Text(p, "0.####")

复制代码

zjdh

我这正常啊。

as0810114

Private Sub CommandButton1_Click()
    Dim yn%
    yn = MsgBox("显示：" & Format(Sheets("图表").Range("c5"), "0.000") & "?", Buttons:=vbYesNo)
    If yn = vbYes Then
        p = Sheets("图表").Range("c5")
        MsgBox Format(p, "0.000")
    End If
End Sub

642070295

as0810114 发表于 2014-4-24 16:12
Private Sub CommandButton1_Click()
    Dim yn%
    yn = MsgBox("显示：" & Format(Sheets("图表").Ra ...

请问一下，这种缺少了0的显示，会在数据运算中产生错误数值结果吗？

as0810114

642070295 发表于 2014-4-24 18:21
请问一下，这种缺少了0的显示，会在数据运算中产生错误数值结果吗？

你做一下运算就知道了，不会影响的。

642070295

as0810114 发表于 2014-4-24 18:37
你做一下运算就知道了，不会影响的。

再问一下，为什么会出现这种缺少0的情况呢？