Ｐａｇｅ 371 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼全てのユーザーフォームが表示されていない時に有効 １２３ 02/11/20(水) 21:16 ┗全てと言われると困りますね ichinose 02/11/21(木) 2:47 ┗Re:全てと言われると困りますね １２３ 02/11/21(木) 12:28 ┗Re:全てと言われると困りますね ichinose 02/11/21(木) 12:55 ┗Re:全てと言われると困りますね １２３ 02/11/21(木) 13:11 ─────────────────────────────────────── ■題名 ： 全てのユーザーフォームが表示されていない時に有効 ■名前 ： １２３ ■日付 ： 02/11/20(水) 21:16 -------------------------------------------------------------------------
| またまた お願いです。 全てのユーザーフォームが表示されていない時にのみ 有効なSheet上のコマンドボタンを作りたいのですが、 その条件となる「全てのユーザ-フォームが表示されていない場合」 というIf条件の言語がわかりません。 どなたか教えてください。 Private Sub test_Click() If ×××× Then form1.Show End If End Sub |
| ▼１２３ さん： こんばんは。 >全てのユーザーフォームが表示されていない時にのみ >有効なSheet上のコマンドボタンを作りたいのですが、 >その条件となる「全てのユーザ-フォームが表示されていない場合」 >というIf条件の言語がわかりません。 >どなたか教えてください。 > とりあえず、特定のブック内のフォームが表示されているか否かなら、 '=============================================================== Sub test() For Each frm In UserForms If frm.Visible = True Then MsgBox "だめ" End If Next End Sub ですが・・・、全てですもんね、他のブックのフォームが開いていた場合は上記では確認できません。 |
| ▼ichinose さん： こんにちは。 ichinoseさんの下記記述を書き込む場所は、どこでしょうか。 モジュール、This WorkBook、クラスモジュール それぞれ 試してみましたが、既存のフォームを閉じてもMsgBoxが表示されません。 お手数をお掛けしますが、宜しくお願い致します。 >とりあえず、特定のブック内のフォームが表示されているか否かなら、 >'=============================================================== >Sub test() >For Each frm In UserForms > If frm.Visible = True Then > MsgBox "だめ" > End If > Next >End Sub >ですが・・・、全てですもんね、他のブックのフォームが開いていた場合は上記では確認できません。 |
| ▼１２３ さん： こんにちは。 >ichinoseさんの下記記述を書き込む場所は、どこでしょうか。 >モジュール、This WorkBook、クラスモジュール それぞれ >お手数をお掛けしますが、宜しくお願い致します。 > >>とりあえず、特定のブック内のフォームが表示されているか否かなら、 >>'=============================================================== >>Sub test() >>For Each frm In UserForms >> If frm.Visible = True Then >> MsgBox "だめ" >> End If >> Next >>End Sub 上記コードは、標準モジュールで確認しましたが・・・。 尚､上のコードフォームが表示されているときに、"だめ"って、表示されているフォームの数だけ表示されるはずなんですが・・・。 >試してみましたが、既存のフォームを閉じてもMsgBoxが表示されません。 フォームが表示されていなければメッセージ出ません。 |
| ▼ichinose さん： すみませんでした。 フォームを閉じてTestしてました。 （ちゃんと出ました） あとは、工夫して考えてみます。 ありがとうございました。 >上記コードは、標準モジュールで確認しましたが・・・。 >尚､上のコードフォームが表示されているときに、"だめ"って、表示されているフォームの数だけ表示されるはずなんですが・・・。 > >>試してみましたが、既存のフォームを閉じてもMsgBoxが表示されません。 >フォームが表示されていなければメッセージ出ません。 |