Excel VBA質問箱 IV

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

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


18647 / 76732 ←次へ | 前へ→

【63524】callで呼び出すとき
質問  タルジャ  - 09/11/15(日) 19:58 -

引用なし
パスワード
   モジュール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で条件が合わない時はプログラムをを一旦中止
したいのです。
どなたかお分かりになる方、よろしくお願いいたします。

0 hits

【63524】callで呼び出すとき タルジャ 09/11/15(日) 19:58 質問
【63526】Re:callで呼び出すとき よろずや 09/11/15(日) 21:12 回答
【63527】Re:callで呼び出すとき ichinose 09/11/15(日) 21:35 発言
【63528】Re:callで呼び出すとき タルジャ 09/11/15(日) 22:30 お礼
【63532】Re:callで呼び出すとき ichinose 09/11/16(月) 7:11 発言
【63541】Re:callで呼び出すとき タルジャ 09/11/16(月) 19:36 お礼
【63530】Re:callで呼び出すとき タルジャ 09/11/15(日) 22:45 お礼

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