| 本章では、プログラムの開始時や終了時に必要なコードサンプルを説明します。 | |||||||||
|
|||||||||
| Sub プロシージャで、標準モジュールです。過去の Excel で使われていたもので、互換性維持のために残されています。 いずれもファイルが開いたとき／閉じる前に実行されるプロシージャです。 | |||||||||
|
|||||||||
|
|
Application.ScreenUpdating = False 'ON Application.ScreenUpdating = True 'OFF |
||||||||
|
|||||||||
| Application.DisplayAlerts = False | |||||||||
|
|
|||||||||
|
|||||||||
|
Dim Bookname As String
Bookname = ActiveWorkbook.Name |
|||||||||
|
|||||||||
|
Application.Cursor = xlWait
戻す Application.Cursor = xlNormal |
|||||||||
|
|||||||||
| Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds
As Long) ' EscキーでErrorHandlerへ進む Application.EnableCancelKey = xlErrorHandler On Error GoTo ESC_CHATCH 'Do ・・・・ '実行中のマクロを１秒間停止します。 DoEvents Sleep 1000 ' msec 'Loop ESC_CHATCH: If MsgBox("ESCキーが押されました。終了しますか？", vbInformation + vbYesNo) = vbYes Then GoTo LOOP_EXIT Else Resume End If LOOP_EXIT: ' Escキー処理を戻す Application.EnableCancelKey = xlInterrupt Application.StatusBar = False On Error GoTo 0 'エラー処理ルーチンを無効にします |
|||||||||
|
|||||||||
|
Application.Quit
この場合 Auto_Close は実行されない |
|||||||||
|
|||||||||
|
Sub auto_open()
'ツールボックスの非表示 Toolbars(1).Visible = False Toolbars(2).Visible = False '警告メッセージOff Application.DisplayAlerts = False '画面更新なし Application.ScreenUpdating = False '本プログラム名のＧＥＴ ThisBookName = ActiveWorkbook.Name 'Focus Worksheets(Sheet1).Activate Range("A1").Select End Sub |
|||||||||
|
|||||||||
|
Sub auto_close()
'ツールボックスの表示 Toolbars(1).Visible = True Toolbars(2).Visible = True '警告メッセージOn に戻す Application.DisplayAlerts = True '画面更新あり に戻す Application.ScreenUpdating = False End Sub |
|||||||||
| ご意見・ご感想をお寄せください。info@beagle-hc.com ‖ このサイトについて | |||||||||
| Copyright 2006 - 2009 uTRAM Corp. All Rights Reserved | |||||||||
くすりのこと
