Office 2019 VBA用户窗体ListBox点击时宏冻结问题求助

针对你遇到的用户窗体ListBox点击后宏冻结的情况，可通过以下步骤解决，同时实现选择非默认项后保持窗体等待点击Continue按钮的需求：

核心修复方案 #

1. 删除空事件过程
   空的DateSelectionList_Click()和UserForm_Click()事件在Office 2019环境中可能触发异常的事件队列阻塞，直接删除这两个空过程即可避免冻结问题。

2. 优化ListBox配置与事件
   将原本的Click事件替换为更可靠的Change事件（仅在选中项实际变化时触发），同时明确设置ListBox为单选模式，避免潜在的多选冲突：

修改后的用户窗体代码如下：

Option Explicit

Private Sub Continue_Click()
    Dim lngCurrItem As Long
 
    ' 将选中的日期赋值给公共变量strClassDate
    For lngCurrItem = 0 To DateSelectionList.ListCount - 1
        If DateSelectionList.Selected(lngCurrItem) = True Then
            strClassDate = DateSelectionList.List(lngCurrItem)
            Exit For ' 单选模式下找到选中项后直接退出循环
        End If
    Next lngCurrItem
    
    Unload Me
End Sub

Private Sub DateSelectionList_Change()
    ' 此事件仅在选中项变化时触发，无需额外代码，保持窗体等待用户点击Continue即可
End Sub

Private Sub UserForm_Initialize()
    With DateSelectionList
        .List = strDateArray
        .SelectionMode = fmSelectionModeSingle ' 明确设置单选模式
    End With
    
    ' 默认选中第一行
    DateSelectionList.Selected(0) = True
End Sub

3. 确保窗体模态显示
   在主Sub中调用窗体时，建议明确指定模态显示（默认即为模态，显式声明可避免环境差异）：

Sub Main()
    ' 其他逻辑...
    AffDateSelector.Show vbModal
    ' 后续使用strClassDate的逻辑...
End Sub

原理说明 #

• 空事件过程在部分Office版本中会导致VBA事件处理机制出现异常阻塞，删除后可消除触发冻结的诱因。
• 使用Change事件替代Click事件，能精准响应选中项的变化，避免点击ListBox空白区域时的无效触发。
• 明确设置单选模式后，代码中可通过Exit For提前终止循环，既提升效率也避免多选场景下的赋值混乱。

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