在excel VBA中单击listbox_click（）后如何检索复选框的复选框

Posted 2021-04-29

如图所示，单击列表框时会发生什么情况，它将从工作表中检索复选框的复选框。

Private Sub ListBox1_Click()Dim say, lastrow As Long

TextBox15 = ListBox1.Column(0)TextBox18 = ListBox1.Column(1)TextBox1 = ListBox1.Column(2)TextBox2 = ListBox1.Column(3)TextBox19 = ListBox1.Column(4)TextBox3 = ListBox1.Column(5)TextBox24 = ListBox1.Column(6)TextBox26 = ListBox1.Column(7)TextBox5 = ListBox1.Column(8)TextBox6 = ListBox1.Column(9)TextBox7 = ListBox1.Column(10)TextBox8 = ListBox1.Column(11)TextBox23 = ListBox1.Column(12)TextBox22 = ListBox1.Column(13)TextBox4 = ListBox1.Column(14)TextBox21 = ListBox1.Column(15)TextBox20 = ListBox1.Column(16)TextBox11 = ListBox1.Column(17)TextBox12 = ListBox1.Column(18)TextBox13 = ListBox1.Column(19)TextBox14 = ListBox1.Column(20)TextBox27 = ListBox1.Column(21)TextBox28 = ListBox1.Column(22)TextBox29 = ListBox1.Column(23)TextBox25 = ListBox1.Column(24)TextBox30 = ListBox1.Column(25)TextBox31 = ListBox1.Column(26)TextBox32 = ListBox1.Column(27)TextBox33 = ListBox1.Column(28)CheckBox1 = ListBox1.Column(29)CheckBox2 = ListBox1.Column(30)CheckBox3 = ListBox1.Column(31)CheckBox4 = ListBox1.Column(32)CheckBox5 = ListBox1.Column(33)CheckBox6 = ListBox1.Column(34)CheckBox7 = ListBox1.Column(35)CheckBox8 = ListBox1.Column(36)CheckBox9 = ListBox1.Column(37)CheckBox10 = ListBox1.Column(38)CheckBox11 = ListBox1.Column(39)CheckBox12 = ListBox1.Column(40)CheckBox13 = ListBox1.Column(41)

lastrow = Sheets("liste").Cells(Rows.Count, "D").End(xlUp).RowSet sonsati = Sheets("liste").Range("D2:D" & lastrow).Find(What:=TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)say = sonsati.RowSheets("liste").Range("A" & say & ":AD" & say).Select

CommandButton1.Enabled = FalseCommandButton2.Enabled = TrueCommandButton3.Enabled = TrueEnd Sub

我尝试了上述公式，但始终提示“运行时错误'-2147024809'，无法获取列属性。参数无效。

有人可以帮我吗。

先谢谢您

答案

在列表框中，它显示为True / False。 – Crusin18 1小时前

您正在努力将String分配给Boolean。首先将其转换为Boolean，然后再尝试。例如

CheckBox6.Value = CBool(ListBox1.Column(x))

CBool("True")将返回布尔值True，CBool("False")将返回布尔值False。如果您认为可以有空格，请尝试此]

CheckBox6.Value = CBool(Trim(ListBox1.Column(x)))