如何将单元格中值小于1大于0小数点前面的0通过vba代码也显示出来？

hyf7989

    的数据小数点前面的0只有双击了之后才显示，因为涉及大量文件，不可能一一双击单元格使其显示。不知通过vba代码怎么使小数点前面的0显示？因为该文件也是通过vba代码辞去生成的。

hyf7989

帖子不完整，重发一下：
    单元格中值小于1大于0的数据小数点前面的0只有双击了之后才显示，因为涉及大量文件，不可能一一双击单元格使其显示。不知通过vba代码怎么使小数点前面的0显示？因为该文件也是通过vba代码辞去生成的。

→友の良杰←

是这样的效果吗？

→友の良杰←

041_3-1 分年龄、性别的人口(镇).rar (18.98 KB, 下载次数: 14)

2012-11-3 00:45 上传

点击文件名下载附件

[code=vb]
Private Sub CommandButton1_Click()
    Dim r, rg As Range
    Set rg = Application.InputBox(prompt:="请选择一个区域", Title:="选择区域", Type:=8)
    For Each r In rg
        With r
        If .Value < 1 And .Value > 0 Then
            .Value = Replace(.Value, ".", "0.")
        End If
    End With
    Next
End Sub

[/code]

hyf7989

十分感谢，这么晚还给我答复。{:soso_e179:}

→友の良杰←

hyf7989 发表于 2012-11-3 13:38
十分感谢，这么晚还给我答复。

谢谢你的鲜花~~

lw9089

鲜花一个啊