昨天分享了，将列表框内容输出到单元格中，今天分享下，如何通过双击来实现列表框的显示与关闭
工具/原料
excel
方法/步骤
1、打开已经做好列表框的文件
2、在设计模式下用鼠标选中列表框，如图
3、单击鼠标右键，弹出新的窗口，在新窗口中选择查看代码
4、点击后进入VBA工程页面，如图
5、我们将以下代码复制到如图位置：PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfTarget.Address<>"$H$1"ThenIfMe.ListBox1.Visible=TrueThenMe.ListBox1.Visible=FalseElseMe.ListBox1.Visible=TrueEndIfEndIfEndSub
6、回到工作表页面，退出设置模式
7、在双击除H1单元格的任何位置，列表框都会关闭或显示
8、再次说明下，如果想只单击固定位置管比活着显示，可以将代码IfTarget.Address<>"$H$1"大于小于号改为等于号，必须在英文状态更改，H1可以更改为自己想要的单元格位置。