昨天分享了，将列表框内容输出到单元格中，今天分享下，如何通过双击来实现列表框的显示与关闭

工具/原料

  • excel

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

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

  4. 4

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

  5. 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. 6

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

  7. 7

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

  8. 8

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

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

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。