关于for next函数漏项问题

不知道为什么 · 发表于 2018-9-13 19:50

这种问题自己可以录制宏就能整明白了

duquancai · 发表于 2018-9-13 19:51

本帖最后由 duquancai 于 2018-9-13 19:53 编辑

清溪闻远流发表于 2018-9-13 17:12
请问应该设置成什么格式呢？我试过用货币，有千位符，但是不想有那个货币符号

Sub main()
Dim n$
n = "12345016789.62"
MsgBox getThousandth(n)
End Sub
Public Function getThousandth(ByVal n As String) As String
Dim D As Object, js As Object, j$
Set D = CreateObject("htmlfile"): Set js = D.parentWindow
js.execScript "re = /\d{1,3}(?=(\d{3})+$)/g;"
j = "'" & n & "'.replace(/^(\d+)((\.\d+)?)$/,function(s, s1, s2){ return s1.replace(re, '$&,') + s2;});"
getThousandth = js.eval(j)
End Function

mythqiu · 发表于 2018-9-14 17:01

清溪闻远流发表于 2018-9-13 17:12
请问应该设置成什么格式呢？我试过用货币，有千位符，但是不想有那个货币符号

Range("A2:A100").NumberFormatLocal = "###,000,000.000"
0用#互换会有不同显示效果,自己体会.红色区域换成自己需要设置的区域.

		自动登录	找回密码
密码			免费注册

[求助] 关于for next函数漏项问题