

宜しくお願い致します。
エクセルのマクロのフォーム上にtextbox1~textbox10を作成してあります。
これら全てがきちんと入力されているかどうかを調べる命令を書きたいと思っております。
どのようにすればよろしいのでしょうか?
【エラー表示される私の考え】
For i = 1 To 10
If TextBox("& i & ").Value = "" Then
MsgBox ("データを再度入力してください。")
Exit Sub
End If
Next i
if文のところでエラーが出ます。textboxの表示方法がまずいと思うのですが、どうすればよいのかわかりません。ご指導の程宜しくお願い致します。
なお、For~Next文を使わない方法でも構いません。

No.2ベストアンサー
- 回答日時:
こんにちは。
Excelの場合コントロール配列は使えません。
TextBoxがTextBox1~TextBox10という名前であれば
Dim i As Integer
For i = 1 To 10
If Me.Controls("TextBox" & i).Value = "" Then
MsgBox ("データを再度入力してください。")
Exit Sub
End If
Next
TextBoxの名前を変更している場合は
Dim myctrl As Control
For Each myctrl In Controls
If TypeName(myctrl) = "TextBox" And myctrl.Value = "" Then
MsgBox ("データを再度入力してください。")
Exit Sub
End If
Next
でどうでしょうか。
No.1
- 回答日時:
お世話になります。
こんな感じでしょうか。
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 5
Dim tBoxName As String
tBoxName = "TextBox" & CStr(i)
If ActiveSheet.OLEObjects(tBoxName).Object.Value = "" Then
MsgBox (tBoxName & "を入力してください")
Exit For
End If
Next i
End Sub
naganaga_001様
早速御回答いただきありがとうございます。
試してみたのですが・・・・
If ActiveSheet.OLEObjects(tBoxName).Object.Value = "" Then
の部分でエラーが出てしまいました。
フォーム上のデータの入力の有無を確認するものなので、たぶん、ActiveSheetの部分を変えなければならないと思うのですが、どうもわかりません。
OLEObjectsのところも変えないといけないのかもしれません・・・。
誠に恐縮ではございますが、再度、御教示お願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- VBA Userformで一部別シートに転記がしたいのですが
- R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす
- 実行時エラー´5854´ 文字列型パラメーターが長すぎます。
- ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています
- いつもお世話になっております、VBAで教えて頂きたいのですが
- なぜExit Subがあるのかわかりません
- 列と行の名前(重複あり)が交差するセルに、データを入力したい
- エクセルVBAでオブジェクトが必要です
- 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ
- vba 「Nextに対するForが見当たりません」のエラーが発生する原因
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
テキストボックスの値を変数に代入したい。
Visual Basic(VBA)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
C#のループでtextboxに値を入れる方法
C言語・C++・C#
-
7
テキストボックスの名前に変数をつける
Visual Basic(VBA)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
13
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
14
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
15
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
16
テキストボックスの番号の取得
Visual Basic(VBA)
-
17
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
18
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
19
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
20
VBからエクセルのテキストボックスの名称を取得したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
VBA R1C1形式で変数の入力について
-
ユーザーフォームチェックボッ...
-
テキストボックスの番号を使っ...
-
excel vba でユーザーフォーム...
-
accessで該当するレコードがな...
-
EXCEL VBA で指定した範囲に入...
-
アルファベットGの小文字の入力
-
UWSCで、スクリプトの実行時間...
-
InputBoxでキャンセルボタンを...
-
入力フォームの値をQRコードで...
-
Excel-VBAでInputBox+Pulldown...
-
uwsc webページ内のテキストボ...
-
チェックボックスのCheckedとCh...
-
数字以外の入力をエラーにする...
-
インプットボックスでの日付入力
-
ACCESS テキストボックスの入力...
-
Flashテキスト入力
-
【VBA】入力フォームを使った、...
-
vba初心者です
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
Excel-VBAでInputBox+Pulldown...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
excel vba でユーザーフォーム...
-
入力フォームの値をQRコードで...
-
TextBoxから数字が文字...
-
初歩的な事だと思います。 Sub...
-
VBAでInputBoxの再入力をさせる...
-
c#でTextBoxの入力制限
-
アルファベットGの小文字の入力
-
VBA R1C1形式で変数の入力について
-
複数行の入力を受け取る方法
-
アクセスのマクロ
-
DataGridViewの桁数制限に関して
-
エディットボックスの入力制限...
-
TEXTAREA に入力時の位置
-
SQL で数値フィールドにDBNULL...
-
DataGridView 列ごとの入力制限
おすすめ情報