VBAユーザーフォームでのテキストボックスの指定の仕方について

Question

初歩的な質問を失礼いたします。

エクセルの集計フォームで、１－５のテキストボックスに結果を表示したいです。テキストボックスは５以上あります。

For i = １ To　５
    .Controls("TextBox" & i).Value = varKeys(i)
Next i

ここから、管理のためにテキストボックスのオブジェクト名をTextBox_IDに変更した場合の書き方がわからないのでご教授願います。

Comments

[suto]

なぜ.Controls("TextBox＿ID" & i).Value ではいけないのでしょうか

[tatsu99]

>オブジェクト名をTextBox_IDに変更した場合
この意味は、ID部分をA,B,C...とかのようにほかの名前にしたいということですか。
つまり、TextBox_A,TextBox_B,TextBox_Cのようにしたい。

[suto]

TextBox＿ID１、TextBox＿ID２のようにオブジェクトの名前を変えて数字の部分でループ処理したいと思っています。

Answer 1

＿が全角なのが気になりますが、以下のようにしてください。
（＿が実際は半角なら、半角にしてください。）

For i = １ To　５
    .Controls("TextBox＿ID" & i).Value = varKeys(i)
Next i

Comments

[suto]

ありがとうございます。半角に直したうえで試しましたが指定されたオブジェクトは見つかりませんとなります。エラー-2147024809

[tatsu99]

TextBox_ID1,TextBox_ID2,TextBox_ID3,TextBox_ID4,TextBox_ID5
の何れかのオブジェクトがないといっています。
デバッグ状態にしてiの値を確認後、それに該当するオブジェクトが本当にあるかどうか、
プロパティウィンドウを表示して確認してください。
こちらで、動作確認時、正常終了しています。

[suto]

細かいご指摘ありがとうございます。動作確認できました。

Answer 2

Controls("TextBox" & i) = varKeys(i)
でいかかでしょうか？

Comments

[suto]

それはできるのですが、オブジェクト名を変更して、変数化してループするような方法っていうんでしょうか。うまく表現できずすみません。