' [053.xls]



' [Module1] のコード
'★★☆　ブックを複製して同時スクロール　☆★★

Option Explicit
Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub
Sub start_B()

    ActiveSheet.Shapes("ボタン 2").Select
    With Selection
        .Characters.Text = "実　行"
        .Font.ColorIndex = 13
    End With
    [A1].Activate
    
    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub
Sub start()

    '指定したオブジェクト(ここではActiveSheet.Shapes("ボタン 1"))に対して
    'With ステートメントで定義すると End With まで再定義する必要はありません
        ActiveSheet.Shapes("ボタン 2").Select
        With Selection
            If .Characters.Text = "実　行" Or _
                .Characters.Text = "このブックのウインドウは一つです" Then
                .Characters.Text = "このブックのウインドウは二つです"
                .Font.ColorIndex = 3
                
                'フォーカスをボタンからワークシートに移動
                [A1].Activate
                
                '自分自身のコピーを開く
                ThisWorkbook.NewWindow
                
                'ウィンドウの並べ替え方法を指定して実行
                'SyncHorizontalは水平スクロールの同期をとる
                'SyncVertical は垂直スクロールの同期をとる
                Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled, _
                ActiveWorkbook:=True, SyncHorizontal:=True, SyncVertical:=True
                ActiveSheet.Shapes("ボタン 3").Visible = False
            Else
                .Characters.Text = "このブックのウインドウは一つです"
                .Font.ColorIndex = 5
                
                '現在アクティブになっているWindowを閉じます
                ActiveWindow.Close
                
                '現在アクティブになっているWindowを最大表示します
                ActiveWindow.WindowState = xlMaximized
                
                ActiveSheet.Shapes("ボタン 3").Visible = True
            End If
            
         End With
         
    [A1].Activate
    
End Sub