Excel VBA質問箱 IV

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

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


40203 / 76732 ←次へ | 前へ→

【41630】ユーザーフォームのコントロールのイベント処理選択
質問  ハナ  - 06/8/17(木) 15:11 -

引用なし
パスワード
   いつも参考にさせていただいております。
今回、ユーザーフォーム上に入力必須のテキストボックスtxtTCDとそれ以外のテキストボックスを幾つか。それとCommandButton1を配置して 
  ・txtTCDには7桁の数字(取引先コード)以外の入力はエラー先に進めない。
  ・全てのテキストボックスクリア(入力内容消去)をCommandButton1_Clic
   に割り付け、随時実行可能とする
といったフォームを作成したところ

Private Sub txtTCD_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If (Len(txtTCD.Text) <> 7) Or (IsNumeric(txtTCD.Text) = False) Then
    Cancel = True
    Exit Sub
  End If
End Sub
一旦、txtTCDに違ったコードを入力してしまうと、その時点で
  ・CommandButton1が実行不能状態になります
  ・条件に合うコードを入力する以外抜けられない状態になる
といった、ある意味不具合が発生してしまいます
せめて、CommandButton1_Clicが効くようにするにはどのようにすればよいのでしょうか?
 選んだイベント処理 Exit と Cancel が悪かったのかと思い、After_update
にしたりしてもなかなか思うような動きが得られませんので(txtTCDをSetfosして次にうつらないようにしても、移行してしまったり・・・・)行き詰ってしまいました。
 どうか、アドバイスをお願いします。
0 hits

【41630】ユーザーフォームのコントロールのイベント処理選択 ハナ 06/8/17(木) 15:11 質問
【41632】Re:ユーザーフォームのコントロールのイ... neptune 06/8/17(木) 17:38 回答
【41633】Re:ユーザーフォームのコントロールのイベ... ichinose 06/8/17(木) 21:29 発言
【41644】Re:ユーザーフォームのコントロールのイベ... ハナ 06/8/18(金) 8:25 発言
【41646】ユーザーフォームのコントロールのイベント... ハナ 06/8/18(金) 9:20 質問
【41647】Re:ユーザーフォームのコントロールのイベ... ichinose 06/8/18(金) 9:56 発言
【41650】Re:ユーザーフォームのコントロールのイ... ハナ 06/8/18(金) 10:34 お礼
【41653】Re:ユーザーフォームのコントロールのイ... neptune 06/8/18(金) 11:28 発言
【41657】Re:ユーザーフォームのコントロールのイ... ハナ 06/8/18(金) 14:18 発言
【41668】Re:ユーザーフォームのコントロールのイ... neptune 06/8/18(金) 21:50 発言

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