エクセルＶＢＡ コントロールに変数を入れたい

質問

エクセルvbaです。

UserForm1.テキスト1.Valueを
UserForms("UserForm1").Controls("テキスト1").Value
のような形式でコードを書くことは可能でしょうか？

UserForms("UserForm1").Controls("テキスト1").Value
だとエラーになってしまいます。

accessでは
Forms("Form1").Controls(“テキスト1”).Value
と言う形式が可能ですが、エクセルでは不可能なのでしょうか？

エクセルでは
Forms("Form1").Controls(“テキスト1”).Value
UserForm ("Form1").Controls(“テキスト1”).Value
でもエラーになってしまいます。

UserForm1.Controls("テキスト1").Valueは
コードが通りましたが、フォームの部分に変数を入れる事ができません。

ご教授よろしくお願いします。

回答No.2

watabe007 · ベストアンサー

>UserForms("UserForm1").Controls("テキスト1").Value
>のような形式でコードを書くことは可能でしょうか？

Dim MyForm As String
MyForm = "UserForm1"
With UserForms.Add(MyForm)
　　.Controls("テキスト1").Value = "てすと"
　　.Show
End With

With UserForms.Add("UserForm1")
　　.Controls("テキスト1").Value = "てすと"
　　.Show
End With

参考URL：

http://support.microsoft.com/kb/408041/ja

お礼

Addを使うのですか。
質問しなければ自力ではわからなかった事です。ありがとうございました。大変参考になりました。

回答No.3

mitarashi

自分自身はhard-codeで特に不便も感じた事は無かったのですが、真面目に取り組んだ方の記事を見つけましたので、ご紹介しておきます。UserFormを沢山扱うときは便利なのかもしれませんね。英語ですが当方の低レベルの英語力でもそこそこ分かりました。（実は殆どコードしか無かったりして）
http://www.cpearson.com/Excel/showanyform.htm

お礼

ありがとうございました。

回答No.1

keithin

UserForms(Index)
によって可変参照できます。
ただしIndexはゼロから始まる数字しか受け付けません。名前によって参照する機能はありません。

UserFomrs(0).Controls("テキスト1").value = …

お礼

名前を入れるのではなく数字を入れるのですね。ありがとうございました。