범위 내 오류 존재여부 확인 :: IsErrorInArray 명령문 사용법 및 전체 코드

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'■ IsErrorInArray 함수
'■ 지정한 배열 또는 범위 내 오류 존재여부를 확인합니다.
'■ 인수 설명
'_____________vaArray           : 오류 존재여부를 확인할 범위 또는 배열입니다.
'_____________ErrDescription    : 특정오류 존재여부만 확인할 경우, 쉼표(,) 로 구분하여 입력합니다.
'###############################################################
Function IsErrorInArray(vaArray As Variant, Optional ErrDescription As String = "") As Boolean
 
Dim v As Variant
Dim ErrList As Variant: Dim Err As Variant
 
ErrList = Split(ErrDescription, ",")
 
For Each v In vaArray
    If VarType(v) = 10 Then
        If ErrDescription = "" Then
            IsErrorInArray = True: Exit Function
        Else
            For Each Err In ErrList
                If v.Text = Trim(Err) Then IsErrorInArray = True: Exit Function
            Next
        End If
    End If
Next
 
IsErrorInArray = False
 
End Function