Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2400 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68268】TextBoxの名前 saga 11/2/19(土) 10:04 質問[未読]
【68269】Re:TextBoxの名前 ichinose 11/2/19(土) 10:27 発言[未読]
【68271】Re:TextBoxの名前 saga 11/2/19(土) 11:38 お礼[未読]
【68270】Re:TextBoxの名前 UO3 11/2/19(土) 10:28 回答[未読]
【68268】TextBoxの名前
質問  saga  - 11/2/19(土) 10:04 -
引用なし
パスワード
   はじめましてVBAの初心者です
　A1=UserForm1.TextBox1.value
　A2=UserForm1.TextBox2.value
　A3=UserForm1.TextBox3.value
　A4=UserForm1.TextBox4.value
　　　　　・
　　　　　・
　　　　　・　　　　
と沢山あります
これを配列を使って処理をしたいのです
　　A(i)=UserForm1.TextBox1.value
　　ここでTextBox1を配列のiとおなじにして
　　TextBoxの名前にしたいのですが
　　可能でしょうか
　　A(i) = UserForm1.ComboBox & CStr(i)
　　文字列を使ってみたのですが駄目でした　
　よろしくお願いいたします
【68269】Re:TextBoxの名前
発言  ichinose  - 11/2/19(土) 10:27 -
引用なし
パスワード
   おはようございます。
> はじめましてVBAの初心者です
>　A1=UserForm1.TextBox1.value
>　A2=UserForm1.TextBox2.value
>　A3=UserForm1.TextBox3.value
>　A4=UserForm1.TextBox4.value
>　　　　　・
>　　　　　・
>　　　　　・　　　　
> と沢山あります
> これを配列を使って処理をしたいのです
>　　A(i)=UserForm1.TextBox1.value
>　　ここでTextBox1を配列のiとおなじにして
　dim i as integer
　i=1
　UserForm1.Controls("TextBox" & i).value


これで検討してみてください
【68270】Re:TextBoxの名前
回答  UO3  - 11/2/19(土) 10:28 -
引用なし
パスワード
   ▼saga さん：

こんなことでしょうか。
Sample1とSample2は同じことを表現をちょっとかえているだけです。

Sub Sample1()
　　Dim A(1 To 3) As String
　　Dim i As Long
　　For i = 1 To 3
　　　　A(i) = UserForm1.Controls("TextBox" & i).Value
　　Next
End Sub

Sub Sample2()
　　Dim A(1 To 3) As String
　　Dim i As Long
　　With UserForm1
　　　　For i = 1 To 3
　　　　　　A(i) = .Controls("TextBox" & i).Value
　　　　Next
　　End With
End Sub
【68271】Re:TextBoxの名前
お礼  saga  - 11/2/19(土) 11:38 -
引用なし
パスワード
   有難うございました
Controlsと云うのがあるのですね
勉強になりました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2400 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free