エクセル

質問

ユ－ザ－ホーム上で
1. textbox1 textbox2 textbox3
2. textbox4 textbox5 textbox6

登録ボタン

登録1.には必ずtextbox1から3まで入力されないとメッセ－ジがでて
　　exit sub にすることは出来ました

次に2．に数値が入った場合に登録させたいのですが例えばtext4から6のどれか一つでも入力できていなければメッセージがでexit sub
なり完了すれば1.と2.のデータがシ－トに入るようにしたいのです

わたしの今の状況は1.の完了でシ－トに入るまでは出来ております

ご教授の程お願いします

回答No.2

SI299792 · ベストアンサー

多分、
TextBox1～3 は文字が入っていないとエラー
TextBox4～6 は数字が入っていないとエラー
だと思います。

CommandButton1を押して実行。Label1にエラーメッセージ表示としました。
Option Explicit
'
Private Sub CommandButton1_Click()
　　Dim Index As Integer
　　Dim TextBox As String
'
　　For Index = 1 To 3
　　　　TextBox = Controls("TextBox" & Index)
'
　　　　If TextBox = "" Then
　　　　　　Label1 = "文字を入力して下さい"
　　　　　　Controls("TextBox" & Index).SetFocus
　　　　　　Exit Sub
　　　　End If
　　Next Index
'
　　For Index = 4 To 6
　　　　TextBox = Controls("TextBox" & Index)
'
　　　　If Not IsNumeric(TextBox) Then
　　　　　　Label1 = "数字を入力して下さい"
　　　　　　Controls("TextBox" & Index).SetFocus
　　　　　　Exit Sub
　　　　End If
　　Next Index
　　Label1 = ""
End Sub

お礼

ありがとうございました
確認してみました

回答No.1

imogasi

>登録1 や「次に2．」は、２つのコマンドボタンのそれぞれのCaptionやTitleの
ことですか。文中で言っている「登録ボタン」の各々？
読者にわかるように、はっきり説明すること。
（１）コマンドボタン１のクリックイベントの処理ーー＞完成
（２）コマンドボタン２のクリックイベントの処理ーー＞未完成ーー＞本件質問
（２）は「textBox4から6のどれか一つでも入力できていなければメッセージがでて（出して）exit sub
は３つのTexttBox４，TexttBox５、TexttBox６をそれぞれチェックして
３つすべて、有効な数字であるか、チェックしたら仕舞でしょう。
何を聞きたいのか？３つのボックスのうち、１つでも条件に合わないものが見つかったら警告＋Eｘit Sub
で良いのでは？
・未入力かどうか
・数（字）かどうか
などの判定か？これがそんなに難しいとも思えない。
もしそうなら、それを個別に取り上げて、文章にして、質問すべきだ。
シートの上でデータチェックしても出来る。わざわざユーザーフォームやコントロールのイベントをわざわざ、使う場合か？

補足

説明不足で申し訳ありません
確かにテキストボックス4から6までを一つづつ考えていけばいいかもですね
よく考えてみます