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

发布网友 发布时间：2022-04-24 03:35

我来回答

共5个回答

热心网友 时间：2023-10-15 14:43

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

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

热心网友 时间：2023-10-15 14:44

以A1为例：

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

VBA：

Sub aa()

'这里以一个单元格为列

热心网友 时间：2023-10-15 14:44

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

热心网友 时间：2023-10-15 14:45

以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

热心网友 时间：2023-10-15 14:45

用函数行不？
FIND RIGHT等函数