用于将列表框的输出更改为另一个工作表的VBA代码

我有一个列表框，用户可以select任意数量的9个项目（可以select1个或多个）。 任何选中的项目都会导致“TRUE”输出，否则默认为“FALSE”。 有什么办法可以将输出设置为不同的工作表？ 这里是当前的代码，它被设置为从单元格BA1开始向下输出：

Private Sub ListBox1_Change() With ListBox1 Dim i As Byte For i = 0 To .ListCount - 1 Cells(i + 1, "BA") = .Selected(i) Next i End With End Sub 

Answer 1

只需引用工作表

 Worksheets("NameOfYourSheet").Cells(i + 1, "BA") = .Selected(i) 

注意：这意味着所需表单位于Active Workbook中。 如果需要，也可以添加工作簿参考

 Workbooks("NameOfYourBook").Worksheets("NameOfYourSheet").Cells(i + 1, "BA") = .Selected(i)