[XL] InputBoxへ「セル範囲」に「コピーと貼り付け」を行う方法

詳細

InputBox へセル範囲の入力を行うときには、VBA の InputBox 関数ではなく Application オブジェクトの InputBox メソッドを使用します。

サンプル 1

次のサンプル モジュールでは、Application オブジェクトの InputBox メソッド を使用してセルの「コピー元」と「貼り付け先」を入力後、データのコピーを行っています。

  Sub MyCopyPaste1()
      Dim CopyArea As Range
      Dim PasteArea As Range
      Set CopyArea = Application.InputBox(prompt:= _
          "コピー元を指定して下さい", Title:="コピー元", Type:=8)
      Set PasteArea = Application.InputBox(prompt:= _
          "貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8)
      CopyArea.Copy PasteArea
  End Sub

サンプル 2

「サンプル 1 」では、InputBox が表示された状態で <キャンセル> ボタンがクリックされた時の処理を記述していないため、<キャンセル> ボタンをクリックすると「マクロエラー」が発生します。次のサンプル モジュールでは、On Error Goto ステートメントを使用して <キャンセル> ボタンがクリックされた場合はマクロの処理を終了します。

  Sub MyCopyPaste2()
      Dim CopyArea As Range
      Dim PasteArea As Range
      On Error GoTo ErrorHandler
      Set CopyArea = Application.InputBox(prompt:= _
          "コピー元を指定して下さい", Title:="コピー元", Type:=8)
      Set PasteArea = Application.InputBox(prompt:= _
          "貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8)
      CopyArea.Copy PasteArea
      Exit Sub
  ErrorHandler:
      MsgBox "処理が取り消されました"
  End Sub

注意

「サンプル 2 」の MyCopyPaste2 を実行したときに「実行時エラー」が発生する場合は、[ツール] - [オプション] コマンドの [モジュール設定] パネルから[エラー発生時にブレーク] チェックボックスをオフ (×が付いていない状態)にしてください。