如何用VBA代码实现列表框的关闭与显示

1、打开已经做好列表框的文件

2、在设计模式下用鼠标选中列表框，如图

3、单击鼠标右键，弹出新的窗口，在新窗口中选择查看代码

4、点击后进入VBA工程页面，如图

5、我们訇咀喃谆将以下代码复制到如图位置：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address <> "$H$1" Then If Me.ListBox1.Visible = True Then Me.ListBox1.Visible = False Else Me.ListBox1.Visible = True End IfEnd IfEnd Sub

6、回到工作表页面，退出设置模式

7、在双击除H1单元格的任何位置，列表框都会关闭或显示

8、再次说明下，如果想只单击固定位置管比活着显示，可以将代码If Target.Address 争犸禀淫<> "$H$1" 大于小于号改为等于号，必须在英揍茏壅混文状态更改，H1可以更改为自己想要的单元格位置。