userform的textbox，保留入的所有小数，小数点前的怎么千分符

Evl

如题。
例如textbox入了123456789.987654321，最后显示为123,456,789.987654321
无论入多少位小数都保留，小数点前有千分符

Evl

大神打救

砂海

a = "123456789.123456789"
b = Split(a & ".", ".")

c = Format(b(0), "#,##0")
If Len(b(1)) Then c = c & "." & b(1)

Debug.Print c

==============================
1) 没有对输入内容进行检查 ,  比如 2个小数点...
2) len() >0 , 更稳妥
3) 注意excel 只能有 15位 有效数字 , 负责只能是文本

Evl

砂海 发表于 2022-10-15 08:18
a = "123456789.123456789"
b = Split(a & ".", ".")

请问b（1）是指什么？然后b=split这个有error。

现在主要是想把小数点前的用千分符分隔，小数点就直接显示，不用分隔符。

Evl

砂海 发表于 2022-10-15 08:18
a = "123456789.123456789"
b = Split(a & ".", ".")

textbox入完后就会自动变

Evl

up

Evl

up