行追加 表内 セル

質問

名簿を作成しています。
(1)表内の選択したセルの下に行を挿入する。
(2)見出しの行と表外のセルを選択した場合は(3)MSGBOXを表示する。
という3点なのですが、(2)の方法がわかりません。
又は(1)で表内のセルを選択したときのみ、実行。その他はMSGBOX
とい形でもいいのですが、よろしくお願いします。

回答No.1

hige_082

＞(1)表内の選択したセルの下に行を挿入する。
Sub test_1()
Dim i As Integer
i = ActiveCell.Offset(1, 0).Row
Rows(i).Insert Shift:=xlDown
End Sub

＞(2)見出しの行と表外のセルを選択した場合は(3)MSGBOXを表示する。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Range
For Each a In Range("a2:d10")　　'A2～D10の表と仮定します
If Target.Address <> a.Address Then MsgBox "メッセージ"
Next
End Sub

＞又は(1)で表内のセルを選択したときのみ・・・・・・
上の２つを組み合わせれば出来るので省略

質問の仕方が良くありませんね
だから回答がつかないのですよ
使用ソフトは何ですか
バージョンは
どんな構成の表ですか
何のための処理なのか
これぐらいは最低書いておかないと
回答がつきません

Excel2000　VBAのマクロです
詳細が分からないので、解説は省略します

補足

ありがとうございます。
Excel2007　
Microsoft Visual Basicのマクロです。
回答も、質問の仕方についても、大変役に立ちました。
教えてグーを利用し始めてから、間もないのですが、
今後、参考にさせていただきたいと思います。
本当にありがとうございました。