Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5142 / 13646 ツリー ←次へ | 前へ→

【52414】Loop文中でTextboxの番号?を増やすには ぱんだ 07/11/13(火) 16:07 質問[未読]
【52415】Re:Loop文中でTextboxの番号?を増やすには マクロマン 07/11/13(火) 16:21 発言[未読]
【52417】Re:Loop文中でTextboxの番号?を増やすには ぱんだ 07/11/13(火) 17:20 お礼[未読]
【52418】Re:Loop文中でTextboxの番号?を増やすには ぱんだ 07/11/13(火) 17:23 お礼[未読]

【52414】Loop文中でTextboxの番号?を増やすには
質問  ぱんだ  - 07/11/13(火) 16:07 -

引用なし
パスワード
   i = 1

Do
    kou = UserForm1.TextBoxi
    Cells(1, 1) = kou
    i = i + 1
Loop While UserForm3.TextBoxi = Empty

ユーザーフォームを用いて,ユーザーフォームのテキストボックスの値から計算するプログラムを組んでいます.
上のものはそれを単純化してのせたものなのですが・・・.
このようにLOOP文でTextBox1から順にTextBox2・・・と順番に演算したいのですが,
上のようにTextBoxiという書きかたではダメなのでしょうか?

どうしてもエラーが起きてしまって...

よろしくお願いします.

【52415】Re:Loop文中でTextboxの番号?を増やすに...
発言  マクロマン  - 07/11/13(火) 16:21 -

引用なし
パスワード
   ↓のように指定します。

UserForm1.Controls("TextBox" & i)

【52417】Re:Loop文中でTextboxの番号?を増やすに...
お礼  ぱんだ  - 07/11/13(火) 17:20 -

引用なし
パスワード
   マクロマン さん
ありがとうございます.
解決いたしました.

【52418】Re:Loop文中でTextboxの番号?を増やすに...
お礼  ぱんだ  - 07/11/13(火) 17:23 -

引用なし
パスワード
   大変焦ってしまい,2つの掲示板に質問を乗せてしまいました.
それが大変失礼な行為に当たると気付かず・・・
大変申し訳ありませんでした.
次からはそのような事がないよう気を付けたいと思います.

注意をしていただき,また質問にも答えていただき本当にありがとうございました.

5142 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free