'=========================================================================================
'　146　指定回数繰り返した文字列を作る
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 回数 As Integer                             '★★★
Dim 文字列 As String                            '★★★
Dim I As Integer
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'=========================================================================================
Private Sub 指定回数繰り返した文字列を作る()
    文字列 = Application.Rept("●", 回数)       '★★★
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
'
    For I = 8 To 11                            '8から11行目まで
        回数 = Cells(I, 5).Value                'E列の回数を取り出す
        指定回数繰り返した文字列を作る            '★★★ サププロシージャーを実行する
        Cells(I, 6).Value = 文字列              'できた文字列をF列のセルにセットする
    Next                                        '繰り返す
    Range("P17").Select                        'カーソルを定位置へ移動する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    Range("F8:I11").ClearContents               '文字列を一旦消す
    Range("E8").Select                          '動きを分かりやすくするため
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "E8セルの「回数」で繰り返した●の文字列を作り、" & Chr(13) & Chr(13) & _
                "F8セルにセットします    （E9〜E11も同様）"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------