我的列表框出现问题。在用户表单初始化事件中,我使用以下代码来填充它:
RecordSelectionBox.List = WorkingCopy.Worksheets(1).Range("A2:P20").Value
效果很好。我有列宽调整,效果也很好。一旦用户选择了一条记录,即列表框中的一行,我会将一堆标签的标题设置为列表框列的值。它可以很好地填充标签标题 1 到 15。当它达到 16 时,我收到错误“无法获取列属性。参数无效”“运行时错误'-2147024809 (80070057)'”
这是代码:
Explanation.Caption = RecordSelectionBox.Column(16)
RecordSelectionBox.ColumnCount 的 debug.print 显示我确实有 16 列。解释字段是我正在使用的字段中最长的,但我不确定我是否明白这会成为一个问题。如果有人有想法,我会洗耳恭听。
最佳答案
这是因为列表框的第一列以 0
开头
您的第一个标签应该是
Label1.Caption = RecordSelectionBox.Column(0)
第 16 个应该是
Explanation.Caption = RecordSelectionBox.Column(15)
关于excel - VBA列表框问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19058913/