VBA初心者です。教えて下さい。

質問

VBA初心者です。
すいません教えて下さい。
たくさんのテキストボックスに決められた値を入れたいです。
今は１つ１つのテキストボックスに静的に直書きしています。
（理由は聞かないで下さい、、、^^;）

【今】
----------------------------------------
TextBox0.Text = "0です"
TextBox1.Text = "1です"
…(省略)
TextBox100.Text = "100です"
----------------------------------------

これをもっとスマートに出来ればと思い"For"を使いました。

【やりたいやり方】
----------------------------------------
For i = 0 To 100
TextBox & i .Text = i &"です。"
Next
----------------------------------------

、、、が当然の結果、i変数を扱うことが出来ずにエラーになります。
どうにかスマートに実現する方法はありませんでしょうか？
申し訳ありませんがご教示頂ければと思います。

回答No.2

Picosoft · ベストアンサー

> Excel VBA(userForm)上ではうまく動いてくれませんでした、、、。
こちらではちゃんと動いていますが……
コードの場所によっては
　Me.Controls → フォーム名.Controls
に変える必要があります。

何かエラーメッセージが出るのですか？

お礼

ごめんなさいやり方がまずかったようで
ご教示いただいたコードでやりたい事が出来ました！

お礼が遅くなり申し訳ありません！
本当にありがとうございました！＾＾

リアルだったらメシでも奢りたいくらいです！！
まじありがっとおおおｗｗ　(^-^)v ぶい

回答No.1

Picosoft

For i = 0 To 100
　Me.Controls("TextBox" & i).Text = i & "です。"
Next

補足

既に上記の方法は試し済みでした。
Excel VBA(userForm)上ではうまく動いてくれませんでした、、、。
やり方はダメなのかな、、、？