エクセル マクロ コマンドボタンで行をコピーエラー

質問

教えてください。

sheet2にコマンドボタンを作成し、コードを下記の通りに入力しました。
ボタンを押すと「RangeクラスのSelectメソッドが失敗しました。」とエラー表示され
デバックを見るとRows("1:1").Selectが原因みたいですが、どのように手直ししたら
いいか教えて頂けないでしょうか。

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet2").Select
Rows("20:20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

回答No.2

keithin · ベストアンサー

方法１）
＞Rows("1:1").Selectが原因みたいです

その通りセレクトしているのが直接の原因なので，セレクトしないマクロにします。

private sub CommandButton1_Click()
　range("20:20").value = worksheets("Sheet1").range("1:1").value
end sub

方法２）

アクティブＸコントロールのコマンドボタンを使用しているので，他のシートがセレクトできないのが原因です。

手順：
ＶＢＥ画面で挿入メニューから標準モジュールを挿入する
標準モジュールにあなたのマクロそのまんま

sub macro1()
　Sheets("Sheet1").Select
　Rows("1:1").Select
　Selection.Copy
　Sheets("Sheet2").Select
　Rows("20:20").Select
　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　:=False, Transpose:=False
end sub

と作成する
シートにオートシェイプの図形とか「フォーム」コントロールのコマンドボタンを配置，標準モジュールのマクロを登録して利用する。

お礼

ご回答ありがとうございます。
方法１）を使わせていただきました。
長々したものを一行にまとめる事が出来て助かりました。
今後ともご指導のほどよろしくお願いします。

回答No.1

DOUGLAS_

回避策は幾通りも考えられますが、
Sheets("Sheet1").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet2").Select
の４行を
Sheets("Sheet1").Rows("1:1").Copy
にまとめると、イケルかと存じます。

　あるいは、
Rows("1:1").Select
を
Application.Goto Reference:="R1"
にしてもイケます。

＃なお、
＃Application.CutCopyMode = False
＃をどこかに入れましょう。

【原因】
＞デバックを見るとRows("1:1").Selectが原因みたい
　エラーが出ているときに、ウォッチウィンドウなりで、 Rows("1:1").Parent.Name の内容を確認してみると、"Sheet2" になっているかと存じます。

　一方、Sheet2 をアクティブにした状態で、同じ内容のコードを標準モジュールから起動すると、Rows("1:1").Parent.Name の値は、"Sheet1" になります。

　つまり、CommandButton1_Click の方では、Rows("1:1") は、CommandButton1 の貼られているシート＝Sheet2 の１行目になるということです。

　したがって、Sheet1 がアクティブなっている時点では、非アクティブな Sheet2 の１行目を Select することはできませんので、エラーになります。

http://officetanaka.net/excel/vba/tips/tips125.htm

お礼

ご回答ありがとうございます。
コマンドボタンの説明を詳しく教えて頂きありがとうございます。原因が分かり、コマンドボタンを理解できスッキリしました。
今後ともご指導のほどよろしくお願い致します。