다른 배열 vba에 배열 값을 확인하는 방법

Question

두 개의 배열이 있습니다. 첫 번째는 Litems (i)이고 두 번째 배열은 tcols (k)입니다. 배열 점검 방법 Litems (i) 값은 액세스 VBA를 사용하여 tcol (k) 배열에 있습니다.

Answer 1

은 일치하는 값을 찾기 위해 다음과 같은 시도 :

Dim lSize1 As Long 
Dim lSize2 As Long 
Dim lX1  As Long 
Dim lX2  As Long 
lSize1 = UBound(Litems) 
lSize2 = UBound(tcols) 
For lX1 = 1 To lSize1 
    For lX2 = 1 To lSize2 
     If Litems(lX1) = tcols(lX2) Then 
      Debug.Print "Match: Litems item " & lX1 & " = tcols item " & lX2 & vbTab & "Value = " & Litems(lX1) 
     End If 
    Next lX2 
Next lX1 

가 일치하지 않는 값을 찾기 위해 다음과 같은 시도 :

Dim lSize1 As Long 
Dim lSize2 As Long 
Dim lX1  As Long 
Dim lX2  As Long 
dim blnFound as Boolean 

lSize1 = UBound(Litems) 
lSize2 = UBound(tcols) 

For lX1 = 1 To lSize1 
    blnFound = False 
    For lX2 = 1 To lSize2 
     If Litems(lX1) = tcols(lX2) Then 
      blnFound = True 
     End If 
    Next lX2 
    If blnFound = False Then 
     Debug.Print "No Match for: Litems item " & lX1 
    End If 
Next lX1