时间戳

首页 > 解决方案 > Worksheet_Change Hide Unhide columns based on targets Independently

excel - Worksheet_Change Hide Unhide columns based on targets Independently

问题描述

我想在两个不同的目标中根据是或否隐藏和取消隐藏列。

我的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sourceSheet As Worksheet
Set sourceSheet = ActiveSheet
If Target.Column = 3 And Target.Row = 4 And Target.Value = "Yes" Then
    Application.Goto Reference:="Peer"
    Selection.EntireColumn.Hidden = False
    Call sourceSheet.Activate
Else
 Application.Goto Reference:="Peer"
    Selection.EntireColumn.Hidden = True
    Call sourceSheet.Activate
End If

If Target.Column = 5 And Target.Row = 4 And Target.Value = "Yes" Then
    Application.Goto Reference:="Apple"
    Selection.EntireColumn.Hidden = False
    Call sourceSheet.Activate
Else
 Application.Goto Reference:="Apple"
    Selection.EntireColumn.Hidden = True
    Call sourceSheet.Activate
End If

End Sub

如何相互独立地隐藏列？如果我对 Apples 或 Peers 说不，那么两行都会被隐藏，如果我对 Apples 说 Yes，如果 Peers 的行之前可见，它就会被隐藏。

标签： excelvba

解决方案

据我所知，您不能相互独立地隐藏单元格。我用于单个单元格的大部分内容都是以与背景相同的颜色书写（例如白色背景上的白色字体），但这并不是说隐藏的。

推荐阅读