VBA列表框问题

Question

我的列表框出了问题。在用户表单初始化事件中，我使用以下代码填充它：

RecordSelectionBox.List = WorkingCopy.Worksheets(1).Range("A2:P20").Value 

哪个很好。我有列宽调整，也很好。一旦用户选择了记录，列表框中的一行我将一堆标签的标题设置为列表框列的值。它填写标签标题1到15就好了。当它达到16时，我收到错误“无法获取列属性。无效参数”“运行时错误”-2147024809（80070057）'“

以下是代码：

Explanation.Caption = RecordSelectionBox.Column(16)

RecordSelectionBox.ColumnCount的debug.print显示我确实有16列。解释字段是我正在使用的字段中最长的字段，但我不确定我是否会看到这将成为一个问题。如果有人有想法，我会全力以赴。

Answer 1

这是因为列表框的第一列以0

开头

你的第一个标签应该是

Label1.Caption = RecordSelectionBox.Column(0)

和16日应该是

Explanation.Caption = RecordSelectionBox.Column(15)