'=========================================================================================
' 235 ISERRORでエラー値かどうか調べる
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 検査結果 As Boolean                     '★★★
Dim 行 As Long                              '★★★
Dim 列 As Integer                           '★★★
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant


'=========================================================================================
Private Sub ISERRORでエラー値かどうか調べる() '★★★
    For 行 = 8 To 14
        検査結果 = IsError(Range(Cells(行, 列), Cells(行, 列)).Value)
        If 検査結果 Then
            Range(Cells(行, 列 + 4), Cells(行, 列 + 4)).Value = ""
        Else
            Range(Cells(行, 列 + 4), Cells(行, 列 + 4)).Value = Range(Cells(行, 列), Cells(行, 列)).Value
        End If
    Next
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
'
    行 = 8                                      '8行
    列 = 5                                      'E列
    ISERRORでエラー値かどうか調べる             '★★★
'
    列 = 6                                      'F列
    ISERRORでエラー値かどうか調べる             '★★★
'
    Range("P17").Select                         'カーソルを定位置へ
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    Range("I8:K14").ClearContents               'クリアする
    Range("E8:F14").Select                      '動きをわかりやすくするため選択する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    メッセージ = "E8〜F14セルの値を、I8〜J14セルに写します。" & Chr(13) & Chr(13) & _
                "ただし、エラー値の場合は、Nullをセットします"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------