vba查询vlookup数据后小数点前面的0没有了

发布网友发布时间：2022-05-13 13:11

共1个回答

热心网友时间：2023-10-10 09:48

这是vb6显示小数的方式。自己做一个字符串处理函数吧，如果绝对值小于1，就自动加上一个0。
Sub VBA小数点前面的零不显示处理方式()
函数名: FormatNumber
用途：返回一个数字格式的表达式
语法：
FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
Expression .......................必需的。要被格式化的表达式。
NumDigitsAfterDecimal ............可选的。数字值，表示小数点右边的显示位数。缺省值为_1，表示使用计算机的区域设置值。
IncludeLeadingDigit ..............可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。
UseParensForNegativeNumbers ......可选的。三态常数，表示是否把负数值放在圆括号内。关于其值，请参阅“设置值”部分。
GroupDigits ......................可选的。三态常数，表示是否用组分隔符对数字分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。
关于三常态数
常态数 ............值......说明
vbTrue ............_1 ....True
vbFalse ...........0 ......False
vbUseDefault ......_2 ....用计算机区域设置值中的设置值。
ShuZhi = ".25"
Debug.Print "初次打印结果：" & ShuZhi
Bian = FormatNumber(ShuZhi, IncludeLeadingDigit:=vbTrue) '.........添加函数转换
Debug.Print "再次打印结果：" & Bian
End Sub