首页 > 软件开发 > 编程语言 >

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

来源:互联网 2023-03-17 00:16:37 479

昨天分享了,将列表框内容输出到单元格中,今天分享下,如何通过双击来实现列表框的显示与关闭Ejo办公区 - 实用经验教程分享!

工具/原料

  • excel

方法/步骤

  • 1

    打开已经做好列表框的文件Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 2

    在设计模式下用鼠标选中列表框,如图Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 3

    单击鼠标右键,弹出新的窗口,在新窗口中选择查看代码Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 4

    点击后进入VBA工程页面,如图Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 5

    我们将以下代码复制到如图位置:Ejo办公区 - 实用经验教程分享!

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Ejo办公区 - 实用经验教程分享!

    If Target.Address > "$H$1" ThenEjo办公区 - 实用经验教程分享!

    If Me.ListBox1.Visible = True ThenEjo办公区 - 实用经验教程分享!

    Me.ListBox1.Visible = FalseEjo办公区 - 实用经验教程分享!

    ElseEjo办公区 - 实用经验教程分享!

    Me.ListBox1.Visible = TrueEjo办公区 - 实用经验教程分享!

    End IfEjo办公区 - 实用经验教程分享!

    End IfEjo办公区 - 实用经验教程分享!

    End SubEjo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 5此文章非法爬取自百度经验
  • 6

    回到工作表页面,退出设置模式Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 7

    在双击除H1单元格的任何位置,列表框都会关闭或显示Ejo办公区 - 实用经验教程分享!

    如何用VBA代码实现列表框的关闭与显示Ejo办公区 - 实用经验教程分享!

  • 8

    再次说明下,如果想只单击固定位置管比活着显示,可以将代码Ejo办公区 - 实用经验教程分享!

    If Target.Address > "$H$1" 大于小于号改为等于号,必须在英文状态更改,H1可以更改为自己想要的单元格位置。Ejo办公区 - 实用经验教程分享!

  • 以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!Ejo办公区 - 实用经验教程分享!


    标签: 编程语言VBA显示

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码