运行代码时出现此错误。这是这篇文章的延续: 向标签添加滚动条
我首先创建了一个用户表单,其中包含从工作表中检索信息的标签。我想要添加一个滚动条,以便如果标签比标签长,我可以查看标签中的列表。我被告知尝试一个文本框。我从我的代码中提取了这一行:
reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf
并复制它并在其后为文本框添加一个数字 1,因此文本框的代码是:
reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf
正是这一行出现了错误(帖子的标题)。