메시지 상자가 다른 셀을 초과하는 경우

Question

한 셀의 값이 다른 셀보다 작거나 큰 경우 VBA 코드를 작성하여 차이를 표시하는 가장 좋은 방법은 무엇입니까?

열 N은

열 R 총 결과 (화학식 생성)

경우 후 계산 열 R의 셀 열 N의 셀보다 작거나 클 포함 총 appts (수동 입력)를 포함 메시지 상자가 나타나서 총 결과가 # 개 미만인 경우 또는 총 결과가 # 개 이상인 경우

Answer 1

은 VBA 프로젝트에 필요한 시트에 다음 루틴을 추가 (예를 들어, 시트 1) 당신이 (세포의 전체 열 반대) 서로 두 개의 세포를 비교하려는 가정에

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target = Range("N1") Or Target = Range("R1") Then 'Only attempt to run the below code if target is a range you care about 

     If Range("R1").Value2 <> Range("N1").Value2 Then 
      MsgBox "Values differ" 
     End If 

    End If 

End Sub 

Answer 2

다음 달성한다

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Range("N1") > Range("R1") Then 
     MsgBox "Oops. Results less than Input by " & Abs(Range("N1") - Range("R1")) 
    End If 

    If Range("N1") < Range("R1") Then 
     MsgBox "Oops. Results greater than Input by " & Abs(Range("N1") - Range("R1")) 
    End If 

End Sub 

:

• 가 서로 개의 셀 비교를 할 때마다 시트 창 더는
• 팝업 당신이 시도 것을 적절한 메시지