Excel VBA質問箱 IV

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

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


26705 / 76732 ←次へ | 前へ→

【55357】Re:TextBoxが1つのユーザフォーム
発言  Yuki  - 08/4/30(水) 8:35 -

引用なし
パスワード
   ▼よちよち さん:

>何か1つ制御が移る先がないとだめなようです。
小さなTextBoxを作ります。
そしてその上に使用するTextBoxをかぶせます。
すると小さなTextBoxは見えなくなりますので
それを利用します。
TextBox1 使用する
TextBox2 使用しない。

Private Sub TextBox2_Enter()
  TextBox1.SetFocus
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  Debug.Print "Before"
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If TextBox1.Value = "aaa" Then
    CommandButton1.Enabled = True
    CommandButton1.SetFocus
  Else
    CommandButton1.Enabled = False
  End If
  Debug.Print "Exit"
End Sub

こんな風でどうでしょう。

0 hits

【55344】TextBoxが1つのユーザフォーム よちよち 08/4/29(火) 21:01 質問
【55345】Re:TextBoxが1つのユーザフォーム ponpon 08/4/29(火) 21:30 発言
【55348】Re:TextBoxが1つのユーザフォーム よちよち 08/4/29(火) 22:02 回答
【55350】Re:TextBoxが1つのユーザフォーム ponpon 08/4/29(火) 23:32 発言
【55355】Re:TextBoxが1つのユーザフォーム よちよち 08/4/30(水) 7:53 お礼
【55357】Re:TextBoxが1つのユーザフォーム Yuki 08/4/30(水) 8:35 発言
【55358】Re:TextBoxが1つのユーザフォーム ponpon 08/4/30(水) 13:07 発言
【55436】Re:TextBoxが1つのユーザフォーム よちよち 08/5/4(日) 10:25 お礼
【55354】Re:TextBoxが1つのユーザフォーム ichinose 08/4/30(水) 7:34 発言

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