フォーム ＆ FOR文

質問

TEXTBOX1,TEXTBOX2,....をFOR文でまわして処理をしたいのですが、

やり方としては

For i = 1 To 8
hairetu(i) = TextBox & i &.Text

Next
にするとエラーになってしまいます。
何か方法はないでしょうか？

回答No.1

baboooo · ベストアンサー

これで出来ると思います。

For i = 1 To 8
hairetu(i) = Me("TextBox" & i).Text
Next

お礼

ありがとうございます。確認できました。

回答No.4

imogasi

２つ目の同種のコントロールを貼り付ける段階で、新たにツールボックスから持ってくるのでなく、既に貼り付けた１つのコントロールをコピーして貼り付けると、「コントロール配列にしますか」と聞いてくるから、「はい」と答えて、以後繰り返す。すると&iでなくTextBox1(i)で繰り回し出来ます。エクセル等のVBAでは出来ません。

回答No.3

lucky-jam

For文よりFor Each文の方が処理速度は速いですよ。
でも件数が8件くらいだったら同じですね。

回答No.2

SENAS

コントロールも配列にしてやって

for I = 1 to 8
Hiretu(i) = txtBOX(i).text
next i

ってやるとうまくいくと思いますよ！