Ｐａｇｅ 656 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Doがない（親記事が消えました） りん 03/2/1(土) 13:22 ─────────────────────────────────────── ■題名 ： Doがない（親記事が消えました） ■名前 ： りん <rin_doggie@hotmail.com> ■日付 ： 03/2/1(土) 13:22 -------------------------------------------------------------------------
| Taka さん、解決ずみですか？ のこのこ書いていたら消えていました。 >下記コードを試しに流そうとすると、それ以前にコンパイルエラーで最後のLoop（コメントで「←ココ」と書いてある部分）に対するDoがないといわれます。 >一応 Do While MyFile <> "" 〜 Loop になっている（その中にDo〜Loopが5つ入っているとは言え）と思うのですが、 ブロックだけ抜き出して、インデントを入れなおしてみました。 Sub test() > 8<-----8=-----8<-----8=-----8<-----ここまでは問題なしなので省略 Do While MyFile <> "" > 8<-----8=-----8<-----8=-----8<-----ここまでは問題なしなので省略 If ComboBox13.Value <> "選択" Then > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 Do While m <= mihakken_maxrow > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 Loop > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 If ComboBox15.Value <> "選択してください。" Then > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 End If > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 If ComboBox12.Value <> "選択" Then > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 End If > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 If ComboBox13.Value <> "選択" Then > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 End If > 8<-----8=-----8<-----8=-----8<-----ブロック内省略 Loop '←ココ End Sub で、 > If ComboBox13.Value <> "選択" Then パターンから考えると、この『If』に対する『End If』がないからだと思います。 Doに対して、Loopが一段右に寄っているのがわかりますか？ If文が閉じてないことになり、LoopがIfの内側、Doが外側にあるので、上にあるDoの対になるLoopが見つからないことになってます。 |