1

我被分配了有关 Excel 和宏的工作，我不太了解这些。如果上一列总计为 0，任务是自动隐藏下一列（不刷新或按 F2）。如果其总计 >=0，则自动取消隐藏（不刷新或按 F2）。

假设我有一组列和行（比如 C11 到 C20），我必须在其中输入值（比如 0 或 >=0），并且一旦我到达最后一个单元格（比如 C20），它具有特定列的总和公式（C11 到C20)，如果总计为 0，则下一列（例如 D）应该隐藏而不按任何键，如果总计 >=0，则 D 列应该保持原样。

请帮帮我。

这是隐藏列的代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$31" Then
If Target <= 0 Then
Range("D31").EntireColumn.Hidden = True
Else
Range("D31").EntireColumn.Hidden = False
End If
End If

If Target.Address = "$D$31" Then
If Target <= 0 Then
Range("E31").EntireColumn.Hidden = True
Else
Range("E31").EntireColumn.Hidden = False
End If
End If

If Target.Address = "$E$31" Then
If Target <= 0 Then
Range("F31").EntireColumn.Hidden = True
Else
Range("F31").EntireColumn.Hidden = False
End If
End If

End Sub
4

1 回答 1

1

这是我在谷歌上搜索了很长时间后找到的解决方案。我现在仅将其用于 1 列。

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

For Each rCell In Range("C11:C31")
If Range("C31").Value = "0" Then
    Range("D31").EntireColumn.Hidden = True
Else
If Range("C31").Value <> "0" Then
    Range("D31").EntireColumn.Hidden = False
End If
End If
Next rCell

End Sub
于 2013-09-18T12:59:40.853 回答