excel2000のＶＢＡでループ内でループさせる方法

質問

excel2000でＶＢＡを組んでいるのですが下記のような構文でループさせている中でループをさせたいのですがエラーメッセージ "Nextに対するForがありません"と出てしまいます。構文を以下に示しますので間違っている点をご指摘いただけたらと思います。
Dim h As Integer
Dim I As Integer
For h = 1 To 2
If h = 1 Then
F_Name = "回送依頼(通常と翌月).xls"
ElseIf h = 2 Then
F_Name = "回送依頼(当日).xls"
End If
Windows(F_Name).Activate
ActiveSheet.Unprotect
For I = 1 To 2 'ループ内ループ
If I = 1 Then
S_Name = "通常"
ElseIf I = 2 Then
S_Name = "通常2"
End If
Sheets(S_Name).Activate
Range("c7:i16").Select
Selection.Copy
Windows("請求書.xls").Activate
Sheets("3").Select
Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(F_Name).Activate
ActiveSheet.Unprotect
Sheets(S_Name).Activate
Range("b7:b16").Select
Selection.Copy
Windows("請求書.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False '値貼付
Next I
ActiveWorkbook.Save
ActiveWorkbook.Close
Next h

回答No.4

happypoint · ベストアンサー

まずご質問の件、 "Nextに対するForがありません"ですが、これはループの構造がおかしいときに出ます。

For～Nextの入れ子をするときに、

For x
For y
Next y
Next x

のような構造なら問題ないですが、

For x
For y
Next x
Next y

のように交差したループになっていませんか？
提示されたコードは抜粋のようですが、これはコード全体を見ないと判断できません。
（提示されたコードに限って言えば、このNextに対するForがありませんというエラーを発生さえる要素はないようです。）

あと、おせっかいかもしれませんが、このエラーを克服しても、この書き方では、お望みの動作はできないと考えられます。

具体的には、貼り付けの前のコピーがなかったり、
請求書をActivate・Closeさせるタイミングなど・・・
もう一度どんな順番で実行されるか、目で追ってみると良いと思います。

お礼

わかりやすい説明ありがとうございます。
最初単純なループとＩＦの組合せで作成していたのですが
あまりに構文が長くなってしまった為急遽記述し直したので全体が良く見えなくなっている可能性がありましたので
もう一度見直してみます。

回答No.3

happypoint

#1の回答者です。補足をお願いします。

１）このマクロは、どのブックに書かれているのですか？

２）このマクロに書かれているブック
・回送依頼(通常と翌月).xls
・回送依頼(当日).xls
・請求書.xls　は、
最初から開いた状態でこのマクロを実行するのですか？

補足

すみません。説明不足でした。補足します。
１）マクロの書かれているブックは請求書.xlsです。
２）マクロに書かれているブックはこちらに記述した
前のステップでopenさせています。
※ループ内のループをprivate subで外だししても
同様にエラーが出てしまいます。実際には外のループを
４回、内のループを４回廻したいのですが・・・

回答No.2

you111111

内側のループを適当なSubでも作って外だしにしてみたらどうでしょう？

回答No.1

happypoint

ActiveWorkbook.Close

の行を、ループの外に出してみてはいかがでしょう。