Bir listedeki sonraki sayıları ilk değerden çıkarmak için VBA kodu

Bir numara listem var. Listedeki ilk sayıyı başlangıç ​​değeri olarak kullanmak ve sonraki sayıları VBA kullanarak çıkarmak istiyorum.

Birkaç başarısız girişimde bulundum:

Function less(rng As Range)
    X = 0

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

    Next

    less = X

End Function

Birincisi de dahil olmak üzere tüm değerlerin çıkarılmasını sağlar. Örneğin, 5,7,3,6 dizisi için kodum -21 verecek. Ama bekliyorum -11.

Denediğim diğer kod:

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

Sadece her değeri geçersiz kılar ve 0 olarak sonuçlanır.

Listedeki ilk değeri başlangıç ​​değeri olarak nasıl yapabilirim ve ardından bundan sonraki değerlerin alt çekimlerini nasıl yapabilirim?

Burada herhangi bir değerin işareti hakkında endişe duymuyorum, yalnızca ilk değerden başlamak ve sonraki değerleri çıkarmak için verilen mantıksal dizi.

Not: VBA'da yeniyim ve bu benim ilk kodlamam.

Düzenle (fixer1234 tarafından yapılan yorumlardan sonra)

Sorunuzu "çıkarmadan ilk değeri atlayın, ancak bunu başlangıç ​​değeri olarak ekleyin" olarak yorumlayın:

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

Bu aynı zamanda, 5, 7, 3, 6 aralığının -11 vermesi gerektiğini söylediğiniz yorumunuza göre olacaktır.