- ベストアンサー
エクセルVBAでエラーが出る原因とは？
- エクセルVBAでデータの転記をする際、設定情報もコピーする方法について確認します。
- 修正したVBAコードにおいて、エラーが発生してしまいます。その原因について考えてみましょう。
- 設定情報をコピーするためのVBAコードを修正した際、エラーが発生する原因とは何でしょうか？
- tekkenman7
- お礼率70% (150/212)
- オフィス系ソフト
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 PasteSpecialはRangeに対して「形式を指定して貼り付け」を行うメソッドです。 なので、 （1）コピー元のRangeを「Copy」 （2）コピー先のRangeに「PasteSpecial」 と、2つの命令が最低でも必要になります。 ご提示のコードは、コピーする命令がなく、コピー元にもコピー先にも「PasteSpecial」を行っていて、なおかつ1行の命令に無理やりまとめてる的な...申し訳ないですが、文法がメチャメチャです（気を悪くしたらごめんなさい） 値だけでなく、書式等を全てコピー&貼り付けということでしたら Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").Copy _ Destination:=Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7") で良いかと思います。「PasteSpecial」にこだわる必要は、あまりないかなと。 外してたら、ごめんなさい。
その他の回答 (3)
- mu2011
- ベストアンサー率38% (1910/4994)
>しかし、エラーがでてしまいます。なぜなのでしょうか？ ⇒ご質問者は、「PasteSpecial」をｗｅｂで一度でも検索したのだろうか？ 文法エラー（赤印字）なのだからでPasteSpecialメソッドのリファレンスをみれば一目瞭然ですのでお試し下さい。
お礼
ありがとうございました。
- imogasi
- ベストアンサー率27% (4737/17069)
代入とコピーの違いが判ってないようだ。 代入はセルの値（Ｖａｌｕｅ） だけを写すことを問題にする。 これはコンピュターソフト発祥以来の原初的な処理で、ビジネスではほとんどこれで済む。昔はこれしかなかった。 だんだん発達して、セルＲａｎｇｅの属性が多様化している。 後者は、マクロの記録でどういうコードになるか判るのでは。 （１）基本は Sub Macro5() Range("A1:A3").Select Selection.Copy Sheets("Sheet2").Select Range("B2").Select ActiveSheet.Paste End Sub （２）外にＤｅｓｔｉｎａｔｉｏｎを使う方法 これは書き方や見るものには簡潔で判りやすい。 （３）PasteSpecialを使う方法 Paste:=xlPasteAll以外では（３）を使はないとならない場合があるので使い分ける必要がある場合はある。 ーー エラーが出る原因は、＝を使って代入でやるので無く、（２）、（３）では引数として情報を書くのだ。
お礼
ありがとうございました。
- xls88
- ベストアンサー率56% (669/1189)
PasteSpecialメソッドで代入はできません。 元をCopyして、貼り付け先でPasteSpecialです。 今回の例では普通にCopyして貼り付けで良いと思います。 Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").Copy _ Destination:=Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3")
お礼
ありがとうございました。
お礼
ありがとうございました。