强制取消选择列表框项目

Question

我的索引表的 Listbox3 有一个突出显示为蓝色/永久选定的项目。代码填充列表框后，它会在工作簿中打开。我在论坛上尝试了很多方法，但似乎都不起作用。 Listbox2 具有相同的代码，但由于某种原因它不会使单击的项目保持选中状态。我复制了 LB2 并将其粘贴为 LB3，认为可能是属性问题，但这并没有解决问题。有什么想法可以尝试吗？

        Private Sub ListBox3_Click()
    
         Sheets(ListBox3.Text).Visible = True
         Sheets(ListBox3.Text).Move After:=ThisWorkbook.Sheets("Index")
         Sheets(ListBox3.Text).Activate
         'Me.ListBox3.ListIndex = -1
         'Sheets("Index").ListBox3.ListIndex = -1
         'Sheets(ListBox3.Text).listItem.Selected = False    
          
    End Sub

Answer 1

索引表激活模块中缺少此功能。我不知道为什么在工作簿激活时选择该项目，因为它就在那里。

            With ThisWorkbook.Sheets("Index").ListBox3
            .Clear
            .List = ThisWorkbook.Sheets("Data").Range("K1:K12").Value
        End With