For～Nextのマクロにインプットボックスを追加する方法

質問

お世話になります。
エクセルで、別の人が作ったマクロがあります。
----------------------------------------
Dim 行
For 行 = 1 To 100
　＜1行目から抜き出して別シートにコピーして
　印刷する構文が記入されている＞
Next
----------------------------------------

この「1 To 100」の部分にインプットボックスを入れて、任意の行数を指定したいのです。

どのように書き換えたら良いのでしょうか？

マクロはさっぱりわからなく困っています。
どなたか教えてください。

回答No.1

venzou · ベストアンサー

単純に開始行と、終了行を入力するならこんな感じで可能です。

Sub test()
　Dim 開始行
　Dim 終了行
　Dim 行
　開始行 = InputBox("開始行を入力してください。")
　終了行 = InputBox("終了行を入力してください。")
　If IsNumeric(開始行) And IsNumeric(終了行) Then
　　For 行 = 開始行 To 終了行
　　'　＜1行目から抜き出して別シートにコピーして
　　'　印刷する構文が記入されている＞
　　Next
　End If
End Sub

少し応用編として、選択されている行を処理するならこんな感じ。
（行番号を入力するより楽かも）

Sub test2()
　Dim 開始行
　Dim 終了行
　Dim 行

　Dim i As Integer
　Dim r As Range

　For i = 1 To Selection.Areas.Count
　　Set r = Selection.Areas(i)

　　開始行 = r.Row
　　終了行 = r.Rows(r.Rows.Count).Row
　　For 行 = 開始行 To 終了行
　　　'　＜1行目から抜き出して別シートにコピーして
　　　'　印刷する構文が記入されている＞
　　Next
　Next
End Sub

お礼

早速のご回答、ありがとうございます！！！
早速やってみます♪