VBA列表框问题答案

【问题标题】：VBA listbox issueVBA列表框问题
【发布时间】：2013-09-28 03:52:44
【问题描述】：

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

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

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

代码如下：

Explanation.Caption = RecordSelectionBox.Column(16)

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

【问题讨论】：

【解决方案1】：

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

你的第一个标签应该是

Label1.Caption = RecordSelectionBox.Column(0)

16号应该是

Explanation.Caption = RecordSelectionBox.Column(15)

【讨论】：