在上一列中获得总数后隐藏下一列

我已经分配了Excel＆Macro的工作，而且我并不了解这些。 任务是自动隐藏下一列（不刷新或按F2），如果前一列总数为0，并且如果其总数> = 0，则取消隐藏，然后自动取消隐藏（不刷新或按F2）。

假设我有一组列（如C11到C20），我必须input数值（比如说0或> = 0），一旦到达最后一个单元格（比如C20） 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 

Answer 1

这是googlesearch这个漫长的解决scheme。 我现在只用于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