Excel VBA计数小数前后的数字

Question

我试图计算小数点前后的数字。

例如1452.13之前，将4前后将是2

的值存储在一个字符串，我想我可能需要使用LEN与找到，但不能弄明白？

将不胜感激任何帮助。

Answer 1

我能玩吗？ ：d

Num = 1452.13 
Debug.Print Len(Split(Num, ".")(0)) '<~~ Length of number before decimal 
Debug.Print Len(Split(Num, ".")(1)) '<~~ Length of number After decimal 

编辑：

我假设你只会把小数。但是，为了万无一失，你可以使用这个

Num = 1452 

Debug.Print Len(Split(Num, ".")(0)) '<~~ Length of number before decimal 

If InStr(1, Num, ".") Then Debug.Print Len(Split(Num, ".")(1)) _ 
Else Debug.Print 0 '<~~ Length of number After decimal 

Answer 2

=LEN(LEFT(A1;LEN(A1)-FIND(".";A1))-1) 
=LEN(RIGHT(A1;LEN(A1)-FIND(".";A1))) 

也就是说，如果你的十进制字符是一个点。

Answer 3

有很多方法。例如here

这是一种相当快的技术，可以在小数点后找到数字。

可以复制和修改，找出小数点

Function CountDecimalPlaces(aNumber As Double) As Long 

    Dim len1 As Long, len2 As Long 
    len1 = Len(CStr(aNumber)) 
    len2 = Len(CStr(Int(aNumber))) 
    CountDecimalPlaces = len1 - len2 + CLng(len1 <> len2) 

End Function 


Function CountInteger(aNumber As Double) As Long 

    CountInteger = Len(CStr(Int(aNumber))) 

End Function 

无论是上述的前地方靠你十进制字符是“”

Answer 4

使用Excel公式你最好使用下面的（快）式

=LEN(INT(A1)) 

=LEN(A1) - IF(INT(A1)-A1,1,0) - LEN(INT(A1)) 

Answer 5

如果您在使用Microsoft Word的工作：

Sub dot() 

Dim Num As Variant 
Num = 1452.13 
MsgBox "You number: " & Num 
MsgBox "Length of number before decimal: " & Len(Split(Num, ".")(0)) 
MsgBox "Length of number After decimal: " & Len(Split(Num, ".")(1)) 

End Sub 

基于亚洲时报Siddharth溃败回答