Excel VBA質問箱 IV

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

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


45292 / 76732 ←次へ | 前へ→

【36438】Re:exit for
発言  ichinose  - 06/3/31(金) 6:26 -

引用なし
パスワード
   ゴールデンローズさん、かみちゃんさん、おはようございます。

>if で条件判断するのもいいですけど
>一気に次のstepに移る書き方はないですか?

>>たとえば条件で
>>for x = 1 to 15
>>上の処理
>>下の処理
>>next x
>>上の処理で正にならなければ
>>下の処理をジャンプして
>>次の繰り返しに移るというには

ifではない方法で対応したいという事情が上記の例題では
漠然としすぎていて見えてきません。
この当たり説明を具体例を交えて記述されると
代替案の投稿があるかもしれませんよ!!

私は、実際には使ったことがありませんが

'===========================================================
Sub main()
  Dim result As Long
  For i = 1 To 15
    result = 上の処理
    Debug.Print result;
    On Abs(result < 50) GoSub shitanoshori
    Debug.Print " ----> " & result
    Next
  Exit Sub
shitanoshori:
  result = 下の処理(result)
  Return
End Sub
'==========================================
Function 上の処理() As Long
  Randomize Timer()
  上の処理 = Int(Rnd() * 100) + 1
End Function
'==========================================
Function 下の処理(myvalue As Long) As Long
  下の処理 = myvalue + 100
End Function

これは、「上の処理」の結果が50未満の場合、下の処理を行う

という例です。
普通は、やっぱりIf文を使いますけどねえ・・・。

4 hits

【36431】exit for ゴールデンローズ 06/3/30(木) 22:20 質問
【36432】Re:exit for かみちゃん 06/3/30(木) 22:26 発言
【36434】Re:exit for ゴールデンローズ 06/3/30(木) 23:40 お礼
【36438】Re:exit for ichinose 06/3/31(金) 6:26 発言
【36444】Re:exit for ゴールデンローズ 06/3/31(金) 11:42 お礼

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