[XL97]変数を使用してユーザーフォームを表示する方法 この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。
この記事は、以前は次の ID で公開されていました: JP408041 目次概要
VBA を使用して、変数に格納されたユーザー フォームの名前で、ユーザー フォーム
を表示する方法について紹介します。 現象
変数を使用せずにユーザー フォームを表示するには、以下のように記述します。 UserForm1.Showユーザー フォーム名が変数に格納されていた場合、その変数を使用して表示する には UserForms コレクションの Add メソッドを使用します。 ■ サンプルをご覧になる前にこの文書は Excel 97 のプログラミングツールを使用して Excel 97 のアプリケーションを作成でき、かつ Microsoft(R) VisualBasic(R) Programming System Applications Edition (以下 VBA) を十分に理解している方を対象とします。 VBA に関する詳細な情報はオンラインヘルプをご覧ください。 ■ サンプル 1このサンプルは、変数にユーザー フォームの名前を格納し、その変数を使用してユーザー フォームを表示します。
-----------------------------------------------------------------------------
Sub ShowUserForm1()
Dim MyForm As String
'ユーザー フォーム [UserForm1] を変数に代入
MyForm = "UserForm1"
' Add メソッドでユーザー フォームを表示
VBA.UserForms.Add(MyForm).Show
End Sub
-----------------------------------------------------------------------------
■ サンプル 2このサンプルは、InputBox に入力された数値によって、異なるユーザーフォームを表 示します。
-----------------------------------------------------------------------------
Sub ShowUserForm2()
Dim Y As Integer
Dim MyForm As String
Y = Application.InputBox _
(Prompt:="数値を入力してください : 1, 2, または 3", Type:=1)
Select Case Y
Case 1
MyForm = "UserForm1"
Case 2
MyForm = "UserForm2"
Case Else
MyForm = "UserForm3"
End Select
VBA.UserForms.Add(MyForm).Show
End Sub
-----------------------------------------------------------------------------
■ 操作手順
■ 注意上記サンプル プロシージャを実行するときに、指定されたユーザー フォーム名が存在しない場合は、「実行時エラー 424 」が発生します。
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。" |
|
| United States | Change | | | All Microsoft Sites |
Help and Support
先頭へ戻る
|
