エクセルVBAについて

質問

エクセルVBAに詳しい方教えて下さい。

　　A　　　B　　　C　　　　　左のようなエクセルの表で
1　品数　 4　　　　　　　　　B1セルに品数を入れると
2　番号　　　　　　　　　　　番号の1～4までの行が残り
3　1　　　　　　　　　　　　　 それ以降（5から）の行全てが
4　2　　　　　　　　　　　　　非表示になるようなコードを教えて　
5　3　　　　　　　　　　　　　頂けないでしょうか。
6　4　　　　　　　　　　　　　　
7　5　　　　　　　　　　　　　品数は随時書き換えて入力する事を
8　6　　　　　　　　　　　　　前提としています。
・　・
・　・　　　　　　　　　　　　　お願い致します。

回答No.4

hananoppo · ベストアンサー

ANo.3です。シートモジュールは対象シートのシートタブを右クリックして、「コードの表示」を選択すると開きます。そこにANo.3のコードをコピーしてください。一旦ブックを保存して閉じ、再度開いてマクロを有効にすれば、B1セルの値を変更する度に表示が変わります。

お礼

度々もありがとうございます。
完璧にできました。
本当にありがとうございます。

回答No.3

hananoppo

ANo.2です。ANo.2のコードだとエラーになる場合がありますので、次のように訂正します。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Or Not IsNumeric(Target.Value) Then Exit Sub
If Target.Value < 1 Or Target.Value > Rows.Count - 2 Then Exit Sub
Rows(Target.Value + 3 & ":" & Rows.Count).Hidden = True
Rows("1:" & Target.Value + 2).Hidden = False
End Sub

4行目と5行目を入れ替えただけなのですが、原因は不明です。

回答No.2

hananoppo

対象シートのシートモジュールに次のコードをコピーしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Or Not IsNumeric(Target.Value) Then Exit Sub
If Target.Value < 1 Or Target.Value > Rows.Count - 2 Then Exit Sub
Rows("1:" & Target.Value + 2).Hidden = False
Rows(Target.Value + 3 & ":" & Rows.Count).Hidden = True
End Sub

お礼

丁寧なご回答ありがとうございます。
シートモジュールがわからずできませんでした。
勉強しなおします。

回答No.1

mu2011

一例です。

Sub sample1()
If Range("B1") = "" Then Exit Sub
Application.ScreenUpdating = False
Rows().Hidden = False
For Each c In Range("A3:A1000")
If c = "" Then Exit For
If c = Range("B1") Then
Rows(c.Row + 1 & ":" & Cells(Rows.Count, 1).End(xlUp).Row).Hidden = True
Exit For
End If
Next
Application.ScreenUpdating = True
End Sub

お礼

できました。
本当にありがとうございました。
もしよろしければ、このコマンドの
コントロールボタンの作り方も教えて頂けないでしょうか。