1

您好,我想根据在工作表 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

访问表 1 中 D387 值的宏是什么?

4

1 回答 1

1

在拉里的帮助下,这是我自己的解决方案(对问题的第一条评论)

此代码将进入 Sheet1 的模块(由拉里建议):

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 的模块中

于 2013-02-07T09:56:18.890 回答