投稿日 | : 2002/09/11(Wed) 08:35 |
投稿者 | : MANA |
URL | : |
タイトル | : 再回答です。 |
> Dim flag as boolean
> flag = False
> For v = 1 To 4 '--------------------------------+
> For 日2 = 日 To 日 + 7 Step 1 '---+ |
> If Len(MyFile2) > 1 Then ' | |
> flag = True ' (1) ' +-ループB +--ループA
> (2) ' | |
> End if '---+ |
> Next '--------------------------------+
> Exit For '(3) ※不正解です
> Next
>
(3)でExit Forではなくて、(2)でIf文がtrue時にEnd If前にExit Forをするのですね。
(2)が(e)です。
(3)は(a)でtrue時に即、次のfor文に行くようにするものですね。
これでどうでしょうか?