[[20150824080609]]　『選択したセル以外には、エラーのメッセージをだす』（ひろこ）　ページの最後に飛ぶ

『選択したセル以外には、エラーのメッセージをだす。』（ひろこ）

見よう見まねで下記の様につくってみました。
やりたいことは、A1：A2をコピーして、B1～B10セルのどこかのセルを選択し、選択したセルから2行にペーストしてその下のセルを選択すると言う事です。
思い通りにはなりましたが、それ以外のセルを選択実行した場合に、『B1～B10のセルは選択できません。』のようなメッセージを出すようにするにはどうすれば良いでしょうか？

Dim myRange

    myRange = ActiveCell.Address
    Range("A1:A2").Copy
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range(myRange).Select
    ActiveCell.Offset(2, 0).Select

御伝授お願いします。m(__)m

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

こんにちは

Sub test()

    If Intersect(Selection, Range("B1:B10")) Is Nothing Then
        MsgBox "B1～B10のセルは選択できません。"
        Exit Sub
    ElseIf Selection.Count > 1 Then
        MsgBox "複数セルは選択できません。"
        Exit Sub
    End If
    Range("A1:A2").Copy Selection
    Selection.Offset(2, 0).Select
End Sub

こんな事でしょうか？

（ウッシ） 2015/08/24(月) 08:43

おはようございます。

素晴らしい！問題解決しました。
ありがとうございます。
（ひろこ） 2015/08/24(月) 09:00

問題は解決したんですが、あらたに…

別のセルもコピーして同時に貼り付けをしなくてはならなくなりました。
下記の方法で解決は出来たのですが、短くする方法はないでしょうか？

Sub test()

    If Intersect(Selection, Range("B1:B10")) Is Nothing Then
        MsgBox "B1～B10のセルは選択できません。"
        Exit Sub
    ElseIf Selection.Count > 1 Then
        MsgBox "複数セルは選択できません。"
        Exit Sub
    End If
    Range("A1:A2").Copy Selection
    Selection.Offset(2, 0).Select

   Range("A4").Copy Selection
   Selection.Offset(1, 0).Select
End Sub
（ひろこ） 2015/08/27(木) 11:04

こんにちは

こうですか？

Sub test()

    If Intersect(Selection, Range("B1:B10")) Is Nothing Then
        MsgBox "B1～B10のセルは選択できません。"
        Exit Sub
    ElseIf Selection.Count > 1 Then
        MsgBox "複数セルは選択できません。"
        Exit Sub
    End If
    Range("A1:A2").Copy Selection
    Range("A4").Copy Selection.Offset(2, 0)
    Selection.Offset(3, 0).Select
End Sub

（ウッシ） 2015/08/27(木) 11:09

おはようございます。

ウッシさん、助かりました。
ありがとうございます。m(__)m

（ひろこ） 2015/08/27(木) 11:33

コメント返信：

[ 一覧(最新更新順) ]

[[20150824080609]] 『選択したセル以外には、エラーのメッセージをだす』（ひろこ） ページの最後に飛ぶ

[[20150824080609]]　『選択したセル以外には、エラーのメッセージをだす』（ひろこ）　ページの最後に飛ぶ