Ｐａｇｅ 530 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼強制終了の仕方 よう 03/1/9(木) 11:29 ┗Re:強制終了の仕方 JuJu 03/1/9(木) 11:52 ┗強制終了の仕方 よう 03/1/9(木) 17:47 ┗Re:強制終了の仕方 ポンタ 03/1/10(金) 1:36 ┗強制終了の仕方2 よう 03/1/10(金) 17:42 ┗Re:強制終了の仕方2 コロスケ 03/1/10(金) 17:54 ┗強制終了の仕方３ よう 03/1/11(土) 13:42 ┗ポンタさんのコードをよく見てね ぴぎゃ!!(反省中) 03/1/11(土) 14:50 ┗みなさん、やっとこさできました。 よう 03/1/11(土) 15:40 ─────────────────────────────────────── ■題名 ： 強制終了の仕方 ■名前 ： よう ■日付 ： 03/1/9(木) 11:29 -------------------------------------------------------------------------
| はじめまして、ようといいます。かなり悩んでいます。お願いします。 ある値が ＯＫ であれば、処理を実行する。 ある値が ＯＫ以外であれば、処理を強制終了させる。 できるだけ、詳しく教えてください。お願いします。 |
| ようさん、こんにちはぁ >ある値が ＯＫ であれば、処理を実行する。 >ある値が ＯＫ以外であれば、処理を強制終了させる。 どの値がどうＯＫなのかわからないので適当に^^; '変数Ａが１０以上なら処理を強制終了 If A >= 10 Then End こんな感じです >できるだけ、詳しく教えてください。お願いします。 分からないことがあったら、追加で質問してね。 ではではぁ |
| ▼JuJu さん： JuJuさん、こんにちは。もう１回質問させて下さい。 セル（Ｄ４００８）の値が文字列で”ＯＫ”であれば、処理を続行させる。 セル（Ｄ４００８）の値が文字列で”ＯＫ”以外の場合、処理を強制終了させる。 ＩＦ文を使って、こんな感じにしたいんですが・・・ よろしくお願いします。 |
| 横から失礼します。 以下のようにすればよいと思います。 Sub test() If Range("D4088").Value <> "ＯＫ" Then Exit Sub MsgBox ("処理を続行しました") End Sub |
| ▼ポンタ さん： こんちは！！ よくわからなかったので、もう少し詳しくおしえてください。 ELSEの場合の強制終了はどうすればいいの？ よろしくっす。 |
| ▼よう さん： こんにちは。Endを書けばプログラムは終了しますよ。 Exit SubでもOKです。ただし他のプログラムから呼び出して使うことも 考えるとEndで終わらせたほうが無難かもしれませんね。 If xxx then 'なにかコード Else End End if |
| ▼コロスケ さん： こんちは。やっぱりわかんないんですよー。 Sub q() Dim number number = ("b1") If number <> 1 Then MsgBox "ok" Else MsgBox "err" End If End Sub こんな感じのものを作ったんですが、１以外もＯＫってでてしまいます。 どうしてでしょうか？ |
| みなさん、こんにちは。 ▼よう さん： >Sub q() >Dim number >number = ("b1") > If number <> 1 Then > MsgBox "ok" > Else > MsgBox "err" > End If >End Sub > >こんな感じのものを作ったんですが、１以外もＯＫってでてしまいます。 >どうしてでしょうか？ もし、numberにセルB1の値を代入するのであれば、 >セル（Ｄ４００８）の値が文字列で”ＯＫ”以外の場合、処理を強制終了させる。 >If Range("D4088").Value <> "ＯＫ" Then Exit Sub のように number = Range("B1").Value となります。 それでは。 |
| みなさん、やっとできました。 ほんとにありがとうございます。 これからもよろしくおねがいします。 |