如何将所选值（一次一个）从列表框添加到特定的 excel 列

Question

我正在使用包含文件夹名称的列表框。我需要 select 列表框中的名称（一次一个，以保持 selection 的顺序）并将其添加到 excel 列 A1，这样每次添加到A 列的下一个空单元格。我是 vb 的新手，需要帮助。以下是我尝试过的方法。

方法 1)

Sub AddRecord_Click()
         With Sheet1.ListBox1
             For intIndex = 0 To .ListCount - 1
                 With ActiveSheet
                      LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
                 End With

                 If .Selected(intIndex) Then
                    Sheet1.Cells(LastRow, "A") = Sheet1.ListBox1.Value
                    NextRow = LastRow + 1
                 End If
            Next
        End With
       End Sub

方法 2)

Sub AddRecord_Click()
           intRecord = (CInt(Range("A1").End(xlDown).Row) + 1)
           Sheet1.Cells(intRecord, "A") = Sheet1.ListBox1.Value
           intRecord = intRecord + 1
        End Sub

Answer 1

首先，您从 excel sheet 中获取最后使用的行，最后增加最后一行并将下一列值插入 excel。

Dim last as Excel.Range = xlWorkSheet.Cells.SpecialCells 
(Excel.XlCellType.xlcellTypeLastCell,Type.Missing)
dim lastUsedRow As Integer = last.Row
lastUsedRow += 1
xlWorksheet.RangeA("A"+ lastUserRow).value = ListBox1.Value

Answer 2

试试这个可能对你有帮助

 Sub ListBox7_Change()
     Dim i As Long
        With ActiveSheet.ListBoxes("List Box 7")
            For i = 1 To .ListCount
                If .Selected(i) Then
                     Range("A" & Rows.count).End(xlUp).offset(1).Value = .List(i)
                End If
            Next i
        End With

       End Sub

如何将所选值（一次一个）从列表框添加到特定的 excel 列

How to add Selected Value (one at a time) from Listbox to specific excel column

vb.net

excel

vba

listbox

listboxitem