Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8497 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32716】ExitイベントでのCancel = Trueについて snoopy 05/12/21(水) 10:59 質問[未読]
【32719】Re:ExitイベントでのCancel = Trueについて Statis 05/12/21(水) 11:29 回答[未読]
【32757】Re:ExitイベントでのCancel = Trueについ... snoopy 05/12/21(水) 16:49 質問[未読]
【32782】Re:ExitイベントでのCancel = Trueについ... Statis 05/12/22(木) 9:08 回答[未読]
【32929】Re:ExitイベントでのCancel = Trueについ... snoopy 05/12/27(火) 11:02 お礼[未読]
【32716】ExitイベントでのCancel = Trueについて
質問  snoopy  - 05/12/21(水) 10:59 -
引用なし
パスワード
   いつもお世話になっています。

質問なのですが、ユーザーフォームに
得意先名を入力するTextBox1
数量をTextBox2,単価をTextBox3,金額をTextBox4,
数量から金額までが、３列ありTextBox10まであります。
コマンドボタンでシートへ転記しています。

数量を入力しなければ、単価へカーソルがいかないようにするために
IF TextBox1.Value = "" Then
Cancel = True
End If
をExitイベントに記入しています。
Exitイベントの為１列目のみ入力し２列目入力無しの場合
コマンドボタンへ移動できなくなっています。
なにか回避する方法は、あるでしょうか？？
よろしくお願いします。
【32719】Re:ExitイベントでのCancel = Trueについ...
回答  Statis  - 05/12/21(水) 11:29 -
引用なし
パスワード
   こんにちは

これで如何かな？

If TextBox1.Value = "" Then
　 If MsgBox("終了ですか?", vbYesNo) = vbYes Then Exit Sub
　 Cancel = True
End If
【32757】Re:ExitイベントでのCancel = Trueについ...
質問  snoopy  - 05/12/21(水) 16:49 -
引用なし
パスワード
   Statisさん、ご回答ありがとうございます。
返信が遅くなりまして申し訳ございません。

>If TextBox1.Value = "" Then
>　 If MsgBox("終了ですか?", vbYesNo) = vbYes Then Exit Sub
>　 Cancel = True
>End If

上記のコードでカーソルは動けるようになりました。
ありがとうございます。
もしできればなのですが、終了ですか？"Yes"の場合コマンドボタン1を押す
ということは可能なのでしょうか？？
また、終了ですか？"No"の場合カーソルをテキストボックス2へ残すというのは
可能なのでしょうか？？
わかりにくい説明で申し訳ございませんが、
よろしくお願いします。
【32782】Re:ExitイベントでのCancel = Trueについ...
回答  Statis  - 05/12/22(木) 9:08 -
引用なし
パスワード
   　こんにちは

>もしできればなのですが、終了ですか？"Yes"の場合コマンドボタン1を押す
>ということは可能なのでしょうか？？
>また、終了ですか？"No"の場合カーソルをテキストボックス2へ残すというのは
>可能なのでしょうか？？
TextBox2のイベントに記載しては如何ですか？

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value = "" Then
　 If MsgBox("終了ですか?", vbYesNo) = vbYes Then
　　 CommandButton1_Click
　　 Exit Sub
　 End If
End If
Cancel = True
End Sub
【32929】Re:ExitイベントでのCancel = Trueについ...
お礼  snoopy  - 05/12/27(火) 11:02 -
引用なし
パスワード
   Statisさん回答ありがとうございます。
返信が大変遅くなり申し訳ございませんでした。

Statisさんのコードを参考に作らせていただきます。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8497 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free