Bookオープン時にExcelを最小化してユーザーフォームを表示させる
 Bookを開いた時に、Excelを最小化しさらに、そのBookに含まれるユーザーフォーム
を表示させる場合、WorkbookオブジェクトのOpenイベントに以下のコードを記述します。

 ユーザーフォーム「UserForm1」を用意してください。

Private Sub Workbook_Open()
    
    ' Excelを最小化
    Application.WindowState = xlMinimized
    
    ' Excelをアクティブなアプリケーションとする
    AppActivate "Microsoft Excel"
    
    ' ユーザーフォームの表示
    UserForm1.Show
    
End Sub

Excel97/2000



戻る


Excel Word Access VBA! モーグ