EXCEL VBA エラーかどうがを判定します。数式エラー・数値表示によるエラー（###）列幅調整（ISERROR関数）

EXCEL VBA エラーかどうがを判定します。数式エラー・数値表示によるエラー（###）列幅調整（ISERROR関数）

'
'
Sub IsError00() 'セル（A1）に登録されている数式がエラーかどうかを調べる。

    Dim Ans As Boolean

    Ans = IsError(Range("A1").Value)  'セル（A1）が数式エラーか判定します。

    If Ans = True Then  'エラー判定結果が、「True」の場合はエラーが発生。「False」の場合はエラーが発生していない。
        MsgBox Range("A1").Formula & vbCrLf & "はエラーです。’エラー原因の数式をメッセージボックスに表示します。"
    End If
    
End Sub
'

EXCEL VBA エラーかどうかを判定します。各種エラーに対して原因をメッセージボックスに表示します。（ISERROR関数）

'
'
Sub IsError01() 'セルに登録されているセルの数式がエラーがどうかを調べる・
     
    Dim Ans As Boolean
    Dim I, lRow As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を把握します。
    
    For I = 2 To lRow  'A列の最終行まで繰り返します。
    
    Ans = IsError(Cells(I, "A").Value)  '該当セルの数式がエラーか判定します。
  
        If Ans = True Then  '該当セルの判定結果が「True」エラーが発生している場合は、以下の処理を実行、
            MsgBox Cells(I, "A").Formula & vbCrLf & "はエラーです。"  'エラー原因の数式をメッセージボックスに表示します。
        End If
        
    Next I
    
End Sub
'

EXCEL VBA エラーかどうかを判定します。エラーに対して原因を別のセルに表示します。（ISERROR関数）

'
'
Sub IsError02() '数式エラーには背景色と隣のセルにエラー内容を表示する。

    Dim Ans As Boolean
    Dim I, lRow As Long
    
    lRow = Cells(Rows.Count, "D").End(xlUp).Row  'D列の最終行を把握します。
    Range("D2:D" & lRow).Interior.ColorIndex = 0 'D列の背景色を元にもどす。（白）
    Range("F2:F" & lRow).ClearContents 'エラー原因を表示するF列をクリアします。
    
    For I = 2 To lRow 'D列の最終行まで繰り返します。

        Ans = IsError(Cells(I, "D").Value)  '該当セルの数式がエラーか判定します。
        
        If Ans = False Then  '該当セルの判定結果が「False」エラーが無い場合は、以下の処理を実行
                Cells(I, "F") = "問題なし"
            Else
                Cells(I, "F") = "'" & Cells(I, "D").Formula & "はエラーです。"  'エラー原因の数式をF列に表示します。
                Cells(I, "D").Interior.ColorIndex = 3  'エラー原因のセルの背景色を赤にします。
        End If

    Next I


End Sub
'

EXCEL VBA セルの内容が正しいのに「###」が表示されるときの対処法・セル幅の自動調整(セル幅が狭い)

'
'
Sub IsError03()  'セルに###が表示されている列のセル幅を自動調整します。

    Dim Rng As Range
    
    For Each Rng In Range("A1:F1")  'セルA１～F1まで繰り返します。

        If Not IsError(Rng.Value) Then    '該当のセルにエラーが発生しているか判定します。
            If Rng.Value <> Rng.Text And Left(Rng.Text, 1) = "#" Then  '該当のセルの左側が”＃”か判定します。
                Rng.EntireColumn.AutoFit  'エラーが発生および”#”の表示せるに該当する列幅を自動調整する。
            End If
        End If
    
    Next Rng

End Sub
'

EXCEL VBA ブック全体のワークシートに対して、セルの内容が正しいのに、セル幅が縮小され「###」表示されるときの対処法・セル幅の自動調整②

'
'
Sub IsError05()    '全てのワークシートの表を対象にのセルに###が表示されている列のセル幅を自動調整します。

    Dim Ws As Worksheet
    Dim ColTemp As New Collection
    Dim Rng, HaniRng As Range
    Dim I As Long
    
    For Each Ws In Worksheets '全てのワークシートを繰り返します。
    
    On Error Resume Next  'エラーが発生しても続行する。
    
    Set HaniRng = Ws.Range("A1").CurrentRegion  '各ワークシートのセル「A1」を起点に表範囲を取得します。
    
    Ws.Activate  'ワークシートを順番にアクティブにします。
        For Each Rng In HaniRng  'セル「A1」を起点に取得した表範囲を順番に繰り返します。
            If Not IsError(Rng.Value) Then    '該当のセルにエラーが発生しているか判定します。
                If Rng.Value <> Rng.Text And Left(Rng.Text, 1) = "#" Then  '　セルに"###"
                    ColTemp.Add Rng.Column, "Key" & Rng.Column  'コレクションに登録する。（一意の列を登録します）
                End If
            End If
        Next Rng
    
        For I = 1 To ColTemp.Count  'コレクションに登録した分繰り返す。
            Ws.Columns(ColTemp(I)).EntireColumn.AutoFit  '該当した列に対して列は幅を調整します。
        Next I
          
    Next Ws '最後のワークシートまで繰り返します。

End Sub
'
'