-0.03为什么在VBA里计算出的字符串是4？

langren1106

如：A1=-0.03

在工作表中用公式 =len(A1)得出结果是 5

但是在VBA里直接用 =len(A1）,得出的结果却是 4，小数点和-号都能计算，就是 第一个0 自动忽略。

求解，这是为什么？

langren1106

元数据设置能文本格式，VBA依旧会跳过0计数

duquancai

langren1106 发表于 2018-6-19 18:46
元数据设置能文本格式，VBA依旧会跳过0计数

没看见VBA代码哪里。你的完整VBA代码在哪里呢？

langren1106

duquancai 发表于 2018-6-19 19:25
没看见VBA代码哪里。你的完整VBA代码在哪里呢？

IF CELLS(1,"A")=-0.03 THEN

CELLS(1,"B")=LEN(A1)

END IF

算出来B1=4，而在EXCEL里直接公式=LEN(A1),结果是5，您可以自己试一下数据。

duquancai

langren1106 发表于 2018-6-19 19:29
IF CELLS(1,"A")=-0.03 THEN

CELLS(1,"B")=LEN(A1)

我不用测试，请你测试 X=vba.len("-0.03")

请问你 x 的值是多少？
没看清问题的本质，指鹿为马，叫嚣也没用！哈哈

langren1106

duquancai 发表于 2018-6-19 19:32
我不用测试，请你测试 X=vba.len("-0.03")

请问你 x 的值是多少？

您好，打扰了。

我的意思是 LEN()，括号里不是特定的值如“-0.03”，

是如果A1单元格是“-0.03”，VBA.LEN(CELLS(1,"a"))=4, len("-0.03")=5.
我不明白为什么把-0.03换成单元格的位置就是结果为4了。

谢谢您的解答。

duquancai

langren1106 发表于 2018-6-19 19:43
您好，打扰了。

我的意思是 LEN()，括号里不是特定的值如“-0.03”，

好吧！那就请你测试下面的代码（在你的代码基础上修改的）

If Cells(1, "A") = -0.03 Then

Cells(1, "B") = Len([A1].Text)

End If
还是那句话：没有抓住问题的本质，指鹿为马！这根本与vba中len   没半毛钱关系！
楼下的大神给你指出问题的本质了！

huang1314wei

langren1106 发表于 2018-6-19 19:43
您好，打扰了。

我的意思是 LEN()，括号里不是特定的值如“-0.03”，

控制面板----区域和语言----其它设置------零起始显示    把   .7  改成  0.7   确定，应用即可，如图：

langren1106

duquancai 发表于 2018-6-19 19:46
好吧！那就请你测试下面的代码（在你的代码基础上修改的）

If Cells(1, "A") = -0.03 Then

谢谢，谢谢，谢谢，加了.TEXT就计算对了，我是小白。
谢谢您的耐心解答，又学了一招。
祝您天天开心。

langren1106

huang1314wei 发表于 2018-6-19 19:48
控制面板----区域和语言----其它设置------零起始显示    把   .7  改成  0.7   确定，应用即可，如图：
...

谢谢您的回答，我加了.TEXT可就解决了。