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

2017/08/27(日) 12:40:17.57

!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

2017/08/27(日) 13:54:51.09

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

2017/08/27(日) 15:00:10.00

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

2017/08/27(日) 16:42:30.51

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

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

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

EXCEL2010を使用しております。

2017/08/27(日) 17:08:53.71

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

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

2017/08/27(日) 17:09:02.52

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

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

2017/08/27(日) 17:42:10.42

>>4
改行のアンダーバーの前にスペース入れ忘れてるとかそんなんは？

2017/08/27(日) 18:33:58.27

>5,6,7
ありがとうございます。
デバックというのを試してみましたが、同じような結果になります。

ファイルをアップロードしてみました。Dkeyは1111です。
http://www.dotup.org/uploda/www.dotup.org1351357.xlsx.html