您现在的位置是:主页 > VBA >

如何在Excel 2013/2016中使用的VBA宏来根据下拉列表选项来隐藏或取消隐藏特定列

发布时间:2023-10-30 06:44:50所属栏目:VBA 已帮助编辑作者:Excel自学教程

本文将讲述如何根据Excel中的下拉列表选择来自动隐藏特定的列。如何在Excel 2013/2016中使用的VBA宏来根据下拉列表选项来隐藏或取消隐藏特定列。

根据下拉列表选项来隐藏或取消隐藏列


假设您在单元格A2中有一个下拉列表,其中两个值为“TRUE”和“FALSE”。并且B列和C列都包含一些文本字符串值。如果你想在下拉列表中选择TRUE项时隐藏整个B列,或者你想在在Cell A2的下拉列表中选择FALSE项时隐藏整个C列。我们该怎么办呢?本文将向您展示如何使用Excel VBA宏来根据下拉列表框中的选择隐藏或取消隐藏特定列。你只需执行以下步骤;

步骤1:您需要在单元格A2中创建包含TRUE和FALSE项目的下拉列表。 (只需选择数据选项卡,单击数据验证命令,然后在Cell A2中创建一个下拉列表)

Excel中根据下拉列表的选择自动隐藏特定的列1

Excel中根据下拉列表的选择自动隐藏特定的列2

步骤2:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。

Excel 中如何只複製內容和格式102

步骤3:然后将出现“Visual Basic编辑器”窗口。

Excel 中如何只複製內容和格式91

步骤4:双击VBAProject部分中的当前工作表名称以打开代码窗口。

Excel中根据下拉列表的选择自动隐藏特定的列5

步骤5:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

Excel中根据下拉列表的选择自动隐藏特定的列4

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Address = ("$A$2") Then        If Target.Text = "TRUE" Then            Columns("B").EntireColumn.Hidden = True            Columns("C").EntireColumn.Hidden = False        ElseIf Target.Text = "FALSE" Then            Columns("B").EntireColumn.Hidden = False            Columns("C").EntireColumn.Hidden = True        End If    End IfEnd Sub
 

注意:$ A1 $ 2是工作表中下拉列表的单元格引用。

步骤6:关闭当前的Visual Basic编辑器窗口,您可以尝试从下拉列表框中选择TRUE或FALSE项,您应该看到列B或列C被隐藏或取消隐藏。

Excel中根据下拉列表的选择自动隐藏特定的列3

     以上就是excel自学教程为您提供如何在Excel 2013/2016中使用的VBA宏来根据下拉列表选项来隐藏或取消隐藏特定列的解读,本文章链接: http://www.5enet.cn/Excel_VBA/74531.html 欢迎分享转载,更多相关资讯请前往VBA

站长名片

姓名:曾工

职业:IT运维

现居:深圳罗湖宝能大厦

电话:15768114603

扫码关注

  • 专注IT行业,10年IT行业经验
  • 微信