[求助]不能取得worksheetfunction的TEXT属性

23410862 · 发表于 2014-5-29 13:22

本帖最后由 23410862 于 2014-5-30 08:52 编辑

RT 提示错误1004，不能取得worksheetfunction的TEXT属性
不解的是前两都可以（X 和 L），为什么到第三个 Y 就不行。

23410862 · 发表于 2014-5-29 13:24

大家帮我看看，谢谢了！
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp).Row, 2), 3) + 1, "Y000")

闻启学 · 发表于 2014-5-29 13:41

23410862 发表于 2014-5-29 13:24
大家帮我看看，谢谢了！
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(x ...

上传附件看看

VBA万岁 · 发表于 2014-5-29 14:09

应该是3种情况（X 、 L、Y）都不行，因为你的CBLB的值刚好处在等于“Y”的情况，所以，bug只会显示第三个 Y 出错。

23410862 · 发表于 2014-5-30 08:54

闻启学发表于 2014-5-29 13:41
上传附件看看

自己刚学VBA ，已传附件，帮我看看谢谢！

23410862 · 发表于 2014-5-30 08:55

VBA万岁发表于 2014-5-29 14:09
应该是3种情况（X 、 L、Y）都不行，因为你的CBLB的值刚好处在等于“Y”的情况，所以，bug只会显示第三个 Y ...

不是的，我试了X和L 都能正常显示，一选择Y就报这个错，已传附件，帮我看看，谢谢！

闻启学 · 发表于 2014-5-30 09:01

23410862 发表于 2014-5-29 13:24
大家帮我看看，谢谢了！
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(x ...

我这里运行通过的建议这里使用format VBA 函数

可以用VBA 函数话尽量使用VBA函数
这样运行速度快点

LB10.Caption =format(Right(Cells([A65536].End(xlUp).Row, 2), 3) + 1, "Y000")

VBA万岁 · 发表于 2014-5-30 09:28

23410862 发表于 2014-5-30 08:55
不是的，我试了X和L 都能正常显示，一选择Y就报这个错，已传附件，帮我看看，谢谢！

方便上传你的代码吗——我的电脑打开附件时代码丢失。

闻启学 · 发表于 2014-5-30 09:31

VBA万岁发表于 2014-5-30 09:28
方便上传你的代码吗——我的电脑打开附件时代码丢失。

他的代码很多的有窗体的代码

VBA万岁 · 发表于 2014-5-30 09:46

闻启学发表于 2014-5-30 09:31
他的代码很多的有窗体的代码

我也反复测试过：
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp).Row, 2), 3) + 1, "Y000")
这一句，似乎没什么不对......

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

最新热点 /1