VBA　テキストボックス文字列格納【複数】

複数のテキストボックスの値を
配列に格納したいです。
以下のようなコードで配列を作成しているのですが。
テキストボックスが多いのでFor文などを用いて簡潔に書きたいと思っています。

どのように変数定義すれば良いのでしょうか？
ご教示お願いします。

VBA
1コード
2Dim STR(100) As String
3STR(0) = TextBox0.Text
4STR(1) = TextBox1.Text
5STR(2) = TextBox2.Text
6STR(3) = TextBox3.Text
7STR(4) = TextBox4.Text
8STR(5) = TextBox5.Text
9STR(6) = TextBox6.Text
10STR(7) = TextBox7.Text
11STR(8) = TextBox8.Text
12STR(9) = TextBox9.Text
13STR(10) = TextBox10.Text
14・
15・
16・
17

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1Option Base 0
2Dim STR(100) As String
3Dim I As Integer
4For I = 0 To 99
5  STR(I) = Controls("TextBox" & I).Text
6Next I

実際に動かして確認はしていないのでミスがあったらごめんなさい。

投稿2021/04/30 02:31

itagagaki

総合スコア8402

riko

2021/04/30 02:34

ご回答ありがとうございます。質問投稿後にネットで調べていたら回答者様のコードと同様のコードを見つけ実践したところできました。初歩的な内容で申し訳ありませんでした！！ありがとうございます。

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

VBA　テキストボックス文字列格納【複数】

関連した質問