세 번째 셀의 두 셀 간의 차이

Question

두 셀 사이의 차이점을 계산하여 세 번째 셀에 배치하는 VBA 스크립트를 만들려고했습니다. 다음 상황에서 작동해야합니다.

1. 세 개의 셀이 선택됩니다. 그 중 두 개는 값을 가지며 세 번째 것은 비어 있습니다.
2. VBA 스크립트가 실행됩니다.
3. VBA 스크립트는 값이있는 셀 간의 차이를 계산합니다.
4. 차이점은 세 번째 (공백) 셀에 기록됩니다.

당신이 이해할 수 있듯이 이러한 VBA 스크립트는 오른쪽, 아래, 왼쪽 또는 위의 셀에서 차이를 기록 할 수 있어야합니다.

저는 vba에서 초보자입니다. 따라서 내 vba 코딩은 포럼에서 많이 달라지며 비슷한 문제가 논의되었습니다. 그러나 이번에는 해결책을 찾지 못했습니다.

Answer 1

이 시도 :

Dim rng As Range, cel As Range 

Set rng = Selection 

If rng.Cells.Count <> 3 Then Exit Sub 

With Application.WorksheetFunction 
    If .CountA(rng) <> 2 Then Exit Sub 
    For Each cel In rng 
     If cel.Value = "" Then 
      Select Case True 
      Case cel.Address = rng(1).Address 
       cel.Value = rng(2)-rng(3) 
      Case cel.Address = rng(2).Address 
       cel.Value = rng(1)-rng(3) 
      Case cel.Address = rng(3).Address 
       cel.Value = rng(1)-rng(2) 
      End Select 
      Exit For 
     End If 
    Next 
End With 

당신에게 맡겨 소이 테스트하지.
simoco 용으로 편집 됨