任意の１行を選択していないと実行できないマクロ

質問

教えてください。

任意の行番号をクリックしてまるまる１行選択してから、「切り取る」「別のシートに挿入、貼付ける」というマクロを実行しています。
1行選択していないとそのマクロを実行できないという風にするにはどのようなコードを書けばよいでしょうか？
選択する行番号はその都度違います。

欲を言えば、間違った選択でマクロを実行した時にエラー表示が出ると大変ありがたいのですが…

どうかよろしくお願いします。
使用するエクセルは97です。

回答No.3

Wendy02

こんにちは。

#1さんのマクロで解決すればよいのですが、私には、見えていない部分がありますね。

・「任意の行番号をクリックしてまるまる１行選択」してから、
　　　↓
・「切り取る」「別のシートに挿入、貼付ける」というマクロを実行しています。

理屈としては理解できるけれども、コードの論理が考えると、少しへんです。

>「任意の行番号をクリックしてまるまる１行選択」

なぜ、そんな条件が必要なのでしょうか？マクロでは、「特定のセルひとつ」でも、そのあとのコードで、行全体に切り替えられます。

(ActiveCell.EntireRow) ActiveCell は、必ずひとつです。その行全体なら、それで目的は得られるはずです。

「別のシートに、貼付ける」であって、「別のシートに『挿入』、貼付ける」の『挿入』の詳細が分かりません。これを元に考えていただいても良いです。

これは回答ではありません。単に、考えていただくSampleです。

Sub TestCopySample()
　If TypeName(Selection) <> "Range" Then
　　 MsgBox "そこは、セルではありません。", vbInformation
　　 Exit Sub
　End If
　With ActiveCell.EntireRow
　　 If Application.CountA(.Cells) = 0 Then
　　　　MsgBox "その一行にはデータはありません。", vbInformation
　　　　Exit Sub
　　 End If
　　　　　'この部分は、97用/　97は、1 Line のCutメソッドがうまくいかない経験がある。
　　 If Application.CountA(Worksheets("Sheet2").Range("A65536").End(xlUp)) = 0 Then
　　　 .Copy Worksheets("Sheet2").Range("A65536").End(xlUp)
　　 Else
　　　.Copy Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1)
　　 End If
　　 .ClearContents
　End With
End Sub

「1 Line のCutメソッドがうまくいかない。」でなければ、
　　ActiveCell.EntireRow.Cut 目的の場所のセルの左端
で良い。

お礼

こんにちは。大変勉強になりました。
特定のセルを選択していればマクロで行全体に切り替えられる、というのはとても魅力的です。ぜひ活用していきたいと思うのですが、まだまだ初心者なのでこれから頑張りたい所です。
別のシートに『挿入』して『貼り付け』というのは切り取った１行分の情報を、消さずに全て残していきたいからです。（『挿入』ではなく空白行に貼り付けていく、でもOKなのですが）こんな説明でもお分かりになるでしょうか…。
指示していただいたコードだと同じ場所に上書きされてしまいますよね。
上手いコードの作り方を研究していきたいと思います。どうもありがとうございました！