|
訂正です。
labelの位置に誤りがありました。
Sub loopTest()
For i = 1 To シートの数
If Range("A2") = "" Then
'次のシートに移る
GoTo Label
Else
'通常処理
End If
Label:
Next
End Sub
▼佳 さん:
>こんにちは。
>
>VBAには「次のループに移る」という命令はありません。
>仕方ないので代わりに goto 文を使います。
>一般に goto 文を使うとコードがスパゲティになって読みに
>くくなるので好ましくない、とされています。
>goto 文を使うのは真にやむを得ない場合に限ります。つまり
>・ほかに方法がない
>・goto文を使わないことでかえってコードの構造が難解になる
>
>
>Sub loopTest()
> For i = 1 To シートの数
> If Range("A2") = "" Then
> '次のシートに移る
> GoTo Label
> Else
> '通常処理
> End If
> Next
>Label:
>End Sub
>
>
>▼のり さん:
>>どなたか教えてください
>>エクセルのFor Nextで困っています。
>>For 1 To シートの数
>> If Range("A2")="" Then
>> 次のシートに移る
>> Else
>> 通常処理
>> End If
>>Next
>>のようにしたいのですがうまくいきません
>>どのようにしたら良いのでしょうか?
>>わかりにくい書き方で済みませんが宜しくお願いします。
|
|