|
ゴールデンローズさん、かみちゃんさん、おはようございます。
>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文を使いますけどねえ・・・。
|
|