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潰敗回答