こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

シートにマクロ記述があるとシートに貼付ができない

Windows7 Excel2007を使ってマクロ作成中の初心者です。
他の方がwinXP使用してるので、受け渡しのため、互換性のある Excel97-2007で保存・マクロ作成しています。

1)エクセルの新規ブックで、sheet1のセルA1をコピーし、sheet2のA1に貼り付けます。
当然のことながら、正常に貼り付けできます。
貼り付けが完了してもなお、「コピー先を選択しEnterキーを押すか、
貼り付けを選択します。」が表示され続けています。

2)ところがsheet1、sheet2にコードを書くと、(たとえば下のコード)
sheet1のセルA1を右クリックしコピーを選択すると「コピー先を選択しEnterキーを押すか、
貼り付けを選択します。」が表示されます。そしてsheet2に「貼り付け」をしようsheet2の
シート見出しを選んだ瞬間、「コピー先を選択しEnterキーを押すか、
貼り付けを選択します。」の表示が消えてしまい、「貼り付け」ができません。

3)他のシートに貼り付けができないので、シートにマクロがかけないので、困っています。どうしたらいいかお助けください。

Private Sub Worksheet_Activate()
ActiveWindow.DisplayHorizontalScrollBar = False '水平
End Sub

投稿日時 - 2012-02-13 08:46:10

QNo.7302192

すぐに回答ほしいです

質問者が選んだベストアンサー

こんばんは。

こんな風にすれば、回避できますね。


Private Sub Worksheet_Activate()

If Application.CutCopyMode Then Exit Sub '←この1行を加える

ActiveWindow.DisplayHorizontalScrollBar = False '水平

End Sub

投稿日時 - 2012-02-13 20:22:59

お礼

特殊な例だから回答がこないのだとあきらめていたのですが念のため今日会社に行く前に貴方様のご教示に実験したところ完璧にできました。ああありがとうございます。感涙ですううううう!

投稿日時 - 2012-02-14 07:50:53

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

This Workbookにかけないですか。

投稿日時 - 2012-02-13 09:12:56

補足

ご回答ありがとうございます。今やってみましたがやはり貼り付けできません。途方にくれています。

投稿日時 - 2012-02-13 11:33:40

あなたにオススメの質問