将列表框中的选定行插入到工作表

Question

我的 ListBox 是一个 4 列的 ListBox，我将在其中插入最后 3 列数据。

我设法编写了一个代码，将 ListBox 的第 n 行插入到电子表格的相应单元格中。但是，我想要插入用户从 ListBox 中选择的任何行......如果他们什么都不选择，它不会插入任何东西。

我插入第 n 行的代码是：

Dim LastRow As Long
Dim n as integer
LastRow = Sheets("Sheet1").Cells(Rows.count, "F").End(xlUp).row
n = inputbox("enter value")
With Worksheets("Sheet1")
    .Range("F" & LastRow + 1) = ListBox1.Column(1, n)
    .Range("G" & LastRow + 1) = ListBox1.Column(2, n)
    .Range("H" & LastRow + 1) = ListBox1.Column(3, n)
End With

您能否建议如何修改我的代码以选择所选值而不是第 n 个？不选中怎么不插入？

Answer 1

如果您只允许选择一项，那么您可以简单地引用列表框元素的.Value。

Dim LastRow As Long
Dim n as integer
LastRow = Sheets("Sheet1").Cells(Rows.count, "F").End(xlUp).row
n = ListBox1.Value
With Worksheets("Sheet1")
    .Range("F" & LastRow + 1) = ListBox1.Column(1, n)
    .Range("G" & LastRow + 1) = ListBox1.Column(2, n)
    .Range("H" & LastRow + 1) = ListBox1.Column(3, n)
End With

如果您允许选择多个项目，那么您将需要遍历列表框中的每个项目并使用.Selected(n) 来确定该项目是否被选中。

Dim LastRow As Long
Dim n as integer
LastRow = Sheets("Sheet1").Cells(Rows.count, "F").End(xlUp).row
For n = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(n) Then
        With Worksheets("Sheet1")
            .Range("F" & LastRow + 1) = ListBox1.Column(1, n)
            .Range("G" & LastRow + 1) = ListBox1.Column(2, n)
            .Range("H" & LastRow + 1) = ListBox1.Column(3, n)
        End With
    End If
Next n