利用VBA 提取小数部分
Function GetDec(cell As Range, Optional ConvertToWhole As Boolean) As Variant
' 示例:2.154
'a)如果忽略或设置为FALSE,则函数返回小数,类似于“0.154”的形式
'b)如果设置为TRUE,则函数返回一个整数,如“154”
Dim i%
If IsNumeric
Function GetDec(cell As Range, Optional ConvertToWhole As Boolean) As Variant
' 示例:2.154
'a)如果忽略或设置为FALSE,则函数返回小数,类似于“0.154”的形式
'b)如果设置为TRUE,则函数返回一个整数,如“154”
Dim i%
If IsNumeric