Excel Index工作表ListBox3项永久选中无法取消的问题求助

针对你遇到的ListBox3打开即有选中项、点击后高亮无法清除的问题，结合ListBox2正常的对比情况，提供以下可行解决思路：

• 重置选中状态到正确时机
  你之前在ListBox3_Click事件里注释的ListIndex = -1代码，可能因为触发时机（激活其他工作表后）导致未生效。建议将重置逻辑放在工作簿启动或Index工作表激活时：

  ' 放在ThisWorkbook的代码模块中
  Private Sub Workbook_Open()
      Sheets("Index").ListBox3.ListIndex = -1
  End Sub
  
  ' 或者放在Index工作表的代码模块中
  Private Sub Worksheet_Activate()
      Me.ListBox3.ListIndex = -1
  End Sub
  

  这样每次打开工作簿或切换回Index工作表时，都会强制清除ListBox3的选中状态。

• 检查MultiSelect属性一致性
  即使复制了ListBox2，控件属性可能在粘贴时被意外修改。对比ListBox2和ListBox3的MultiSelect属性：

  • 确保两者都设置为0 - fmMultiSelectSingle（单选模式）
  • 如果ListBox3被设为多选模式（1或2），选中状态的保存逻辑会和单选模式不同，容易出现残留高亮

• 排查ListBox填充代码
  检查填充ListBox3的代码，确认在完成数据填充后是否添加了ListIndex = -1。如果ListBox2的填充代码最后有重置选中状态，而ListBox3的填充代码遗漏了这一步，就会导致打开时默认选中第一项。示例填充代码末尾需添加：

  ' 填充ListBox3数据后执行
  Sheets("Index").ListBox3.ListIndex = -1
  

• 重建控件而非复制
  复制粘贴控件可能继承隐藏的异常状态，建议删除现有ListBox3，手动插入新的ListBox控件：

  1. 开发工具 → 插入 → 列表框（ActiveX控件）
  2. 设置和ListBox2完全相同的属性（名称、字体、位置等）
  3. 重新绑定ListBox3_Click事件代码

• 检查EnableEvents状态
  如果填充ListBox3时使用了Application.EnableEvents = False，需确保操作后恢复为True，否则后续的重置选中状态代码可能无法触发：

  Application.EnableEvents = False
  ' 执行ListBox3填充逻辑
  Sheets("Index").ListBox3.ListIndex = -1
  Application.EnableEvents = True
  

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