运行-时间错误 13：带有 excel 单元格的复选框的列表框

Question

我单击按钮，我可以用文本框中的所有值填充行，但是列表框不工作，我可以看到这些项目，但是当我 select 它们并单击 commandbutton2 时，它们不'转移。一直显示运行次错误 13 类型不匹配。

为了将项目添加到我的列表框中，我在列表框属性 =Sheetname!G12:G24 中使用了 RowSource，当我打开表单时，所有内容都在那里。

Private Function selectneg() As Integer
Dim i As Integer


For i = LBound(ListBox1.List) To UBound(ListBox1.List)
   If ListBox1.Selected(i) Then

      selectneg = selectneg & ListBox1.List(i) & " , "


   End If

Next i

If Len(selectneg) > 0 Then

   selectneg = Left(selectneg, Len(selectneg) - 1)  'here is where the error appear 

End If

Answer 1

当您使用 selectneg = selectneg & ListBox1.List(i) & " , " 时，您试图将一个字符串放入一个整数中。

如果你需要一个字符串使用一个字符串，你不能使用不同的类型作为字符串

运行-时间错误 13：带有 excel 单元格的复选框的列表框

Run-time error 13: Listbox with checkboxes to excel cells

forms

excel

vba

listbox