ＥＸＣＥＬＶＢＡ閉じるときに行うコマンド

質問

ＥＸＣＥＬ　ＶＢＡ　で
ブック閉じるときに一番左のシートをアクティブにして閉じたいのですが、構文教えてください。

回答No.1

kkkkkm · ベストアンサー

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Activate
ThisWorkbook.Save
End Sub

もしくは

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Select
ThisWorkbook.Save
End Sub

閉じるときに一番左のシートをアクティブにして次回開いた時にその状態を保ちたい場合はアクティブにした状態で保存して閉じます。
閉じるときに保存しない場合は保存した時にアクティブになっていたシートが次回開いた時にアクティブになっています。

開く時に一番左のシートをアクティブにした場合は保存時にどのシートがアクティブになっていても開いた時には一番左のシートがアクティブになります。

Private Sub Workbook_Open()
Sheets(1).Activate
End Sub

もしくは

Private Sub Workbook_Open()
Sheets(1).Select
End Sub

お礼

ありがとうございます。早速試して見ます。

Powered by GRATICA