質問: エクセルで指定した範囲を差し込み印刷したい
回答: for文の開始番号と終了番号をコマンドボタンを押したときに指定したい場合は以下の方法で指定しては如何ですか? Private Sub CommandButton1_Click() Dim 番号 As Integer kaisi = InputBox("開始番号を入力してください:") syuryo = InputBox("終了番号を入力してください:") For 番号 = kaishi To syuryo Sheets("給与明細送付状").Range("B1").Value = 番号 Sheets("給与明細送付状").PrintOut Next 番号 End Sub また、for文の開始番号と終了番号は1から20に固定しておいて、毎回「番号」の変数を変更するには以下の方法でも出来ます。 Private Sub CommandButton1_Click() Dim 番号 As Integer For 番号 = 1 To 20 Sheets("給与明細送付状").Range("B1").Value = 番号 Sheets("給与明細送付状").PrintOut 番号 = InputBox("変更番号を入力してください:") Next 番号 End Sub 解釈が間違ってたらごめんなさい。