배열의 값을 비교하고 결과를주는 VPA 프로그램

Question

배열에 변수가 있습니다. "예", "아니오", "NA"또는 "-"일 수 있습니다. 예를 들어, 배열 arr (1 t0 5) 있습니다. 값은 '예, 예, 아니오, 아니오 & 예'입니다. 어레이의 길이는 다를 수 있습니다. 위의 네 가지 값 ("Yes", "No", "NA"또는 "-")을 사용하면 조합이 달라질 수 있습니다. 내 요구 사항은 배열의 값을 비교하고 결과를 셀의 Excel 작업 시트. 예를 들어 array의 모든 값이 'Yes'또는 'NA'이면 결과는 'Yes'여야합니다. 값이 'No'또는 '-'이면 결과는 'No'여야합니다.

Answer 1

Application.Match을 사용하여 arr 배열에 적어도 1 개의 "아니오"가 있는지 찾을 수 있습니다.

Option Explicit 

Sub CheckArray() 

Dim arr As Variant 
Dim Res As Variant, r As Variant 
Dim Result As String 

' test #1: at least 1 "No" or "-" in array 
arr = Array("Yes", "-", "Yes", "NA", "Yes") 

Res = Application.Match(Array("No", "-"), arr, 0) 
For Each r In Res 
    Result = "Yes" ' init value 
    If Not IsError(r) Then ' <-- at least 1 result of "-" or "No" found 
     Result = "No" 
     Exit For 
    End If 
Next r  
' === The result is "No" === 


' test #2: there are no "No" or "-" in the array 
arr = Array("Yes", "NA", "Yes", "NA", "Yes") 

Res = Application.Match(Array("No", "-"), arr, 0) 
For Each r In Res 
    Result = "Yes" ' init value 
    If Not IsError(r) Then ' <-- at least 1 result of "-" or "No" found 
     Result = "No" 
     Exit For 
    End If 
Next r 

' === The result is "Yes" === 

End Sub