[[20250412121121]]　『 Workbook_Open時に２つを作動させる』（たく）　ページの最後に飛ぶ

『 Workbook_Open時に２つを作動させる』（たく）

エクセル素人ですお願いします。
オープン時のマクロで２つの操作をしたいのですがコンパイルエラー
というのが出現し操作できません。
下記の用のコードなのですが、どのようにしたらよいでしょう？
一つ目にメッセージを出現し。
２つめにｃALLステートメントを使いたいのですが
よろしくお願いします。

Private Sub Workbook_Open()

    Workbook_Open1
    Workbook_Open2
End Sub
Option Explicit
Private Sub Workbook_Open1()
    MsgBox "?@・・・・・・・・・・。" & vbCrLf & ""
    ?A・・・・・・・・・・・・・・・ " & vbCrLf & "
    ?B・・・・・・・・・・・・・・・""
End Sub

Private Sub Workbook_Open2()

     Call 時間がたてば終了するClose
End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 コンパイルエラーだけではなく、それ以上の情報が表示されていませんか？
 エラーメッセージをすべて書いて下さい。
 それに沿って修正して下さい。
 # Option Explicitの位置がおかしいですけど、それに限りませんから。
 # Excel,Osのバージョンも忘れずに書いて下さい。

（xyz） 2025/04/12(土) 13:18:54

とりあえず　ThisWorkbook　モジュールに　以下を貼り付ければ
動くのは動くようですよ。　お望みの物かどうかは解りませんが　でわ　(*^^*)
m(__)m

 Option Explicit
Private Sub Workbook_Open()

    Workbook_Open1
    Workbook_Open2
End Sub
Private Sub Workbook_Open1()
    MsgBox "A" & vbCrLf & "B" & vbCrLf & "C"
End Sub
Private Sub Workbook_Open2()

     Call 時間がたてば終了するClose
End Sub
Private Sub 時間がたてば終了するClose()
    MsgBox "時間がたてば終了するClose"
End Sub

（隠居Z） 2025/04/12(土) 14:54:15

ありがとうございます。
助かりました、エクセル勉強します🙇
（たく） 2025/04/12(土) 18:58:12

コメント返信：

[ 一覧(最新更新順) ]

[[20250412121121]] 『 Workbook_Open時に２つを作動させる』（たく） ページの最後に飛ぶ

[[20250412121121]]　『 Workbook_Open時に２つを作動させる』（たく）　ページの最後に飛ぶ