|
▼ノキ さん:
こんばんは。
>まず、以下にやりたいことを書きます。
>============================================
>'フォームを開く関数(これはあくまでも例)
>Sub FORM_OPEN(FORM_NAME As String)
>Dim FormObj As Object
>
>Set FormObj = FORM_NAME 'FORM_NAME = "UserForm1"とする。適当です。
>
>'UserForm1.Showなどのようにフォームを開くのを
>FormObj.Show
>'変数に置き換え可変にしたいのです。
>
>End Sub
>
>これはエラーになるのは、分かっているのですが、
>可変にする方法が探しても見つかりませんでした。
>
>===========================================
>
>フォームのオブジェクト名を変数に渡し、
>変数からメソッドを呼び出せるようにしたのです。
>
>方法は他にあると思いますので、ご存知の方
>ご教授を宜しくお願いします。
>
>過去ログなども探してみたのですが、
>似たような投稿はあったのですが、
>似て非なるものでした。
>
>どうぞよろしくお願いいたします。
>本当に困っています(;;
Jakaさんの
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=18804;id=excel
これを応用されてはいかがですか?
|
|