Question

您好我想根据在Sheet 1中的单元格中输入的数字隐藏工作表2中的单元格

我尝试过：

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

    'This is were im stuck? 
    If Target.Address = "Sheet1!$D$387" Then
        Rows("28:46").Hidden = True
        Rows("28:" & 28 + Val(Target.Value)).Hidden = False
        Application.ScreenUpdating = True
    End If

End Sub

在Sheet 1中访问D387值的宏是什么？

Answer 1

这是我自己的解决方案，在Larry的帮助下（对问题的第一个评论）

此代码将进入Sheet1的模块（由Larry建议）：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$387" Then
        Sheet2.Rows("27:46").Hidden = True
        Sheet2.Rows("27:" & 27 + Val(Target.Value)).Hidden = False
        Application.ScreenUpdating = True
End If

End Sub

我最初将它放入Sheet2的模块

如何根据另一张表中的数字取消隐藏一张单张格数？

1 个答案: