Excel VBA質問箱 IV

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

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


7856 / 13645 ツリー ←次へ | 前へ→

【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 お礼[未読]

【36431】exit for
質問  ゴールデンローズ  - 06/3/30(木) 22:20 -

引用なし
パスワード
   こんばんはです。
繰り返し処理のとき、
exit for
を使えばfor から抜け出れると
思いますが、
たとえば条件で
for x = 1 to 15
上の処理
下の処理
next x
上の処理で正にならなければ
下の処理をジャンプして
次の繰り返しに移るというには
どういう風に書けばいいっすか?

【36432】Re:exit for
発言  かみちゃん  - 06/3/30(木) 22:26 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>上の処理で正にならなければ
>下の処理をジャンプして
>次の繰り返しに移る

よくわかりませんが、
For x = 1 to 15
 上の処理
 If 上の処理が正である Then
  下の処理
 End If
Next x
でしょうか。

【36434】Re:exit for
お礼  ゴールデンローズ  - 06/3/30(木) 23:40 -

引用なし
パスワード
   if で条件判断するのもいいですけど
一気に次のstepに移る書き方はないですか?

【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文を使いますけどねえ・・・。

【36444】Re:exit for
お礼  ゴールデンローズ  - 06/3/31(金) 11:42 -

引用なし
パスワード
   多分、僕の勘違いです!
答えてくださった方ありがとう!

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