[[20210909125605]]　『Application.waitで指定時間終了後のマクロが停止』（名無しの初心者）　ページの最後に飛ぶ

『Application.waitで指定時間終了後のマクロが停止したまま』（名無しの初心者）

職場で申請書類を作成させるファイルを作成してます。

１フォームのドロップダウンリストから氏名入力

２フォーム１でリストから読み込んだ職員のデータを表示

   データに修正があれば、ここで修正。
   新規の職員はここで入力するとリストへ転記する。

３フォーム２で必要な添付書類を表示させ、準備ができているか確認する。

   ※msgboxだと文字が小さいので、ユーザーフォームを使用

   準備ができている（commandbuttton1）

   →問題なく印刷し、初期画面に戻るのもＯＫ

   できていない（commandButton2）

   →こちらの意図
     ２秒間ユーザーフォーム３を表示。
     その後、ユーザーフォーム２と３を消し、初期画面に戻る。

   →実際の動作　ユーザーフォーム３を表示したまま動かなくなる。

ユーザーフォーム３のマクロ

Praivate Sub CF_Panel

Application.wait Now()+Timevalue("00:00:02")

Unload Me

End sub

どこに問題があるか、ここ2日間ネットで調べたのですが
原因が分かりませんでした。

よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Private Sub CF_Panel()
  Application.wait Now()+Timevalue("00:00:02")
  Unload Me
 End sub
そもそもこのマクロが発動していないのではありませんか？
（めざめるパワー） 2021/09/09(木) 14:11

めざめるパワー様

ご回答ありがとうございます。確かに起動してないようです。

調べてみましたが、今のところ分かりません。もう少し頑張ってみます。

（名無しの初心者） 2021/09/09(木) 15:34

 Private Sub CF_Panel()
  Application.wait Now()+Timevalue("00:00:02")
  Unload Me
 End sub

 ＞→こちらの意図
     ２秒間ユーザーフォーム３を表示。
     その後、ユーザーフォーム２と３を消し、初期画面に戻る。

 ＞→実際の動作　ユーザーフォーム３を表示したまま動かなくなる。

 確認です。一度でも意図した動作で動いたことはあるのでしょうか？

（あみな） 2021/09/09(木) 16:48

Private Sub UserForm_Activate()

  Application.Wait Now() + TimeValue("00:00:02")
  Unload Me
End Sub

意図するユーザーフォームを開いて、
２秒だけ表示して、閉じる

としたいなら、
そのユーザーフォームがアクティブになったときに、
マクロが起動するようにしてはいかがでしょうか？

参考URL>>

Excel VBA ユーザーフォームのイベントの種類と記述場所
https://officedic.com/excel-vba-userform-events/
（まっつわん） 2021/09/09(木) 17:38

あみな様

ご回答ありがとうございます。
見る限り、動いていないと思います。
ステップインで試しても動かないです。

まっつわん
URLの情報ありがとうございます。
早速参考にさせていただきます。

職場の朝が早く（８時始業）かつ、親の介護があるため
夕方は割と早く帰ってしまうためお返事が遅くなり申し訳ありませんでした。

（名無しの初心者） 2021/09/10(金) 08:11

まっつわん様の参考URLを見て解決できました。

皆様ありがとうございました。

（名無しの初心者） 2021/09/10(金) 08:19

コメント返信：