'=========================================================================================
' 179 指定セル範囲で端セルを他のセルにコピーする
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


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


'=========================================================================================
Private Sub 指定セル範囲で端セルを他のセルにコピーする()
    Worksheets(シート名).Range(セル範囲).FillDown '★★★
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
    シート名 = "Title"                          '★★★
    セル範囲 = "E8:E13"                         '★★★
    指定セル範囲で端セルを他のセルにコピーする      '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    Range("E9:E13").ClearContents               'クリアする
    ActiveSheet.Unprotect
    Range("E9:E13").Interior.ColorIndex = xlNone
    ActiveSheet.Protect
    Range("E8").Select                          '数式を見せるために選択する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "E8 セルには数式と中央揃えと黄色が、設定されています。" & Chr(13) & Chr(13) & _
                "FillDownメソッドで、セル範囲を E8:E13 に指定して、" & Chr(13) & Chr(13) & _
                "端セル(E8)の内容と書式を、範囲内のほかのセル(E9:E13)に複写します"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------