Question

我有一个宏在onchange事件触发时效果很好。它只是检查单元格值并隐藏或取消隐藏同一活动工作表上其他位置的行。这是隐藏或取消隐藏行的宏：

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

如果我将单元格C56更改为＆＃34;否＆＃34;而调用宏，则效果非常好。

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

如果我从另一个宏调用宏，C56设置为＆＃34;否＆＃34;，它根本不起作用。

Sub CallAllMacros()
   Call ToggleTaskTable
End Sub

即使msgbox显示它表明它正在隐藏行，但它实际上并没有隐藏它们。

我完全被难过了！

Answer 1

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

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

1 个答案: