[已解决]论坛找的代码出错,请帮忙纠错并'升级',谢谢(+了补充说明)

大灰狼1976 · 发表于 2013-7-8 21:12

实际上这句判断是不严谨的，你可以试着改成绝对正确的判断。
If m = 3 And Val(a(1)) + Val(a(2)) + Val(a(3)) = Val(Left(Trim(arr1(i, 1)), 1)) + Val(Mid(Trim(arr1(i, 1)), 2, 1)) + Val(Right(Trim(arr1(i, 1)), 1)) Then arr(5, 1) = arr(5, 1) + 1

1234vba · 发表于 2013-7-8 21:55

嗯好的谢谢老师...

我再测试测试...

1234vba · 发表于 2013-7-8 22:03

刚测试了....

已经OK了..

谢谢老师... [统计1]按钮已经解决了[em17]

就差
[统计2]按钮功能

大灰狼1976 · 发表于 2013-7-8 22:30

对于txt文件的操作，我尚无能力解决，请另起贴请高手作答

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