トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 1-9 フォームの表示・非表示を確認する

1-9 フォームの表示・非表示を確認するユーザーフォーム

次の書籍の第1章~5章を公開しています。
「Excel VBA 逆引きで学ぶ ユーザーフォーム&コントロール」

目次  前頁   次頁  索引

フォームの表示・非表示の確認には、Visibleプロパティを用います。
フォームを2つ挿入して、確認してみましょう。

次のコード「Form_Show_Modal」を実行すると、2つのフォームが表示されます。
フォーム1をクリックするとフォーム2の表示状態を確認し、表示なら「True」、非表示なら「False」をメッセージで表示します。またフォーム2が非表示の場合は表示します。
フォーム2をクリックするとフォーム2は非表示になります。


サンプルコード

【UserForm1】
Private Sub UserForm_Click()
    MsgBox UserForm2.Visible 'フォーム2の表示・非表示を確認
    If UserForm2.Visible = False Then
        UserForm2.Show vbModeless '非表示の場合は表示
    End If
End Sub
【UserForm2】
Private Sub UserForm_Click()
    Me.Hide '自身(フォーム2)を非表示
End Sub
【標準モジュール】
Sub Form_Show_Modeless()
    UserForm1.Show vbModeless 'フォーム1をモードレス表示
    UserForm2.Show vbModeless 'フォーム2をモードレス表示
End Sub



フォームのVisibleプロパティは、取得のみ可能で設定はできません。


書籍紹介140以上のサンプルファイル付き!

知りたいがすぐわかる! やりたいがすぐできる!
「Excel VBA 逆引きで学ぶ ユーザーフォーム&コントロール」(Kindle版)
ユーザーフォームを扱えると、VBAでできることが大きく広がります!
本書では、知りたいこと、やりたいことから、逆引きで学びを深められます。

■ 購入:amazon

ページトップへ戻る
Copyright(C) 2009- 坂江 保 All Rights Reserved.