execl的一个小疑点：12.00怎么获取小数位数是2位_VBA

execl的一个小问题：12.00如何获取小数位数是2位
execl的一个小问题：12.00如何获取小数位数是2位

------解决方案--------------------------------------------------------
MsgBox ActiveCell.NumberFormatLocal '0.00_

------解决方案--------------------------------------------------------

VB code

len(split("12.00",".")(1))
------解决方案--------------------------------------------------------
MsgBox "小数点后的位数是：" & Cstr(Len(Split(ActiveCell.Text,".")(1)))