Excel VBA質問箱 IV

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

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


8605 / 76732 ←次へ | 前へ→

【73697】Re:For Nextについて教えてください
発言    - 13/2/3(日) 8:20 -

引用なし
パスワード
   訂正です。
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
>>のようにしたいのですがうまくいきません
>>どのようにしたら良いのでしょうか?
>>わかりにくい書き方で済みませんが宜しくお願いします。

331 hits

【73667】For Nextについて教えてください のり 13/1/31(木) 23:34 質問
【73668】Re:For Nextについて教えてください kanabun 13/2/1(金) 0:44 発言
【73669】Re:For Nextについて教えてください kanabun 13/2/1(金) 0:46 発言
【73670】Re:For Nextについて教えてください のり 13/2/1(金) 7:56 質問
【73671】Re:For Nextについて教えてください kanabun 13/2/1(金) 8:21 発言
【73691】Re:For Nextについて教えてください のり 13/2/2(土) 18:43 発言
【73694】Re:For Nextについて教えてください kanabun 13/2/3(日) 1:44 発言
【73696】Re:For Nextについて教えてください 13/2/3(日) 8:17 回答
【73697】Re:For Nextについて教えてください 13/2/3(日) 8:20 発言
【73698】Re:For Nextについて教えてください のり 13/2/3(日) 11:34 お礼
【73699】Re:For Nextについて教えてください kanabun 13/2/3(日) 17:09 発言
【73700】Re:For Nextについて教えてください ピクルス 13/2/4(月) 8:28 回答
【73701】Re:For Nextについて教えてください kanabun 13/2/5(火) 10:01 発言
【73703】Re:For Nextについて教えてください マナ 13/2/5(火) 19:56 発言
【73711】Re:For Nextについて教えてください 13/2/6(水) 6:49 発言
【73710】Re:For Nextについて教えてください 13/2/6(水) 6:21 発言
【73729】Re:For Nextについて教えてください kanabun 13/2/6(水) 23:23 発言

8605 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free