Вычитание из массива ячеек

[Dementr]

Народ, доброго времени суток.
Помогите, пожалуйста. Есть массив цифр из которого нужно вычесть число. Результат должен выглядеть как соразмерный массив, вычитание нужно вычислять из последней ячейки до нуля, если вычитаемое больше, то остальное вычитается из следующей ячейки и т.д.

[Valick]

На заре на столе
Разноцветны стёклышки
Разноцветны тряпочки-
Непонятно ни хрена

[Dementr]

Пример приложил. Еще раз попробую:
Первый - Три ячейки 12, 22, 42. Вычитаемое 50. В результате должно получится 12, 14, 0.
Второй - Три ячейки 12, 22, 42. Вычитаемое 100. В результате должно получится 0, 0, 0.
Третий - Три ячейки 12, 22, 42. Вычитаемое 10. В результате должно получится 12, 22, 32.
Начинать вычитание нужно с крайней правой ячейки до нуля, если вычитаемое число больше значения в ячейке, то остаток вычесть из следующей ячейки и т.д.
Как-то так.
Надеюсь, что понятно.

[Elixi]

Dementr, похоже математики вам предложат более красивый пример

Sub Test()
    Dim M, V, i
    
    M = Array(1, 12, 10, 10, 10, 10, 0, 10, 3, 10, 10, 10, 10)
    V = 56
'    M = Array(12, 22, 42)
'    V = 100
'    V = 50
    
    For i = LBound(M) To UBound(M)
        Debug.Print M(i),
    Next
    Debug.Print
    
    For i = UBound(M) To LBound(M) Step -1
        Select Case True
        Case V > M(i)
            V = V - M(i)
            M(i) = 0
        Case V = M(i)
            V = 0
            M(i) = 0
        Case V < M(i)
            M(i) = M(i) - V
            V = 0
        End Select
    Next
    

    For i = LBound(M) To UBound(M)
        Debug.Print M(i),
    Next
    Debug.Print
End Sub

[Dementr]

Спасибо тебе, добрый человек!
Немного допилил под свои таблички и все отлично работает.