用于将列表框的输出更改为其他工作表的VBA代码

我有一个列表框，用户可以在其中选择任意数量的9个项目（可以选择1个或多个）。任何选中的项目都会产生“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

---

只需参考工作表即可

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

注意：这意味着所需的工作表在活动工作簿中。如果需要，也可以添加工作簿引用

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