excel vba中如何获取一个小数的小数点后的位数?

2024-12-11 18:31:04

推荐回答（5个）

回答1：

1、先将小数转化为字符串

2、从最后一位未0开始计数到小数点的位数就是小数的位数

回答2：

以A1为例：

函数： =LEN(SUBSTITUTE(A1,MID(A1,1,FIND(".",A1)),""))

VBA：

Sub aa()

'这里以一个单元格为列

Dim fd
fd = Application.Find(".", Range("a1"))
MsgBox Len(Application.Substitute(Range("a1"), Mid(Range("a1"), 1, fd), ""))
End Sub

回答3：

Sub 小数点后位数()
ss = [a1].Value
MsgBox Len(ss) - InStr(ss, ".")
End Sub

回答4：

以A1为例：
函数： =LEN(SUBSTITUTE(A1,MID(A1,1,FIND(".",A1)),""))

VBA：
Sub aa()

'这里以一个单元格为列

1
2
3
4

Dim fd
fd = Application.Find(".", Range("a1"))
MsgBox Len(Application.Substitute(Range("a1"), Mid(Range("a1"), 1, fd), ""))
End Sub

回答5：

用函数行不？
FIND RIGHT等函数