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

23410862

闻启学 发表于 2014-5-30 09:01
我这里运行通过的 建议这里使用format  VBA 函数

可以用VBA 函数话尽量使用VBA函数  

谢谢，您的代码我试了下，X和L没问题，但在选Y时，不报错，但编号格式不对了，显示3000，按理应该是Y004呀！不会我电脑有问题吧！

23410862

VBA万岁 发表于 2014-5-30 09:46
我也反复测试过：
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp) ...

不会是我电脑有问题吧，昨天刚重装过OFFICE2007
难道是版本的问题？？

闻启学

VBA万岁 发表于 2014-5-30 09:46
我也反复测试过：
LB10.Caption = Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp) ...

他这个文件运行正常的 我测试过了

VBA万岁

23410862 发表于 2014-5-30 10:00
不会是我电脑有问题吧，昨天刚重装过OFFICE2007
难道是版本的问题？？

经反复测试，我终于发现了问题的根源——不是楼主的电脑及版本的问题，而是工作表函数TEXT的应用限制问题，该公式在写成TEXT(C8,"？000")的形式时，？仅限于除以下英文字母以外的17个英文字母（包括大、小写）：
B、b、D、d、E、e、G、g、H、h、M、m、N、n、S、s、Y、y

VBA万岁

VBA万岁 发表于 2014-5-30 19:59
经反复测试，我终于发现了问题的根源——不是楼主的电脑及版本的问题，而是工作表函数TEXT的应用限制问题 ...

解决办法：用TEXT函数结合&函数实现，即：
LB10.Caption = "Y" & Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp) , 3) + 1, "000")

VBA万岁

VBA万岁 发表于 2014-5-30 20:05
解决办法：用TEXT函数结合&函数实现，即：
LB10.Caption = "Y" & Application.WorksheetFunction.Text(R ...

进而楼主的第一段代码简化如下：
Private Sub CBLB_Change()
    Sheets(Choose(CBLB.ListIndex + 1, "学生花名册", "老师花名册", "员工花名册")).Select
    LB10.Caption = CBLB.Value & Application.WorksheetFunction.Text(Right(Cells([A65536].End(xlUp).Row, 2), 3) + 1, "000")
End Sub

whywindrain

在TEXT函数中，Y有特殊意思啊。年。YEAR

VBA万岁

whywindrain 发表于 2014-5-30 20:10
在TEXT函数中，Y有特殊意思啊。年。YEAR

也许是吧，期待有哪位大神能解释TEXT的这些应用限制问题......

whywindrain

VBA万岁 发表于 2014-5-30 20:25
也许是吧，期待有哪位大神能解释TEXT的这些应用限制问题......

你是快乐？

23410862

VBA万岁 发表于 2014-5-30 20:07
进而楼主的第一段代码简化如下：
Private Sub CBLB_Change()
    Sheets(Choose(CBLB.ListIndex + 1, " ...

原来如此,真心谢谢您,我的问题解决了!