Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8607 / 76735

←次へ　｜　前へ→


	【73698】Re:For　Nextについて教えてください

のり - 13/2/3(日) 11:34 -


	引用なし

	パスワード

佳さん有難う御座います。
解決しました。
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
>>>のようにしたいのですがうまくいきません
>>>どのようにしたら良いのでしょうか？
>>>わかりにくい書き方で済みませんが宜しくお願いします。

0 hits

▼

【73667】For　Nextについて教えてください のり 13/1/31(木) 23:34