'=========================================================================================
' 317 ワークシートがアクティブになったらソートする
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードです。
' タイトル機能に関係するマクロは、Sheet2（名簿シート）のコード画面にあります。


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


'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    Worksheets("Title").Select
    Range("P17").Select                         'カーソルを定位置へ移動する
    名簿シートのデータを初期化する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 32 + 4                           'vbQuestion + vbYesNo
    メッセージ = "「名簿シート」がアクティブになったらソートしますか" & Chr(13) & Chr(13) & _
                "（どちらかのボタンをクリックしてから、「名簿シート」を選択してみてください）"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 名簿シートのデータを初期化する()
    Worksheets("名簿").Range("A2").Value = "サトウ　アヤ"
    Worksheets("名簿").Range("A3").Value = "カトウ　カズオ"
    Worksheets("名簿").Range("A4").Value = "イトウ　イチロウ"
    Worksheets("名簿").Range("A5").Value = "ムトウ　サキ"
    Worksheets("名簿").Range("A6").Value = "コンドウ　エイスケ"
    Worksheets("名簿").Range("A7").Value = "アンドウ　ユミ"
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆Sheet2のコード◆
'-----------------------------------------------------------------------------------------
Private Sub Worksheet_Activate()    '★★★ Sheet2（名簿シート）がアクティブになると実行される
    If 応答 = vbYes Then                    'メッセージボックスでの応答が「はい」なら
        Range("A2").Select
        Selection.Sort Key1:=Range("A2"), Header:=xlGuess 'ソートする
    End If
End Sub
'=========================================================================================