Ｐａｇｅ 771 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストﾎﾞｯｸｽが未入力の場合 taka 03/2/19(水) 2:14 ┗Re:テキストﾎﾞｯｸｽが未入力の場合 biginner 03/2/19(水) 6:31 ┗Re:テキストﾎﾞｯｸｽが未入力の場合 taka 03/2/19(水) 23:42 ─────────────────────────────────────── ■題名 ： テキストﾎﾞｯｸｽが未入力の場合 ■名前 ： taka ■日付 ： 03/2/19(水) 2:14 -------------------------------------------------------------------------
| またまた御世話になります。 会員の情報をユーザーフォームで入力し、 シートに貼り付けるというものがある場合に、 テキストボックスに未入力がある時には、 「入力してください」というダイアログをだし、 “OK”をクリックすると入力済みの部分はそのままで、 未入力部分にカーソルを合わせて入力のフォームに戻る。 というような方法はありますか？ 長々となってしまいましたが、ご教授宜しくお願いします。 |
| ▼taka さん： おはようございます。 こんな感じではどうでしょうか？ Private Sub CommandButton1_Click() txtboxname = Array("会員番号", "氏名", "住所") For i = 0 To UBound(txtboxname) With Me.Controls(txtboxname(i)) If .Value = "" Then MsgBox .Name & "が入力されていません" .SetFocus Exit Sub End If End With Next i （シートへの貼り付け処理） Unload UserForm1 End Sub |
| biginnerさんありがとうございます。 ばっちり解決しました！ また分からないことがありましたら、ぜひ、 よろしくお願いしますm(__)m |