Excel VBA質問箱 IV

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

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


10177 / 13646 ツリー ←次へ | 前へ→

【23285】途中終了方法 しろうと 05/3/18(金) 11:58 質問[未読]
【23286】Re:途中終了方法 Jaka 05/3/18(金) 12:25 回答[未読]
【23293】Re:途中終了方法 しろうと 05/3/18(金) 13:21 お礼[未読]

【23285】途中終了方法
質問  しろうと  - 05/3/18(金) 11:58 -

引用なし
パスワード
   プログラムの途中終了方法をどなたか教えていただけないでしょうか?
例えば、下記のプログラムで、 test0を実行し、test1でMSGを表示した場合のみ、test2は実行せずに終了するためには、どの位置にどのようなコマンドを追加したらよいのでしょうか? 

  Sub test0()
   Call test1
   Call test2
  End Sub
  
  Sub test1()
   Dim N, ans As Integer
    For N = 1 To 10
     If Cells(N, 1) = "○" Then
      ans = msg("合格", 65552, "合否")
     Exit For
     End If
    Next N
  End Sub
  
  Sub test2()
   Range("A1") = "不合格"
  End Sub

【23286】Re:途中終了方法
回答  Jaka  - 05/3/18(金) 12:25 -

引用なし
パスワード
   こんにちは。

>  Sub test1()
>   Dim N, ans As Integer
>    For N = 1 To 10
>     If Cells(N, 1) = "○" Then
>      ans = msg("合格", 65552, "合否")
       End
>     End If
>    Next N
>  End Sub

【23293】Re:途中終了方法
お礼  しろうと  - 05/3/18(金) 13:21 -

引用なし
パスワード
   早速のご回答ありがとうございました!
大変助かりました!

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