如何为ListBox选中的零件名分配表格对应行的数值？

问题分析 #

你当前的代码仅加载了零件名称到ListBox，但未建立选中项与对应数量的关联，注释内的代码还存在几个明显问题：

• ActiveCell无法对应选中项的行，它是当前光标所在单元格，和ListBox选中项无关
• 重复定义循环变量i，逻辑混乱
• 函数返回值仅能获取最后一个选中项的数量，未处理多选场景

正确实现方案 #

提供两种实用实现方式，按需选择：

方法1：ListBox多列存储（推荐）

将零件名称和数量一并加载到ListBox，隐藏数量列，选中项时可直接从ListBox读取数量，无需回查工作表：

Private Sub CommandButton1_Click()
    ' 设置ListBox为多选模式（若未在属性窗口设置则用代码配置）
    ListBox1.MultiSelect = fmMultiSelectMulti
    
    ' 加载零件名（B列）和对应数量（B列右侧第4列=F列）
    Dim dataRange As Range
    Set dataRange = Range("B7:F22") ' B列存零件名，F列存数量（B偏移4列）
    
    ' 配置ListBox多列属性
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;0" ' 隐藏第二列（数量列）
    ListBox1.List = dataRange.Value
End Sub

' 示例：获取所有选中项的零件名和数量，输出到立即窗口
Private Sub CommandButton2_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            ' List(i,0)是零件名，List(i,1)是数量
            Debug.Print "零件名：" & ListBox1.List(i, 0) & "，数量：" & ListBox1.List(i, 1)
        End If
    Next i
End Sub

方法2：通过索引回查工作表

若不想用多列ListBox，可通过ListBox的选中索引，直接定位到原工作表对应行读取数量：

Private Sub CommandButton1_Click()
    ListBox1.MultiSelect = fmMultiSelectMulti
    ' 仅加载零件名称到ListBox
    ListBox1.List = Range("B7:B22").Value
End Sub

' 示例：获取选中项的数量
Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim originalRow As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            ' ListBox第i项对应工作表B7+i行，数量在该行右侧第4列（F列）
            originalRow = 7 + i ' 索引0对应B7行
            Debug.Print "零件名：" & ListBox1.List(i) & "，数量：" & Cells(originalRow, "F").Value
            ' 也可用Offset写法：Cells(originalRow, "B").Offset(0, 4).Value
        End If
    Next i
End Sub

关键注意事项 #

• 务必确保ListBox的MultiSelect属性设为fmMultiSelectMulti（可在属性窗口设置，也可通过代码配置）
• 数量列需准确对应：若零件存于B列，右侧第4列是F列（B→C→D→E→F，共4次偏移），若零件在A列则对应E列，根据实际表结构调整
• 处理多选时需遍历所有ListBox项，判断选中状态，避免仅获取单个值

内容的提问来源于stack exchange，提问作者snt