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

您还需要参考Sheet。

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

 Sheet1.ListBox2.Visible = True

VBA: Show listbox on click