[[20030927201226]]　『行を隠すマクロを』（kobazin）　ページの最後に飛ぶ

『行を隠すマクロを』（kobazin）

マクロ,全くの初心者（手順を記録させるだけ）です。例えばA3のセルに数字を入れると，行番号の８から４７までの４０行の表示を８からA3のセルにいれた数字の分だけの表示にするマクロを作りたいのですが（48-A3:48をかくす，となると思うのですが）私の力ではわかりません。教えてください。

 どうぞ！

 Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False

    If Target.Address <> Range("A3").Address Then
        Application.EnableEvents = True
        Exit Sub
    End If

    If Target.Value < 0 Or Target.Value > 40 Then
        MsgBox "0～40で入力して下さい。"
        Range("A3").Value = ""
        Range("A3").Select
        Application.EnableEvents = True
        Exit Sub
    ElseIf Target.Value = 0 Then
        Rows("8:47").Hidden = False
        Application.EnableEvents = True
        Exit Sub
    End If

    Rows("8:47").Hidden = False
    Rows("8:" & Target.Value + 7).Hidden = True

 Application.EnableEvents = True
 End Sub

 (INA)

ありがとうございます。
　わからなくてすみません。「引数は省略しないでください」と出ます。
　「Private Sub Worksheet_Change」ここの名前だけ変えて入れました。
　
　同時に違うシートも同じ行数表示にしたいのですが，違うシート（シート名　単元１）行番号の　４から４３までの４０行です。（元のシートは NEMU というシートです）
　

 変更しないで、そのまま該当するシートモジュールにコピペして下さい。(INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20030927201226]] 『行を隠すマクロを』（kobazin） ページの最後に飛ぶ

[[20030927201226]]　『行を隠すマクロを』（kobazin）　ページの最後に飛ぶ