'=========================================================================================
' 121 マウスで選択されたセル範囲に色付けする
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。
' Sheet1とSheet3にもコードがあり、標準モジュールのコードと連係して動作します


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Public 色番号 As Variant                        '★★★
Public タイトル As String
Public スタイル As Long
Public メッセージ As String
Public 応答 As Variant



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
        Range("P17").Select
        ActiveWindow.WindowState = xlMaximized
        ActiveWindow.NewWindow
        Windows.Arrange ArrangeStyle:=xlHorizontal
        With ActiveWindow
            .DisplayGridlines = False
            .DisplayHeadings = False
        End With
    Windows("121.xls:1").Activate
    Sheets("Sheet1").Select
        With ActiveWindow
            .DisplayGridlines = False
            .DisplayHeadings = False
        End With
    Windows("121.xls:2").Activate
    Sheets("Title").Select
    Range("R14").Select
        タイトル = "500連発 第2弾 サンプルマクロ"
        スタイル = 64                               'vbInformation
        メッセージ = "色を選択するには、" & Chr(13) & Chr(13) & _
                "[OK]ボタンを押してから、マウスで" & Chr(13) & Chr(13) & _
                "上のシートの 1番から 56番の任意のセル上で、" & Chr(13) & _
                "ダブルクリックしてください"
        応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub ダブルクリックイベントを無効にする()        'デバッグ時の手動操作用
    Application.EnableEvents = False
End Sub
'-----------------------------------------------------------------------------------------
Sub ダブルクリックイベントを有効にする()        'デバッグ時の手動操作用
    Application.EnableEvents = True
End Sub
'-----------------------------------------------------------------------------------------
Sub 閉じる()
    Windows("121.xls:2").Activate
    ActiveWindow.Close
    Sheets("Title").Select
    ActiveWindow.WindowState = xlMaximized
    Range("R14").Select
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆Sheet1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.Interior.ColorIndex = 色番号      '選択されたセル範囲に色付けする
End Sub
'=========================================================================================



'=========================================================================================
' ◆Sheet3のコード◆
'-----------------------------------------------------------------------------------------


'=========================================================================================
'セルをダブルクリックしたときに実行するマクロ
'-----------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    色番号 = ActiveCell.Value                   'アクティブセルの値
    Windows("121.xls:1").Activate
    Sheets("Sheet1").Select
    メッセージ = "[OK]ボタンをクリックしてから、マウスで" & Chr(13) & _
                "下のシートの任意のセル範囲を、選択してください"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'=========================================================================================