'=========================================================================================
' 013 所要時間を計測する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 開始時刻 As Variant                         '★★★
Dim 終了時刻 As Variant                         '★★★
Dim 所要時間 As Variant                         '★★★
Dim i As Integer
Dim j As Long
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
'=========================================================================================
Sub 所要時間を計測する()
    開始時刻 = Time                             '開始時刻を取り出す
        作業1を実行する                         'ここで必要な処理を行う（この場合は作業１）
    終了時刻 = Time                             '終了時刻を取り出す
    所要時間 = (終了時刻 - 開始時刻) * 24 * 60 * 60 '所要時間を秒に換算する
    Range("Y8").Value = 所要時間               '所要時間をセルにセットする
'
    開始時刻 = Time
        作業2を実行する
    終了時刻 = Time
    所要時間 = (終了時刻 - 開始時刻) * 24 * 60 * 60
    Range("Y10").Value = 所要時間
'
    開始時刻 = Time
        作業3を実行する
    終了時刻 = Time
    所要時間 = (終了時刻 - 開始時刻) * 24 * 60 * 60
    Range("Y12").Value = 所要時間
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 作業1を実行する()
    For i = 0 To 9                              '
        For j = 1 To 300000: Next
        Range(Cells(8, 5 + i), Cells(8, 5 + 1)).Value = "■"
    Next
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 作業2を実行する()
    For i = 0 To 5
        For j = 1 To 300000: Next
        Range(Cells(10, 5 + i), Cells(10, 5 + 1)).Value = "◆"
    Next
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 作業3を実行する()
    For i = 0 To 18
        For j = 1 To 300000: Next
        Range(Cells(12, 5 + i), Cells(12, 5 + 1)).Value = "■"
    Next
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
    所要時間を計測する                          '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
        Range("E8:W8").Value = ""
        Range("E10:W10").Value = ""
        Range("E12:W12").Value = ""
        Range("Y8").Value = ""
        Range("Y10").Value = ""
        Range("Y12").Value = ""
        Range("AD17").Select                    'カーソルを定位置へ移動する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "作業1〜3を実行して、それぞれの" & Chr(13) & Chr(13) & _
                "所要秒数をセットします"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------