|
|
| |
| 本章では、プログラムの開始時や終了時に必要なコードサンプルを説明します。 |
| |
|
|
|
Sub プロシージャで、標準モジュールです。過去の Excel で使われていたもので、互換性維持のために残されています。 いずれもファイルが開いたとき／閉じる前に実行されるプロシージャです。 |
|
|
|
|
|
Application.Visible = False 'ウインドウを消す
Application.Visible = True 'ウインドウを復活 |
|
|
|
|
|
|
UserForm1.show '表示
Label1.Caption = "終了しました。" 'ユーザーフォームのキャプションに文言を設定
UnLoad UserForm1 '非表示 |
|
|
|
|
|
|
|
Application.ScreenUpdating = False 'ON
Application.ScreenUpdating = True 'OFF |
|
|
|
|
|
|
Application.DisplayAlerts = False |
|
|
|
|
|
|
Sub GetDocName()
Dim Docname As String
Docname = ActiveDocument.Name
End Sub
|
|
|
|
|
|
|
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 は実行されない
|
|
|
|
|
|
|
Set myCB_1 = Application.CommandBars("worksheet menu bar")
Set myCBCtl_1 = myCB_1.Controls.Add(Type:=msoControlPopup, Temporary:=True)
myCBCtl_1.Caption = "振替伝票"
With myCBCtl_1
.Controls.Add Type:=msoControlButton
With .Controls(1)
.Caption = "白紙伝票の追加"
.OnAction = "Den_Sakusei"
End With
.Controls.Add Type:=msoControlButton
With .Controls(2)
.Caption = "白紙伝票の挿入"
.OnAction = "Den_Sonyu"
End With
.Controls.Add Type:=msoControlButton
With .Controls(3)
.Caption = "トップ頁へジャンプ"
.OnAction = "Page_Jump_Top"
End With
.Controls.Add Type:=msoControlButton
With .Controls(4)
.Caption = "指定頁へジャンプ"
.OnAction = "Page_Jump"
End With
.Controls.Add Type:=msoControlButton
With .Controls(5)
.Caption = "最終頁へジャンプ"
.OnAction = "Page_Jump_Last"
End With
End With
|
|
|
|
|
|
|
Sub auto_open()
'警告メッセージOff
Application.DisplayAlerts = False
'画面更新なし
Application.ScreenUpdating = False
'本プログラム名のＧＥＴ
ThisBookName = ActiveDocument.Name
'Focus
ThisDocument.Activate
ActivateDocument.Range(1, 1).Select
End Sub
|
|
|
|
|
|
|
Sub auto_close()
'警告メッセージOn に戻す
Application.DisplayAlerts = True
'画面更新あり に戻す
Application.ScreenUpdating = False
End Sub
|
