0

运行代码时出现此错误。这是这篇文章的延续: 向标签添加滚动条

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

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

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

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

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

在此处输入图像描述

4

2 回答 2

2

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

如果没有调用对象reportDate1,没有变量Dimed 并且Option Explicit模块顶部没有语句,那么reportDate1将是一个变体,它没有 Caption Method 或属性

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

在此处输入图像描述

于 2011-04-14T19:11:43.580 回答
0

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

于 2011-04-14T19:10:39.633 回答