ＶＢＡ Auto_Openについて

質問

いつもお世話になってます。

Private Sub メイン()
Load メイン
メイン.Show
End Sub

Private Sub Auto_Open()
Worksheets("sheets1").Range("A1").Value = Time
Application.OnTime Now + TimeValue("0:00:01"), "Auto_Open"
End Sub

こんなかんじのを書きました。
上の「メイン」フォームもAuto_Openさせたいのですが
どうしたらいいのでしょうか？
時刻は常に作動させておきたいです。

よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

以前の質問か何かの追加質問なのでしょうか？
意味がわかりづらいです。

> 上の「メイン」フォームもAuto_Openさせたいのですが

BOOKを開いたときに、無条件でPrivate Sub メイン()を実行したいという意味なら。

Sub Auto_Open()
Call メイン
Worksheets("sheets1").Range("A1").Value = Time
Application.OnTime Now + TimeValue("0:00:01"), "Auto_Open"
End Sub

お礼

回答ありがとうございます。
説明不足ですいません・・・

Sub Auto_Open()
Call メイン
Worksheets("sheets1").Range("A1").Value = Time
Application.OnTime Now + TimeValue("0:00:01"), "Auto_Open"
End Sub

で実行すると
「非表示モジュール　コンパイルエラー」
と出て実行ができませんでした。

時計
Sub Auto_Open()
Worksheets("sheets1").Range("A1").Value = Time
Application.OnTime Now + TimeValue("0:00:01"), "Auto_Open"
End Sub
は、このままでいいのですが
フォームの起動もBOOKを開いたときに、無条件実行したいと思ってます。
両方ともAuto_Openとはできなかったのでどうしたらいいか・・・

補足

あ・・・
すいません。
できました

Private Sub Auto_Open()
Call 時計
Load メイン
メイン.Show
End Sub。

でなんとかなりました。

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