複数のシートにworkbook_openを適用する方法

Question

多くのユーザーが毎日、異なる解像度、画面ズームなどで複数のモンティアと交流するExcelブックがあります。必要な各シートの範囲に合わせてすべてのワークシートが必要ですユーザーは毎回見ることができます。

以下は1つのワークシートのために動作しますが、どのように私はそれがすべてのワークシート（シート1、シート2、など。）

Private Sub Workbook_Open() 
With Sheets("Sheet1") 
    Columns("A:P").Select 
    ActiveWindow.Zoom = True 
    Range("A1").Select 
End With 
End Sub 

Answer 1

あなたはWorksheet_Activateイベントを使用することができ、および場所コードに適用することになるだろうなど

Private Sub Worksheet_Activate() 
    Columns("A:P").Select 
    ActiveWindow.Zoom = True 
    Range("A1").Select 
End Sub 

各シートに必要に応じて範囲を編集します。

あなたはもう少し複雑で、使用何かを使用する必要があるかもしれませんので、またはあなたは、何をしたいと思いもしなくてもよいシートがアクティブになるたびに、実行されるコード：

Private AlreadyRun As Boolean 
Private Sub Worksheet_Activate() 
    If Not AlreadyRun Then 
     Columns("A:P").Select 
     ActiveWindow.Zoom = True 
     Range("A1").Select 
     AlreadyRun = True 
    End If 
End Sub 

をどののみとなります何かシートは（AlreadyRun変数はもともとFalseになりますように、それが一度実行されるとTrueに変更されます）が活性化される最初の時間を行う、またはシートにそれが起動するたびにサイズが変更されます

Private AlreadyRun As Boolean 
Private Sub Worksheet_Activate() 
    Dim CurRng as Range 
    Set CurRng = Selection 
    Columns("A:P").Select 
    ActiveWindow.Zoom = True 
    CurRng.Select 
    If Not AlreadyRun Then 
     Range("A1").Select 
     AlreadyRun = True 
    End If 
End Sub 

最初に選択したセルをA1に移動するだけです。

はワークブックがワークブックが再オープンさWorksheet_Activateイベントを通過していない保存されたときに、現在のあるシートに起因する問題を回避するには、

Private Sub Workbook_Open() 
    Application.Screenupdating = False 
    Dim ws As Worksheet 
    Set ws = Activesheet 

    'For the next two lines, just pick any two of your worksheets 
    'All it is trying to do is to ensure whichever sheet was active at open 
    'is deactivated before being activated again in the "ws.Activate" command 
    Worksheets("Sheet1").Activate 
    Worksheets("Sheet2").Activate 

    ws.Activate 
    Application.Screenupdating = True 
End Sub 

（無効Screenupdatingを言うのWorkbook_Openイベントを含むことができ、イベントが実行されている間は、ユーザーにはワークシートの「ちらつき」が見られなくなります）。