Q&A
タグにVBAも追加したほうがいいでしょう。
Excel VBAにあまり詳しくない者ですが、ご教授いただけるとありがたいです。
Excel365で、Auto_Openを使って、ブックを開くと同時にマクロが自動実行されるツールを作りました。このExcelブックを、Windowsエクスプローラーからダブルクリックで起動したところ、以下のように、Excelのオープニングダイアログが表示された状態でマクロが実行されて、ブックのウィンドウは表示されません。
VBAマクロは最後まで実行されるのでその意味ではいいのですが、処理中の過程をシートに出力していて、それが表示されず確認できないのがつらいです。
以下の★を入れてみたのですが、変わりません。
Auto_Openではなく、ThisWorkbookのWorkbook_Openでも試しましたが、同じでした。
VBA
1Private Sub Auto_Open 2 ' 本ブックをアクティブ★ 3 ThisWorkbook.Activate 4 ActiveWindow.Visible = True 5 6 ' 以降は具体的な処理 7 ' ... 8End Sub
どうすれば、ブックのウィンドウが表示されるでしょうか？
ご指摘ありがとうございます。追加しました。
Excel の障害の様な気がします。
この記述だけ(4行以外全部削除)でもダメなんですよね。
Private Sub Auto_Open
ThisWorkbook.Activate
ActiveWindow.Visible = True
End Sub
Excelファイルを起動ではなく、メニューからExcelApplicationを起動させて正常に空白ワークシートは出ますよね。
スタート画面を表示をON/OFFにして見てどうでしょうか。
(https://infoliteracy-univ.com/excel-start)
内容を読むと通常は有り得ない障害と思います。
Excelの再インストールだけで直るのでしょうか？OSとの兼ね合いも考えられます。そのPC独自の問題と思われますので、原因究明は厳しいかもしれません。
hatena19さまに教えて頂いた以下の通り、マクロ実行を一瞬待ち合わせれば解決しました。
Private Sub Workbook_Open()
ThisWorkbook.Activate
ActiveWindow.Visible = True
DoEvents
Application.OnTime EarliestTime:=Now() + TimeValue("00:00:01"), Procedure:="MyFunc"
End Sub
回答1件
0
ベストアンサー
vba
1Private Sub Auto_Open() 2 ' 本ブックをアクティブ★ 3 ThisWorkbook.Activate 4 ActiveWindow.Visible = True 5 DoEvents 'このおまじないを入れたどうでしょうか。 6 7 ' 以降は具体的な処理 8 ' ...
ループで重い処理を作成して実験してみました。
上記ではダメですね。
OnTime で遅延実行させたらいいようです。
標準モジュール
vba
1Public Sub Hoge() 2 3 '実行したい処理 4 5End Sub 6
ThisWorkBook
vba
1Private Sub Workbook_Open() 2 ThisWorkbook.Activate 3 ActiveWindow.Visible = True 4 DoEvents 5 6 '1秒後に実行 7 Application.OnTime EarliestTime:=Now() + TimeValue("00:00:01"), Procedure:="Hoge" 8End Sub
Now() + TimeValue("00:00:01")で1秒後に実行してますが、
Now() + 200 / 86400000 とすると200ミリ秒後(0.2秒後)に実行します。
当方の実験では 10ミリ秒後にしても表示されました。
投稿2020/10/12 00:43
編集2020/10/12 01:21総合スコア34377
それはやってみましたが、同じでした。
回答に別案を追記しました。参照してください。
ありがとうございます！教えていただいたApplication.OnTimeを使ってうまくできました！
あなたの回答
tips
プレビュー
