作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
biaotiger1 |
Q：为什么自定义格式中文本部分不显示小数点前面的0？
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Str As String
- If Target.Count = 1 And Target.Column = 1 Then
- Target.NumberFormatLocal = ";;;" & Chr(34) & Application.Evaluate("=" & fomula(Target)) & Chr(34)
- End If
- End Sub
以上代码将带文本的算式显示为去掉文本后的计算结果。可是当算式结果为纯小数时，为什么不显示小数点前面的0呢？如何解决呢？
A：当结果为0起始时，是否显示小数点前面的0受系统影响。
在控制面板中双击“区域和选项”图标，激活“区域和语言选项”对话框→默认激活“区域选项”选项卡→“自定义”，激活“自定义区域选项”对话框→“数字”选项卡中“0起始显示”如果设置为显示起始0，则以上代码中显示起始0。如果设置为不显示起始0，则以上代码的结果中不显示起始0。
那么，如果以上设置为不显示起始0，结果中又需要显示为起始0时，如何解决呢？
可将以上代码更改为如下：
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count = 1 And Target.Column = 1 Then
- a = IIf(Left(Application.Evaluate("=" & fomula(Target)), 1) = ".", 0, "") & Application.Evaluate("=" & fomula(Target))
- Target.NumberFormatLocal = "0;0;0;" & Chr(34) & a & Chr(34)
- End If
- End Sub
即在纯小数的结果前强制显示0。
详见附件。
 VBA自定义单元格格式.rar
|
2楼
水吉果果 |
学习 |
3楼
xyf2210 |
这个要玩玩 |
4楼
bluecat2000 |
学习了，谢谢，做个记号 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一