UserForm3中ListBox双击赋值至UserForm2文本框代码失效排查

1. 语法错误：多余的End With语句 #

代码中存在无匹配With的End With，这会直接导致编译错误，代码无法执行，需删除该行。

2. ListBox列索引错误（核心匹配失效原因） #

VBA中ListBox的List属性索引从0开始（第1列对应索引0，第2列对应索引1）。你的代码中使用listbox1.list(listbox1.listindex, 1)和2，若ListBox内的匹配项对应工作表A、B列，实际应取索引0和1，否则会读取错误列值，导致匹配条件永远不成立。

3. 变量声明不规范 #

Dim r, lr as integer仅将lr声明为Integer类型，r默认是Variant类型，虽不直接引发失效，但可能产生潜在类型问题，建议修正为：

Dim r As Integer, lr As Integer

4. 单元格取值未明确指定Value属性 #

Userform2.Textbox2.value = sheet7.cells(r,1)中sheet7.cells(r,1)未显式读取Value，虽VBA会默认取值，但显式指定更稳妥，应改为：

Userform2.TextBox2.Value = Sheet7.Cells(r, 1).Value

5. 未处理UserForm2未加载的情况 #

若UserForm2未提前加载，直接赋值可能引发错误，建议在赋值前确保窗体已加载：

If Not UserForm2.Visible Then Load UserForm2

修正后的完整代码 #

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim r As Integer, lr As Integer
    lr = Sheet7.Cells(Rows.Count, 2).End(xlUp).Row
    
    ' 确保UserForm2已加载
    If Not UserForm2.Visible Then Load UserForm2
    
    For r = 2 To lr
        ' 修正ListBox列索引为0和1（根据实际列位置调整）
        If Sheet7.Cells(r, 1).Value = ListBox1.List(ListBox1.ListIndex, 0) And _
           Sheet7.Cells(r, 2).Value = ListBox1.List(ListBox1.ListIndex, 1) Then
            UserForm2.TextBox2.Value = Sheet7.Cells(r, 1).Value
            Unload Me
            Exit For ' 找到匹配后退出循环，避免不必要遍历
        End If
    Next r
End Sub

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