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 のモジュールに入ります (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のモジュールに入れていました

于 2013-02-07T09:56:18.890 に答える