VBA 초보자를위한 까다로운 기능

Question

여기 내 문제가 있습니다. 2 개의 다른 워크 시트에 2 세트의 셀을 비교해야합니다.

시트 1에서 셀 A1 및 A2. 시트 2에서 셀 A1 및 A2.

시트 1에서 각 셀은 한 자리 숫자로 채워지며 하나는 다른 셀보다 큽니다 (예 : 1-2, 2-1, 3-1 등).

시트 2에서 셀 중 하나만 한 자리 숫자로 채워집니다. 다른 셀은 항상 비어 있습니다.

시트 2의 비어있는 셀이 큰 숫자를 포함하는 시트 1의 셀과 동일한 셀인지 확인해야합니다.

불행히도 VBA에 대한 지식이 부족하여 튜토리얼에서 배우려고하지만 그 것을 작성하는 방법을 알아낼 수 없습니다. 누군가 제가 제발 도와 주실 수 있습니까?

대단히 감사합니다.

Answer 1

Sub DoIt() 
    Dim Sh1 As Worksheet, Sh2 As Worksheet 
    Set Sh1 = Worksheets("First") 
    Set Sh2 = Worksheets("Second") 
    Dim iValue1 As Long 
    If Sh1.Cells(2, 1) > Sh1.Cells(1, 1) Then 
     iValue1 = Sh1.Cells(2, 1) 
    Else 
     iValue1 = Sh1.Cells(1, 1) 
    End If 
    Dim iValue2 As Long 
    If Len(Sh2.Cells(2, 1)) = 0 Then 
     iValue2 = Sh2.Cells(1, 1) 
    Else 
     iValue2 = Sh2.Cells(2, 1) 
    End If 
    If iValue1 = iValue2 Then 
     MsgBox "Equal" 
    Else 
     MsgBox "Different" 
    End If 
End Sub