|
モジュール1
Sub サンプル1()
Dim i As Integer
Dim a As Integer
a = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To a
If Cells(i, 1).Value = "みかん" Then
Cells(i, 2).Value = "おいしい"
Else
Exit For
End If
Next
モジュール2
Sub サンプル2()
Dim i As Integer
Dim a As Integer
a = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To a
If Cells(i, 1).Value = "いちご" Then
Cells(i, 3).Value = "こっちもおいしい"
End If
Next
End Sub
モジュール3
Sub サンプル3()
Call サンプル1
Call サンプル2
End Sub
上記のようにCallで呼び出していますが
モジュール1で条件が合わない時は処理を抜けているのに
次のCallに進んでしまうのはなぜでしょう?
Callサンプル1で条件が合わない時はプログラムをを一旦中止
したいのです。
どなたかお分かりになる方、よろしくお願いいたします。
|
|