数値を入力、ボタンをクリックして行を挿入

質問

A1に「5」を入力し、ボタンをクリックすると、A4行より5行分挿入するといった流れが欲しいです。
検索しましたところ、以下のが似ています。
https://www.tipsfound.com/vba/08005
「行を挿入する」
「A1に「5」を入力し、ボタンをクリック」を追加するにはどうすれば良いでしょうか？
宜しくお願いします。

回答No.2

watabe007 · ベストアンサー

どうぞ～
Range("A5").Resize(Range("A1").Value).EntireRow.Insert

お礼

ありがとうございます！
おかげさまで動作出来ました。
すごく短いコードですね…

回答No.1

mdmp2

Sub Test()
A = Cells(1, 1)
B = A + 5
Rows(A & ":" & B).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

・・・のようなコードでいけます。
A1に数字以外の値が入力されているとエラーになりますのでそれを避けるにはなんらかのエラー処理が必要です。

補足

ありがとうございます。
説明が足りませんでした。
A1にある数値を入力したらその入力した数値分の行を挿入したいです。
5と入力したら5行挿入
10と入力したら10行挿入
といったものです。
宜しくお願いします。