| |
佳 さん有難う御座います。
解決しました。
Gotoを使えばよいのではと思ってもいましたが
使わない方が良いとの記憶があり使いませんでした。
どうしても使わなければ前に進めない場合が
ある場合に使うことにします。
kanabunさんも何回も教えて下さり有難う御座いました。
▼佳 さん：
>訂正です。
>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
>>>のようにしたいのですがうまくいきません
>>>どのようにしたら良いのでしょうか？
>>>わかりにくい書き方で済みませんが宜しくお願いします。
|
|
のり
- 13/2/3(日) 11:34 -
