Excel关联字段内容隐藏特定列

M ＆ J

于 2024-08-29 16:27:37 发布

阅读量113

点赞数 4

分类专栏： excel/word技巧文章标签： excel 数据库

本文链接：https://blog.csdn.net/qq_43792362/article/details/141681647

版权

excel/word技巧专栏收录该内容

4 篇文章 0 订阅

订阅专栏

在Excel表格中输入特定的值时，与其关联的列批量隐藏。例如，当某行的值输入“否”时，隐藏第2、3、4列，当输入“是”时，展开第2、3、4列。适用于表格中需要输入的值之间具有一定的逻辑关系情况。

效果：
1、当唯一值选择“YES”、“NO”时，隐藏连续的C-H列
在这里插入图片描述

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 Then
        If Target.Value = "No" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

2、当唯一值选择“YES”、“NO”时，隐藏连续的C-D、F、I-J列
在这里插入图片描述

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 Then
        If Target.Value = "No" Then
            Application.Columns.Range("C:D,F:F,I:J").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns.Range("C:D,F:F,I:J").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

3、再增加一个逻辑关系，当个值选择“YES”、“NO”时，再隐藏L、N-P列。可以根据自己表格的实际逻辑情况增加。
在这里插入图片描述

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 Then
        If Target.Value = "No" Then
            Application.Columns.Range("C:D,F:F,I:J").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns.Range("C:D,F:F,I:J").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
    If Target.Column = 7 Then
        If Target.Value = "No" Then
            Application.Columns.Range("L:L,N:P").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns.Range("L:L,N:P").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

将代码复制到Excel或WPS的VB编辑器里运行。
在这里插入图片描述