如何在Excel VBA

Question

我正在尝试为工作做一个Excel项目。它涉及很多列表框。我需要列表框有一个双击事件，单击选择，双击取消选择。经过一些研究，我能够找到一些可以完美执行该功能的代码：

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.EnableEvents = False
Me.ListBox1.ListIndex = -1

Application.EnableEvents = True

End Sub

但是，所有列表框的代码都很多，我认为它会使文件出现故障。 Excel崩溃了好几次。每个列表框只需要双击事件。有没有办法将所有这些组合成一个通用命令？请愚蠢地回复你的回答，因为我不是程序员。我在我头上。谢谢！