첫 번째 값에서 목록의 후속 숫자를 빼는 VBA 코드

나는 숫자 목록을 가지고있다. 목록의 첫 번째 숫자를 시작 값으로 사용하고 VBA를 사용하여 후속 숫자를 뺍니다.

나는 여러 번 실패한 시도를했다.

Function less(rng As Range)
    X = 0

    For Each cell In rng
    X = X - cell.Value

    Next

    less = X

End Function

첫 번째 값을 포함하여 모든 값의 빼기가 발생합니다. 예를 들어, 시퀀스 5,7,3,6에 대해 my 코드는 -21을 제공합니다. 하지만 나는 ~ 11을 기대합니다.

내가 시도한 다른 코드는 다음과 같다.

Function less(rng As Range)
    X = 0

    For Each cell In rng
    X = X + cell.Value
    X = X - cell.Value

    Next

    less = X

End Function

단지 각 값을 오버라이드하여 결과를 0으로 만듭니다.

목록의 첫 번째 값을 시작 값으로 만들고 그 다음 값의 빼기를 수행하려면 어떻게합니까?

나는 여기에 어떤 값의 부호에 대해서도 관심이 없다. 첫 번째 값으로 시작하여 후속 값을 빼는 논리적 인 순서 일 뿐이다.

참고 : 저는 VBA를 처음 사용하며 이것은 첫 번째 코딩입니다.

편집 (fixer1234에 의한 코멘트 이후)

귀하의 질문을 "뺄셈에서 첫 번째 값을 건너 뛰기 만 시작 값으로 포함 시키십시오"라고 해석하는 것은 다음과 같은 기능으로 달성 할 수 있습니다 :

Function less(rng As Range)
    Dim x, i As Integer
    Dim cell As Range

    For Each cell In rng
      If cell.Address = rng.Cells(1, 1).Address Then
        x = cell.Value
      Else
        x = x - cell.Value
      End If
    Next

    less = x
End Function

이것은 또한 범위 5, 7, 3, 6은 -11을 산출해야한다고 말한 귀하의 의견에 따를 것입니다