コピ＆ペーストが出来なくなる。

質問

いつもお世話になります。
早速ですが、特定のシートの指定した範囲で
Enterキーを押すと右に移動する下記のマクロをあるサイトより見つけて来て、目的のシートのモジュールに貼りつけて試したところ、Enterキーを押しての移動は上手く行ったのですが、そのシート内でコピペをしようとするとすると出来ません。
そのモージュールを削除するとコピペが出来るようになります。
初歩的な勘違いでは無いかと思うのですが、マクロにあまり詳しくないので、原因がよくわかりません。
Excel2003とExcel2010で試してみましが、どちらも同じ結果となりました。
どなたか、お解りになる方がおられましたら、ご指導頂けないでしょうか。
よろしく、お願い致します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'A1:H20セル範囲内なら右移動
If Not Intersect(Target, Range("A1:H20")) Is Nothing Then
Application.MoveAfterReturnDirection = xlToRight
Else
'設定範囲以外は下移動します。
Application.MoveAfterReturnDirection = xlDown
End If
End Sub

回答No.1

nag0720 · ベストアンサー

原因は、MoveAfterReturnDirectionを変えるとコピーモードが解除されるからでしょうね。

コピーモードを解除したくなかったら、そのSubの一番最初に

If Application.CutCopyMode Then Exit Sub

を追加してください。
ただし、そのときはMoveAfterReturnDirectionは変わりませんのご注意を。

お礼

丁寧なご回答ありがとうございました。
やはり、アクティブセルの移動方向のコントロールかコピペのいずれかを諦めるしかないのでしょうか？
残念＞＜！

回答No.2

nag0720

＞やはり、アクティブセルの移動方向のコントロールかコピペのいずれかを諦めるしかないのでしょうか？

MoveAfterReturnDirectionが変わらないのはコピー後にESCキーでコピーモードを解除した場合で、影響があるのはそのセルのみです。
そのセルを抜ければ、その後の移動方向は正常に機能します。

コピー後にEnterキーを押してもコピーモードを解除できますが、その場合は問題ありません。

また、MoveAfterReturnDirectionが変わる必要があるのは、A1:H20の中から外へ、または外から中へコピーした場合ですから、中から中、外から外へコピーした場合はMoveAfterReturnDirectionが変わらなくても問題ありません。

実際に追加して試してみてください。

お礼

度々、ありがとうございます。
試してみて、仰る意味がわかりました。
ありがとうございました。