Excel选择用户窗体ListBox行时崩溃，求VBA排查方案

问题概述 #

ListBox搜索功能正常，但点击行触发lstMaster_Click事件时崩溃，崩溃发生在代码行：

.txtPODate.Value = .lstMaster.List(lstMaster.ListIndex, 23)

txtPODate_BeforeUpdate代码的可疑点 #

你修改的这段代码确实存在引发崩溃的潜在问题：

• 无限循环触发事件：在BeforeUpdate事件里直接修改.Text属性，会再次触发BeforeUpdate事件，形成死循环，最终导致Excel崩溃。因为BeforeUpdate是控件内容更新前的触发事件，此时修改文本会重复触发该事件，循环无法终止。
• 日期转换的重复操作隐患：当从ListBox读取的日期值赋值给txtPODate.Value后，BeforeUpdate事件触发，执行CDate(.Text)再赋值回.Text，会导致类型转换重复执行，可能引发类型不匹配错误，进而导致崩溃。

代码修复方案 #

修改txtPODate_BeforeUpdate代码，避免循环触发事件，优化日期验证逻辑：

Private Sub txtPODate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    With txtPODate
        If IsDate(.Text) Then
            .BackColor = &HFFC0C0    '紫色
            ' 改用.Value赋值，避免重复触发BeforeUpdate事件
            .Value = CDate(.Text)
        ElseIf .Text <> "" Then
            .BackColor = vbYellow
            MsgBox "请输入有效的日期格式。"
            Cancel = True
        Else
            .BackColor = &HFFC0C0    '紫色
        End If
    End With
End Sub

额外排查建议 #

1. 检查ListBox第23列（索引从0开始）的数据类型，确认是否为日期格式，是否存在空值或非法格式数据，这些情况可能导致赋值时出现类型错误。
2. 在lstMaster_Click事件开头添加选中行判断，防止无选中行时触发错误：

Private Sub lstMaster_Click()
    ' 先判断是否有选中行，无选中则直接退出
    If lstMaster.ListIndex = -1 Then Exit Sub
    
    ' 后续原有代码...
End Sub

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