Excel VBA質問箱 IV

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

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


9517 / 13644 ツリー ←次へ | 前へ→

【26898】フォームのオブジェクト名の扱いについて ノキ 05/7/22(金) 21:52 質問[未読]
【26900】Re:フォームのオブジェクト名の扱いについて ichinose 05/7/22(金) 22:10 発言[未読]
【26902】Re:フォームのオブジェクト名の扱いについて ノキ 05/7/22(金) 22:19 お礼[未読]

【26898】フォームのオブジェクト名の扱いについて
質問  ノキ E-MAIL  - 05/7/22(金) 21:52 -

引用なし
パスワード
   こんばんわ。
まず、以下にやりたいことを書きます。
============================================
'フォームを開く関数(これはあくまでも例)
Sub FORM_OPEN(FORM_NAME As String)
Dim FormObj As Object

Set FormObj = FORM_NAME 'FORM_NAME = "UserForm1"とする。適当です。

'UserForm1.Showなどのようにフォームを開くのを
FormObj.Show
'変数に置き換え可変にしたいのです。

End Sub

これはエラーになるのは、分かっているのですが、
可変にする方法が探しても見つかりませんでした。

===========================================

フォームのオブジェクト名を変数に渡し、
変数からメソッドを呼び出せるようにしたのです。

方法は他にあると思いますので、ご存知の方
ご教授を宜しくお願いします。

過去ログなども探してみたのですが、
似たような投稿はあったのですが、
似て非なるものでした。

どうぞよろしくお願いいたします。
本当に困っています(;;

【26900】Re:フォームのオブジェクト名の扱いにつ...
発言  ichinose  - 05/7/22(金) 22:10 -

引用なし
パスワード
   ▼ノキ さん:
こんばんは。


>まず、以下にやりたいことを書きます。
>============================================
>'フォームを開く関数(これはあくまでも例)
>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

これを応用されてはいかがですか?

【26902】Re:フォームのオブジェクト名の扱いにつ...
お礼  ノキ E-MAIL  - 05/7/22(金) 22:19 -

引用なし
パスワード
   おお!
できました!
ichinoseさん本当にありがとうございました!
たすかりました。
また質問があるかと思いますので、
その時も宜しくお願いいたします。

失礼しました。

▼ichinose さん:
>▼ノキ さん:
>こんばんは。
>
>
>>まず、以下にやりたいことを書きます。
>>============================================
>>'フォームを開く関数(これはあくまでも例)
>>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
>
>これを応用されてはいかがですか?

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