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)からコンパイルをしてエラーは無い？