[[20100704153537]]　『inputboxで行を選択...削除...』（マサ）　ページの最後に飛ぶ

『inputboxで行を選択...削除...』（マサ）

inputboxで行を選択
inputboxを表示し任意の行aを選択します。
次に任意の行ｂを選択し行を挿入し挿入した行に
行ａのデータを貼り付けた後行ａを削除したい。
何もマクロを使う必要も無く行を選択して移動するだけといわれれば
それまでですがinputboxでの行の選択を教えてください

 標準モジュールに

 Sub test()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim retcode As Long
    On Error Resume Next
    retcode = 1
    Set rng1 = Application.InputBox("挿入元の行を選択してください", "挿入元の行選択", , , , , , 8)
    If Err.Number = 0 Then
       Set rng1 = Union(rng1.EntireRow, rng1.EntireRow)
       If rng1.Areas.Count = 1 Then
          Set rng2 = Application.InputBox(rng1.Address & "の移動先の行を選択してください", "移動先の行選択", , , , , , 8)
          If Err.Number = 0 Then
             Set rng2 = Union(rng2.EntireRow, rng2.EntireRow)
             If rng2.Areas.Count = 1 Then
                rng1.EntireRow.Cut
                rng2.EntireRow.Insert xlDown
                retcode = 0
             End If
          End If
       End If
    End If
    If retcode <> 0 Then MsgBox "行の移動失敗"
    Set rng1 = Nothing
    Set rng2 = Nothing
    On Error GoTo 0
 End Sub
 単一セルを選択しても行に直しています
 ichinose

早々の回答ありがとうございました。
動作確認しました。
内容を自分なりに解析してみます。＜マサ＞

コメント返信：

[ 一覧(最新更新順) ]

[[20100704153537]] 『inputboxで行を選択...削除...』（マサ） ページの最後に飛ぶ

[[20100704153537]]　『inputboxで行を選択...削除...』（マサ）　ページの最後に飛ぶ