我正在寻找一种方法,如果显示范围:QTYCALCON,则隐藏行“I”。
到目前为止我已经想到了这个。
Sub Hide_Show()
With Range("QTYCALCON").EntireColumn
.Hidden = Not .Hidden
End With
End Sub
答案1
我假设“I”是一列,并且您希望代码能够根据隐藏的列双向工作。因此,下面是我将使用的代码。
Sub Hide_Show()
If Range("QTYCALCON").EntireColumn.Hidden = False Then
Columns("I").Hidden = True
ElseIf Range("QTYCALCON").EntireColumn.Hidden = True Then
Columns("I").Hidden = False
End If
End Sub
每次运行它时,它都会检查“QTYCALCON”是否隐藏。如果没有,它将隐藏“I”。如果“QTYCALCON”隐藏,这将取消隐藏“I”。
答案2
应该发布在 Stack Overflow 上。但是,这里隐藏了柱子 I
:
Sub Hide_Show()
With Range("QTYCALCON").EntireColumn
If Not .Hidden Then
Range("I:I").EntireColumn.Hidden= True
End If
End With
End Sub