找不到方法或数据成员

时间:2011-04-14 18:55:09

标签: excel vba userform

运行代码时出现此错误。这是这篇文章的延续: Adding a scroll bar to a label

我首先创建了一个userForm,其中包含从工作表中检索信息的标签。我想添加一个滚动条,以便我可以查看标签中的列表,如果它比标签长。我被告知尝试一个文本框。我从我的代码中取出了这一行:

reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

并复制它并在文本框后面添加了一个数字1,因此文本框的代码为:

reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

这一行出现错误(帖子的标题)。

enter image description here

2 个答案:

答案 0 :(得分:2)

您是否创建了一个名为reportDate1的文本框对象,或者只是复制代码?

如果模块顶部没有名为reportDate1且没有变量Dim ed且没有Option Explicit语句的对象,那么reportDate1将是一个变体,其中包含{{1}}没有标题方法或属性

附近的某个东西...下面是开发模式和运行模式中的简单测试用例的屏幕截图。 Text是一个任意字符串,没有换行符。版本/操作系统可能是个问题?我使用的是Windows Excel 2010。

enter image description here

答案 1 :(得分:0)

你是否在表单上创建了一个名为reportDate1的对象?