VBA：单击显示列表框

Question

我搜索了一种显示特定事件列表框的方法，这里点击一下，但无法找到它

 If MsgBox("Souhaitez vous reprendre un bordereau déjà édité?", vbYesNo, "Edition Bordereau") = vbYes Then
 PreCheckPlot
 Else
rest of commands

我想要显示列表框的子

Sub PreCheckPlot()
ListBox2.Visible = True
End Sub

这不起作用，ListBox2.Show也不起作用，它会抛出错误。

是否可以在点击时显示列表框，如果是，我将如何编写它？

提前谢谢。

Answer 1

当您单步执行时，它是否会进入PreCheckPlot？ 错误是什么？

如果您创建了一个用户窗体，请在其上放置一个列表框以及一个按钮，按下该按钮会显示您的消息，然后您的代码就能正常工作。

我想知道你是否试图从表单外部设置ListBox2.Visible（它不知道表单是什么）

这假定它是一个ActiveX列表框 - 或者它是一个表单列表框？

Answer 2

您还需要参考表格。

因此，如果您的ListBox2位于Sheet1中，那么您需要使用：

 Sheet1.ListBox2.Visible = True