スキルアップ・問題解決なら、モーグにおまかせ！

お願いいたします。
 

Private Sub Workbook_Activate()

Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight

End Sub

確かに
掲示のコードでは、コピペが効かなくなりますね・・・
 
>Application.MoveAfterReturn = True
は必要なんですか？

補足
 
必要なんですか？
は、デフォルトで「True」になっているはず・・・・という意味

WinArrow様
 
ありがとうございます。
コピペできなくなるのです。原因が全く分からず投稿させていただきました。
 
>Application.MoveAfterReturn = True
に関しては、参考にしたサイトに載っていた通り使っていました。
ご指摘いただいた通り、なくても問題なく動作しました。

横から失礼。
>コピペできなくなるのです。原因が全く分からず投稿させていただきました。
仕様ということなんでしょうね。
こればっかりは、制作側がそう考えた、ということでしょうから仕方がない。
 
コピーした状態であるかどうかは、
Application.CutCopyMode で判断できます。
 
ですから、その状態の時は何もせずに抜けるなら

   If Application.CutCopyMode Then Exit Sub

   If Application.CutCopyMode Then 
　　　　　'なにかをする
   End If

デフォルトで
Application.MoveAfterReturn = True
状態のところに
Application.MoveAfterReturn = True
とすると、コピペができなくなる
 
これは、バグ？ではないでしょうか？
 
仕様とは思えないが、如何でしょう？

仕様かバグか決めるのはむずかしいかもしれませんね。
バグかもしれません。
ユーザーがどうこうできませんね、と言い換えさせていただきます。
 
# 既に入力されているのと同じ値を入力してもイベントプロシージャが動作しますよね。
# そんなこともありますから、値の同一性は余り根拠にならないかもしれません。
# まったく関係無い話かもしれませんが。
#
# 私のは2010ですが、他のバージョンはどうなんでしょう。
# バージョンによらず安定して同じ振る舞いなんでしょうか。

同じく2010なので新しい情報はないのですが、
コピーモードのときオプションをいじろうとすると、
コピーモードがキャンセルされますね。
回避策としては、コピーモードのときはオプションの変更をしないで、
貼り付けた後にオプションの変更をする感じになるでしょうか？
 
Option Explicit
 
Dim mflg As Boolean
 
Private Sub Workbook_Activate()
    If Application.CutCopyMode Then
        mflg = True
    Else
        Move2Right
    End If
End Sub
 
Private Sub Workbook_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If mflg Then
        Move2Right
        mflg = False
    End If
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode = False Then
        If mflg Then
            Move2Right
            mflg = False
        End If
    End If
End Sub
 
Private Sub Move2Right()
    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlToRight
End Sub
 
※コピーモードで、ブックを移ってから、コピーをキャンセルすると、
エンターキー押下で1回だけ下に行きます＾＾；
他にも考慮すべき点があるかも知れませんが、ぱっと思いつかないので＾＾；
この辺を参考にエクセルを制御してみてはいかがでしょうか？（アイデアの枯渇でギブアップ＞＜）
 
まぁ、右移動はTABキー押下、
下移動はEnterキー押下ですれば、
いちいちオプションをいじる必要もなくなるのですが＾＾；
 
 

引用:

コピーモードのときオプションをいじろうとすると、
コピーモードがキャンセルされますね。

simple様
WinArrow様
mattuwan44様
 
ありがとうございました。
仕様かバグか･･･？といったところなんですね～
どうしようもないですね。
 
simple様　こういった場合、どのように考えるのがいいのか教えてくださり
ありがとうございます。
コピーモードであれば抜ける、というifをつけるとうまく貼り付けできました。
 
mattuwan44様　サンプルコードありがとうございました。いろいろな場面を
考慮してくださってありがとうございます。
 
これにて解決といたします。
ありがとうございました。