Question

请有人告诉我这段代码有什么问题。如果我在错误恢复时取消注释代码，则代码可以正常工作。但没有我得到错误，无法获取列属性，无效的参数。当我点击列表框时会发生这种情况。我无法弄清楚问题是什么。我有一个14页的表格，从A开始，偏移1行

Private Sub ListBox1_Click()   
  Dim say, lastrow As Long, a As Byte
  'On Error Resume Next
'ListBox1.MultiSelect = 0
OptionButton1.Value = True
For a = 0 To 15
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next a

lastrow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
Sheet1.Activate
Sheet1.Range("B2:B" & lastrow).Find(What:=ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate

say = ActiveCell.Row
TextBox15.Value = say
Sheet1.Range("A" & say & ":N" & say).Select

End Sub

Answer 1

可能您的列表框少于15列。

如果超过列表框（而非工作表）中的列数，

ListBox1.Column(a)将导致错误。通常我希望在一个列表框中最多有几列。

同样rows.count可能会导致错误，因为它需要工作表名称Sheet1.rows.count

无法得到我无法弄清楚的列属性错误

1 个答案: