Question

我有一个列表框，用户可以在其中选择任意数量的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

Answer 1

只需参考工作表

即可

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

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

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

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

1 个答案: