マクロ実行の結果が違ってしまいます。

質問

エクセルのマクロについて対処方法を教えてください。Application.OnKey "{RETURN}", "EnterKeyPaste"
あるマクロ記述の中に上記のような行があります。Enterキーが二つあるキーボードを使用しているのですが、一つのEnterキーともう一つ別のEnterキーを押した場合でマクロ実行の結果が違ってしまいます。もう一つ別のEnterキーの名前があるのであれば、その名前を教えてください。

回答No.1

avanzato · ベストアンサー

こんにちは。
今記述のあるRETURNは大きなキーかと思います。
テンキー付近にある小さいのはENTERです。
Application.OnKey "{RETURN}", "EnterKeyPaste"
Application.OnKey "{ENTER}", "EnterKeyPaste"
とすれば同じになります。

お礼

ありがとうございました。うまくできました。

補足

お忙しいところ丁寧なご回答をありがとうございます。勝手ながら重ねてお願いいたしたいのですが、実際のマクロは次のとおりです。ご回答の記述をどのように組み込めばよいかもぜひ教えてください。よろしくお願いします。
Sub Auto_Open()
Application.OnKey "{RETURN}", "EnterKeyPaste"

End Sub

Sub EnterKeyPaste()
If Application.CutCopyMode <> 0 Then
MsgBox "CTRL+Vを使用してください"
End If
ActiveCell.Offset(0, 0).Activate
End Sub

回答No.4

KenKen_SP

http://oshiete1.goo.ne.jp/qa5542641.html

でポイントになりそうなとこは（今回質問している点を含め）
カバーするつもりで書いたのですが。

ThisWorkbook モジュールがわからなかった？

回答No.3

avanzato

#1です。
Sub Auto_Open()
　　Application.OnKey "{RETURN}", "EnterKeyPaste"
　　Application.OnKey "{ENTER}", "EnterKeyPaste"　'←追加
End Sub
でいいです。
他は変わりません。

回答No.2

f272

Enterキーの名前であれば
{ENTER}
ですね。

お礼

ありがとうございました。うまくできました。

補足

お忙しいところ丁寧なご回答をありがとうございます。勝手ながら重ねてお願いいたしたいのですが、実際のマクロは次のとおりです。ご回答の記述をどのように組み込めばよいかもぜひ教えてください。よろしくお願いします。
Sub Auto_Open()
Application.OnKey "{RETURN}", "EnterKeyPaste"

End Sub

Sub EnterKeyPaste()
If Application.CutCopyMode <> 0 Then
MsgBox "CTRL+Vを使用してください"
End If
ActiveCell.Offset(0, 0).Activate
End Sub