如何用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 If

End If

End Sub

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

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

8、再次说明下，如果想只单击固定位置管比活着显示，可以将代码

If Target.Address <> "$H$1" 大于小于号改为等于号，必须在英文状态更改，H1可以更改为自己想要的单元格位置。