|
入力フォームについてお聞きしたいのですが。
○メッセージボックスでアラーム
入力のテキストボックスが3ケあります。
入力データをA,B,C列に転送させています。
入力時にテキストボックスの3ケ所に埋めることを忘れた場合、
アラームをメッセージボックスで出そうとしたのですか、エラーが
でます。コードの何処が問題でしょうか?
⇒If TextBox1.Value Or TextBox2.Value Or TextBox3.Value = "" Thenのコード
でエラーがでます。
○入力文字をすべて半角英数に指定
入力は「月/日」「氏名ID」「金額」です。すべて半角英数に指定したいのですが・・・
プロパティ-ウィンドウで指定できるのでしょうか。
Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(, 1).Value = TextBox2.Value
ActiveCell.Offset(, 2).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox3.SetFocus
TextBox2.SetFocus
TextBox1.SetFocus
If TextBox1.Value Or TextBox2.Value Or TextBox3.Value = "" Then
MsgBox "入力に空きがあります"
End If
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
|
|