使用VBA在Excel中查看和隐藏列

用户名

我有一个工作表,其值在B:G列中。在单元格A1的同一张工作表中,我使用数据验证(如A,B和C)制作了一个下拉列表。

我需要的是,当我选择单元格值A时,则B:C列需要可见,而其他列应从D:G中隐藏。以相同的方式,如果我从列表中选择B,则需要查看D:E和B:C以及F:G列。

你能帮我这个忙吗?

注意:我对VBA并不了解。

亚历克斯·P

试试这个:

  1. 打开VBA编辑器(ALT + F11
  2. 连按两下 Sheet1
  3. 选择Worksheet左上角的下拉,Change在右上角的下拉
  4. 粘贴此代码

注意:这假设数据验证在单元格中 A1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim allColumns As Range

    Set allColumns = Columns("B:G")
    allColumns.Hidden = True

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value = "A" Then
            Columns("B:C").Hidden = False
        ElseIf Target.Value = "B" Then
            Columns("D:E").Hidden = False
        ElseIf Target.Value = "C" Then
            //Add more logic here
        End If
    End If
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

在Excel 2013中使用VBA读取隐藏列的问题

来自分类Dev

使用Togglebutton Excel 2016隐藏和取消隐藏列中具有日期的行

来自分类Dev

使用VBA隐藏列

来自分类Dev

如何使用Interop C#隐藏Excel列和行

来自分类Dev

在Excel 2010中,使用宏和VBA比较列中的数据并突出显示值(如果不同)

来自分类Dev

使用VBA在Excel中反堆积列

来自分类Dev

使用Excel VBA复制列中的范围

来自分类Dev

使用VBA For Loop连接Excel中的列

来自分类Dev

使用 VBA 比较 Excel 中的 3 列

来自分类Dev

使用If函数VBA隐藏和取消隐藏所有工作表上的列

来自分类Dev

在Excel中隐藏/取消隐藏列的宏

来自分类Dev

使用Excel VBA计算列中``0''和``1''之间的转换

来自分类Dev

使用EPPLUS找出Excel文件中是否隐藏了列

来自分类Dev

在Excel 2010中隐藏MS VBA屏幕

来自分类Dev

无法在VBA Excel中迭代工作表和列

来自分类Dev

无法在VBA Excel中迭代工作表和列

来自分类Dev

使用索引和匹配 (Excel/VBA) 更新列的值

来自分类Dev

Excel VBA:无法使用 if 语句和 for 循环删除多列

来自分类Dev

如何使用VBA使用多个下拉列表在Excel中隐藏多个工作表

来自分类Dev

需要查询以查看 Excel 表中多个表和存储过程的某些列

来自分类Dev

如何隐藏和查看ModalPopupExtender?

来自分类Dev

Word和Excel中的vba是否使用不同的声明?

来自分类Dev

使用VBA在Excel 2016中复制和粘贴值

来自分类Dev

使用VBA excel在word中复制形状和更改文本

来自分类Dev

使用Excel VBA宏将一行数据复制并粘贴到单独的行和交错的列中

来自分类Dev

结合使用IF和Excel VBA

来自分类Dev

根据单元格的值在Excel中隐藏和显示多列

来自分类Dev

使用VBA在Excel中向列输入多个文本

来自分类Dev

如何使用VBA在Excel中打印不连续的列?

Related 相关文章

  1. 1

    在Excel 2013中使用VBA读取隐藏列的问题

  2. 2

    使用Togglebutton Excel 2016隐藏和取消隐藏列中具有日期的行

  3. 3

    使用VBA隐藏列

  4. 4

    如何使用Interop C#隐藏Excel列和行

  5. 5

    在Excel 2010中,使用宏和VBA比较列中的数据并突出显示值(如果不同)

  6. 6

    使用VBA在Excel中反堆积列

  7. 7

    使用Excel VBA复制列中的范围

  8. 8

    使用VBA For Loop连接Excel中的列

  9. 9

    使用 VBA 比较 Excel 中的 3 列

  10. 10

    使用If函数VBA隐藏和取消隐藏所有工作表上的列

  11. 11

    在Excel中隐藏/取消隐藏列的宏

  12. 12

    使用Excel VBA计算列中``0''和``1''之间的转换

  13. 13

    使用EPPLUS找出Excel文件中是否隐藏了列

  14. 14

    在Excel 2010中隐藏MS VBA屏幕

  15. 15

    无法在VBA Excel中迭代工作表和列

  16. 16

    无法在VBA Excel中迭代工作表和列

  17. 17

    使用索引和匹配 (Excel/VBA) 更新列的值

  18. 18

    Excel VBA:无法使用 if 语句和 for 循环删除多列

  19. 19

    如何使用VBA使用多个下拉列表在Excel中隐藏多个工作表

  20. 20

    需要查询以查看 Excel 表中多个表和存储过程的某些列

  21. 21

    如何隐藏和查看ModalPopupExtender?

  22. 22

    Word和Excel中的vba是否使用不同的声明?

  23. 23

    使用VBA在Excel 2016中复制和粘贴值

  24. 24

    使用VBA excel在word中复制形状和更改文本

  25. 25

    使用Excel VBA宏将一行数据复制并粘贴到单独的行和交错的列中

  26. 26

    结合使用IF和Excel VBA

  27. 27

    根据单元格的值在Excel中隐藏和显示多列

  28. 28

    使用VBA在Excel中向列输入多个文本

  29. 29

    如何使用VBA在Excel中打印不连续的列?

热门标签

归档