Excelを開いたときに印刷領域とオートフィルターをクリアしようとしています:Excel vbaの初心者なので、グーグルで次のコードを組み立てましたこのコードは、XLstartフォルダーのPersonal.xlsbのThisWorkbookに入れました。もちろん、マクロセキュリティはに設定されていますすべてのマクロを有効にする
Option Explicit
Public WithEvents xlApp As Excel.Application
Private Sub Workbook_Open()
Set xlApp = Application
End Sub
Private Sub Workbook_Close()
Set xlApp = Nothing
End Sub
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
Application.EnableEvents = False
Call ClrPrntArea
Application.EnableEvents = True
End Sub
ClrPrntArea はこちら
Sub ClrPrntArea()
Dim ws As Object
For i = 1 To ActiveWorkbook.Worksheets.count
With Worksheets(i)
.PageSetup.PrintArea = ""
.PageSetup.FitToPagesWide = 1
End With
Next
End Sub
また、上記の作業が開始されたら、autofiter をリセットするために、モジュールへの別のマクロ呼び出しを個人用 xlsb に配置します。