VBA ListBox选中值打印至工作表报错：类型不匹配问题求助

原代码核心问题 #

• CommandButton1_Click里的Load Me是错误操作，完全无法记录ListBox选中项的索引，该过程未完成获取选中项的逻辑
• CompleteForm_Click中使用的x是另一个过程的局部变量，当前过程无法访问；y仅声明未赋值，直接参与运算会导致结果异常
• 未指定ListBox的列索引，ListBox1.List(x)默认取第一列，但需求需要对应不同列的零件号、名称、数值
• 未处理数值类型转换，直接对ListBox中的文本值做乘法会触发类型不匹配错误
• 未支持ListBox多选场景，原代码仅能处理单行数据

修正后的完整代码 #

' 模块级变量，存储选中项的索引，让两个过程可共享访问
Private selectedIndices As Collection

Private Sub CommandButton1_Click()
    ' 给ListBox加载数据
    Me.ListBox1.List = Range("B7:F22").Value
    ' 设置为多选模式（按需调整，若只需单选可改为fmMultiSelectSingle）
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    
    ' 清空之前的选中记录
    Set selectedIndices = New Collection
    
    ' 遍历ListBox，记录所有选中项的索引
    Dim x As Long
    For x = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(x) Then
            selectedIndices.Add x
        End If
    Next x
End Sub

Private Sub CompleteForm_Click()
    ' 先判断是否有选中项
    If selectedIndices.Count = 0 Then
        MsgBox "请先选择ListBox中的项目", vbExclamation
        Exit Sub
    End If
    
    ' 创建新工作表，避免用ActiveSheet提升稳定性
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "Part Order Form"
    
    ' 设置表头
    newSheet.Range("A1:C1").Value = Array("Part Number", "Part Name", "QtY.")
    
    ' 获取TextBox2的乘数，先校验是否为有效数字
    Dim y As Double
    If Not IsNumeric(Me.TextBox2.Value) Then
        MsgBox "TextBox2请输入有效数字", vbCritical
        Exit Sub
    End If
    y = CDbl(Me.TextBox2.Value)
    
    ' 遍历所有选中项，写入新工作表
    Dim idx As Variant
    Dim rowNum As Long
    rowNum = 2 ' 从第二行开始写入数据
    
    For Each idx In selectedIndices
        ' 对应原数据列：B列=零件号（ListBox第0列），C列=零件名称（第1列），F列=待乘数值（第4列）
        newSheet.Cells(rowNum, 1).Value = Me.ListBox1.List(idx, 0)
        newSheet.Cells(rowNum, 2).Value = Me.ListBox1.List(idx, 1)
        ' 转换为数值类型后再运算，避免类型不匹配
        Dim originalValue As Double
        originalValue = CDbl(Me.ListBox1.List(idx, 4))
        newSheet.Cells(rowNum, 3).Value = y * originalValue
        
        rowNum = rowNum + 1
    Next idx
    
    ' 自动调整列宽，优化显示
    newSheet.Columns("A:C").AutoFit
End Sub

关键修正说明 #

1. 模块级变量共享：用selectedIndices存储选中项索引，解决两个过程间的变量访问问题
2. 移除错误操作：删掉无效的Load Me，替换为正确的选中项索引记录逻辑
3. 数值安全处理：对输入值和ListBox数值做类型校验与转换，彻底避免类型不匹配错误
4. 明确列索引：指定ListBox的列位置，确保读取的数据对应需求中的零件号、名称和待乘数值
5. 支持多选批量处理：遍历所有选中项，批量写入新工作表
6. 避免依赖ActiveSheet：直接引用工作表对象，代码更稳定不易出错

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