VBA非绑定ListBox点击删除行时事件触发两次并报错问题

我来帮你搞定这个问题！你遇到的ListBox1_Click()触发两次、第二次报错的情况，其实是VBA里ListBox控件的常见坑，主要有两个核心原因：一是Click事件在ListBox选中项变化时容易重复触发，二是第二次触发时你要删除的行已经不存在了，自然会抛出“未指定错误”。

下面给你两种靠谱的解决方案，你可以根据自己的习惯选：

方案一：改用MouseUp事件替代Click事件 #

Click事件的触发逻辑比较“敏感”，当你删除行后ListBox的选中状态会变化，容易触发第二次事件。换成MouseUp事件会更稳定，因为它只在鼠标松开时触发一次：

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' 先判断是否有选中的行，索引必须>=0才有效
    If ListBox1.ListIndex >= 0 Then
        ' 删除选中的行
        ListBox1.RemoveItem ListBox1.ListIndex
    End If
End Sub

方案二：给Click事件加“防重复触发”标志位 #

如果你坚持要用Click事件，可以加一个布尔变量作为开关，防止事件重复执行：

' 模块级变量，用来标记事件是否正在执行
Private isProcessing As Boolean

Private Sub ListBox1_Click()
    ' 如果正在执行，直接退出，避免重复触发
    If isProcessing Then Exit Sub
    
    isProcessing = True ' 打开开关
    
    On Error Resume Next ' 容错：如果出现意外错误，确保开关能关闭
    If ListBox1.ListIndex >= 0 Then
        ListBox1.RemoveItem ListBox1.ListIndex
    End If
    On Error GoTo 0 ' 恢复默认错误处理
    
    isProcessing = False ' 关闭开关
End Sub

关键注意点： #

• 一定要先判断ListBox1.ListIndex >= 0：如果ListBox是空的，或者没有选中任何行，ListIndex会是-1，这时候调用RemoveItem肯定会报错。
• 为什么Click会触发两次？当你删除选中行后，ListBox会自动取消选中状态（因为行已经没了），这个状态变化会再次触发Click事件，第二次触发时ListIndex已经是-1，执行RemoveItem就会抛出“未指定错误”。

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