隐藏行excel vba在未触发时不起作用

我有一个在onchange事件中触发时可以很好地工作的宏。它只是检查单元格值，并隐藏或取消隐藏同一活动工作表中其他地方的行。下面是隐藏或取消隐藏行的宏：如果我调用宏作为改变细胞C56为“否”，它完美的结果隐藏行excel vba在未触发时不起作用

Sub ToggleTaskTable() 

MsgBox "Toggling Tasks" 

     If Cells(56, 3).Value = "No" Then 
      Cells(57, 1).EntireRow.Hidden = 
      MsgBox "Hding Rows 106, 148 and 190" 

      ActiveSheet.Rows("106").Hidden = True 
      ActiveSheet.Rows("148").Hidden = True 
      ActiveSheet.Rows("190").Hidden = True 

' try it another way 

      Rows("106").Hidden = True 
      Rows("148").Hidden = True 
      Rows("190").Hidden = True 

     Else 
      Cells(57, 1).EntireRow.Hidden = False 

      ' MsgBox "Showing task Rows 106, 148 and 190" 

      Rows("106").Hidden = False 
      Rows("148").Hidden = False 
      Rows("190").Hidden = False 
     End If 
End Sub

。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$C$56" Then 
     Call ToggleTaskTable 
    End If 
End Sub

如果我调用宏从另一个宏，与C56设置为“否”，它不会在所有的工作。

Sub CallAllMacros() 
    Call ToggleTaskTable 
End Sub

尽管msgbox显示表明它隐藏了行，但实际上并没有隐藏它们。

我完全难住！

来源

2014-09-23 Colin Houghton

我认为您需要完全限定您的对象并重新编写代码。 [你可以从这里开始如何做到这一点]（http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros）。 – L42 2014-09-23 23:23:31

Sub ToggleTaskTable() 
    With ActiveSheet 
     .Range("A57,A106,A148,A190").EntireRow.Hidden = (.Cells(56, 3).Value = "No") 
    End With 
End Sub

来源

2014-09-24 00:06:12

谢谢。这比我的新代码更有说服力，但没有解决问题。我的代码显然工作得很好，我有一些后续的代码重新取消了行。咄！无论如何非常感谢:) – 2014-09-24 15:43:35

隐藏行excel vba在未触发时不起作用

回答

相关问题