エクセル VBA OptionButtonからTextBox

質問

すいません！
OptionButtonなら
下記の記述でエラー表示を
簡単にできるのですが
これがOptionButtonではなく
TextBoxならどのように変化したら
良いのでしょうか？
すいません、教えて下さい！

Private Sub 記録_Click()
Dim i As Integer
Dim Cnt As Integer
Cnt = 0
For i = 1 To 6 Step 1
If Me.Controls("OptionButton" & i).Value Then
Cnt = i
Exit For
End If
Next i
If Cnt = 0 Then
MsgBox "選択されていません"
Exit Sub
End If
If Me.Controls("Combobox" & Cnt).Value = "" Then
MsgBox Me.Controls("OptionButton" & Cnt).Caption & " の内容が選択されていません"
Exit Sub
End If

With 記入フォーム
.TextBox5.Value = Me.Controls("OptionButton" & Cnt).Caption
.TextBox6.Value = Me.Controls("Combobox" & Cnt).Value
End With
Unload Me
End Sub

回答No.4

n-jun · ベストアンサー

ANo.3です。

オブジェクト名を変更していなければ、

例えば
Dim Cnt As Integer
For Cnt = 1 To 6

If Me.Controls("TextBox" & Cnt).Text = "" Then
MsgBox Me.Controls("TextBox" & Cnt).Name
End If

Next
こんな感じになりますが。

補足

Dim v
For Each v In Me.Controls
If TypeName(v) = "TextBox" Then
If v.Text = "" Then
MsgBox v.Name & "は未入力です"
End If
End If
Next
上記ではなく
Cntいれないと
やはり、表示は無理なのでしょうか？
この違いは？
すいません
色々質問してばっかりで！

回答No.5

n-jun

ANo.3はオブジェクト名が変更された事により、
Me.Controls("TextBox" & Cnt)等で
指定できない場合に、
ＵＦ上の全てのコントロールを順に見ていく中で、
If TypeName(v) = "TextBox" Then
に限定し
If v.Text = "" Then
未入力かどうかを判断してます。
よって呼び出される順番が不明なのでCntのような変数を用いてません。

オブジェクト名を変更していないのであれば、コンボボックスで使用していた方法を流用できます。

の違いでしょうか。

お礼

ありがとうございます！
解説までしてもらって
すいませんでした！
理解出来ました！

回答No.3

n-jun

ANo.2です。

もしオブジェクト名が変更されているのなら、

Dim v
For Each v In Me.Controls
If TypeName(v) = "TextBox" Then

If v.Text = "" Then
MsgBox v.Name & "は未入力です"
End If

End If
Next
こうゆうことかも。

お礼

ありがとうございます！
もしオブジェクト名変更していなかったら
ひとつづ
If v.TextBox1 = "" Then
MsgBox "TextBox１は未入力です"
ですと記述しないといないんですよね！
ありがとうございました
解決できました！（＾＾）

回答No.2

n-jun

ANo.1です。

オブジェクト名であれば
MsgBox Me.Controls("TextBox" & Cnt).Name
このことでしょうか？
もしかして違うかな？

補足

ありがとうございます！
その場合は
全体の記述はどのように
変えれば良いのですか？
ただ一部を変化するだけでいいのでしょうか？

回答No.1

n-jun

TextBoxにして何をしたいのか（どう判定させたいのか）が今一つピンとこないのですが。

補足

すいません！
つまりOptionButtonならCaption で
「○○のの内容が選択されていません」
というような表示ができるのですが
TextBoxならできませんよね（＾＾!
そこで、直接"○○の内容が選択されていません"と
記入する方法にしたいのですが
どのように
記述を変化したら
良いのでしょうか？
すいません、教えて下さい。