[[20080226112639]]　『自動で閉じるユーザーフォーム』（伊倉）　ページの最後に飛ぶ

『自動で閉じるユーザーフォーム』（伊倉）

 ３秒でユーザーフォームが閉じます。表示中には何処も触れません。
 どこもさわれない変わりに、ユーザーフォーム内にボタンをつけても
 処理しません。
 ユーザーフォーム内のボタンを認識出来る様にならないでしょうか。
 ３秒以内にユーザーフォーム内のボタンをクリックすると
 そのボタンに登録されたマクロが動く。
 ３秒間何もしなければ、ユーザーフォームが閉じる。

 Private Sub UserForm_Activate()
 Dim MyWaitTime As Date
 '3秒後に閉じる場合
 MyWaitTime = TimeSerial(Hour(Now()), Minute(Now()), _
                      Second(Now()) + 3)
 Application.Wait MyWaitTime  'マクロを指定の時間まで停止
 Unload Me  'UserFormを閉じる
 End Sub

 コマンドボタンの内容によっては、もう少し工夫が必要かもしれませんが、

 Private Sub UserForm_Activate()
    Dim stt As Date
    stt = Now()
    Do While Second([now()] - stt) <= 3
       DoEvents
       Loop
    Unload Me
 End Sub

 概ねこんな感じです

 ichinose@ちょっと仕事さぼりついで

 ユーザーフォームにボタン追加してみて出来ました！
 いやあ凄いです。出来るんだ。
 ありがとうございます。
（伊倉）

コメント返信：

[ 一覧(最新更新順) ]

[[20080226112639]] 『自動で閉じるユーザーフォーム』（伊倉） ページの最後に飛ぶ

[[20080226112639]]　『自動で閉じるユーザーフォーム』（伊倉）　ページの最後に飛ぶ