Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

[1 デフォルトの名無しさん 転載ダメ©2ch.net (ﾜｯﾁｮｲ 7e6d-ffY6) 2017/08/27(日) 12:40:17.57 ID:LjjEWylk0]

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part49©2ch.net
http://mevius.2ch.net/test/read.cgi/tech/1498410914/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ a511-P7rv) 2017/08/27(日) 13:54:51.09 ID:jYGHj9310]

いちおつしないとおちちゃうよ

[3 デフォルトの名無しさん (ﾜｯﾁｮｲ ed6f-2x4P) 2017/08/27(日) 15:00:10.00 ID:e4TdDFEN0]

http://soleil-lielos.net/image/o05.jpg

[4 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa91-xxBf) 2017/08/27(日) 16:42:30.51 ID:TgR8VSWoa]

初心者です。お時間がありましたら、アドバイス願います。
「自分のペースでゆったり学ぶ　EXCEL VBA」という本を使って
勉強しています。シートを任意の場所にコピーするという項目で、
エラーが出てしまいます。

Sub 納品書シート作成()
　ThisWorkbook.Worksheets("納品書").Copy _
After := ThisWorkbook.Worksheets(3)
End Sub

これを実行すると、「修正候補：式」と出て、「After :=」の部分が赤色になります。
何が問題なのでしょうか。よろしければ教えてください。

EXCEL2010を使用しております。

[5 デフォルトの名無しさん (ﾜｯﾁｮｲ 4a06-oKtA) 2017/08/27(日) 17:08:53.71 ID:WmqrsSrM0]

>>4
こっちも2010
そのプロシージャまんまコピーして（勿論「納品書」シートも作って）実行したけど正常終了
念のためワークシート数を2枚にして実行すればエラーになるけどそれはインデックスが有効な範囲にないというエラーで
そちらのエラーにはならない。

一応確認しておくけど、VBEditorの画面で上のデバッグ(D)からコンパイルをしてエラーは無い？

[6 デフォルトの名無しさん (ﾜｯﾁｮｲ fe6d-VVOB) 2017/08/27(日) 17:09:02.52 ID:LjjEWylk0]

>>4
時間がないやつは最初からアドバイスなんて出来ない。読むのめんどくさいだけだからそういう社交辞令は書かないほうが良い

で、2010だけどエラーが出なかった。式はおかしくないはず
Worksheets(3)　は、3つめのシートを表す。シートが3つ以下だとエラーが立つが、その場合は「インデックス~」のエラーになる
もし可能ならブックごとアップロードしてほしい