|
tomo さん、こんにちは
>はじめて質問させてもらいます。よろしくお願いします。
>見積書を作成しています。
>見積番号(TextBox1)が入力されるまでは、
>他の項目が入力できないようにしたいと思っています。
>(できればフォーカスも移らないように)
>そこで以下のようにコードを入力したのですが、
>
>Private Sub TextBox1_Exit
> If TextBox1.Text = "" Then
> MsgBox "見積番号が入力されていません。"
> TextBox1.SetFocus
> End If
>End Sub
テキストボックスはUserForm上ですかシート上ですか?
シート上ではExitイベントはないのでUserFormかな?
それだったら、
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
MsgBox "見積番号が入力されていません。"
Cancel = True
End If
End Sub
これでOKだとは思うのですが・・・・
でも、これだと、TextBox1にフォーカスが有る状態でフォームを閉じても
イベントが発生してメッセージボックスが表示されてしまいますけどね。
|
|