[已解决]EXCEL VBA中 0.884 输出的是.884 不是0.884 怎么解决呀

a704019026

Sub 文本()
Close #1
Open ThisWorkbook.Path & "\123456.txt" For Output As #1
I = 5 - 4.156
Print #1, I
Debug.Print I
Close #1
End Sub
写入的是 .884 不是0.884 怎么解决

最佳答案

月排行榜 / 总排行榜

香川群子

2015-8-25 19:10

这个问题，是电脑地区环境设置中，数值前导0是否显示的设置决定的。

解决此问题，可以有2种方法。
1. 更改电脑设置：
With CreateObject("Wscript.Shell")
        Call .RegWrite("HKEY_CURRENT_USER\Control Panel\International\iLZero", "1") '设置成小数点前显示0 [0.7]
'        Call .RegWrite("HKEY_CURRENT_USER\Control Panel\International\iLZero", "0") '设置成小数点前不显示0 [.7]
    End With

当然，也可以用爱疯的暴力方法，判断首字符为小数点时，强行加上0改为0.

2. 使用输出结果的数字格式函数：FormatNumber()

    t = 7 / 10
    MsgBox FormatNumber(t, 3, -1)
或 MsgBox FormatNumber(t, 3, vbTrue)

具体用法可去查帮助文件。

…………由于小数点位数可能不同，所以用第一种方法比较不容易错。

跳转到最佳答案楼层

爱疯

Sub 文本()
    Dim i
    Close #1
    Open ThisWorkbook.Path & "\123456.txt" For Output As #1
    i = 5 - 4.156
    If VBA.IsNumeric(i) And Left(i, 1) = "." Then i = "0" & i
    Print #1, i
    Debug.Print i
    Close #1
End Sub


可以加一句判断

七彩屋

1. Sub 文本()
   
2. Close #1
   
3. Open ThisWorkbook.Path & "\123456.txt" For Output As #1
   
4. i = 5 - 2.156
   
5. i = Format(i, "0.000")
   
6. Print #1, i
   
7. Debug.Print i
   
8. Close #1
   
9. End Sub

复制代码

香川群子

这个问题，是电脑地区环境设置中，数值前导0是否显示的设置决定的。

解决此问题，可以有2种方法。
1. 更改电脑设置：
With CreateObject("Wscript.Shell")
        Call .RegWrite("HKEY_CURRENT_USER\Control Panel\International\iLZero", "1") '设置成小数点前显示0 [0.7]
'        Call .RegWrite("HKEY_CURRENT_USER\Control Panel\International\iLZero", "0") '设置成小数点前不显示0 [.7]
    End With

当然，也可以用爱疯的暴力方法，判断首字符为小数点时，强行加上0改为0.

2. 使用输出结果的数字格式函数：FormatNumber()

    t = 7 / 10
    MsgBox FormatNumber(t, 3, -1)
或 MsgBox FormatNumber(t, 3, vbTrue)

具体用法可去查帮助文件。

…………由于小数点位数可能不同，所以用第一种方法比较不容易错。