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