如何实现双击单元格时显示/关闭列表框

在前一篇文章中，我们分享了如何将列表框的内容输出到单元格中。今天，我们将继续分享另一个技巧：如何通过双击来实现列表框的显示和关闭。 首先，在已经设计好列表框的文件上打开它。 进入“设计模式”，

在前一篇文章中，我们分享了如何将列表框的内容输出到单元格中。今天，我们将继续分享另一个技巧：如何通过双击来实现列表框的显示和关闭。

首先，在已经设计好列表框的文件上打开它。

进入“设计模式”，使用鼠标选中列表框。

然后，单击鼠标右键，在弹出的新窗口中选择“查看代扯胆码”。

点击后，进入VBA工程页面。

将以下代码复制到相应位置：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If  <> "$H$1" Then
        If   True Then
              False
        Else
              True
        End If
    End If
End Sub

完成后，回到工作表页面并退出设置模式。

现在，在除了H1单元格之外的任何位置双击，列表框都会关闭或显示。

如果你只想在固定位置点击时显示或关闭列表框，可以将代码中的“<>”符号改为“”。记住，这个修改必须在英文状态下进行。你也可以更改H1为你想要的单元格位置。