как создать цикл с условием

[leones911]

Здравствуйте, уже мозги кипят не могу решить задачу в Exel. Задача стоит следующим образом есть столбец с вводимыми вручную цифрами (к примеру это 900 900 900 900 1000 1000 1000 1000 1100 1100 1100 1100 (всего ячеек с цифрами будет не более 20, но последние могут быть и нулевыми)) нужно сделать что бы осуществлялся пересчет с условием. Цикл вижу примерно таким если а+б<6000, то суммируем дальше, если а+б+ц<6000, то суммируем дальше, если же а+б+ц>=то останавливаем цикл и запускаем новый начиная с "ц" опять же проверяя что бы сумма не превышала 6000. и так дальше. В результате должен выдаваться результат сколько произведено циклов и какое число сталось при конечном расчете (6000-сумма в последнем цикле). Подскажите пожалуйста как такое реализовать в Exel?

[maksim_serg]

Как то так:

Sub v()
    Dim SUM, tSUM, n
    
    For r = 1 To 20
        tSUM = SUM + Cells(r, столбец_с_вводимыми_вручную_цифрами.номер)
        If tSUM < 6000 Then
            SUM = tSUM
        Else
            SUM = Cells(r, столбец_с_вводимыми_вручную_цифрами.номер)
            n = n + 1
        End If
    Next
    MsgBox "Кол-во полных циклов:" & vbTab & n & vbNewLine & _
           "Оставшееся число:" & vbTab & vbTab & (6000-SUM)
End Sub

[IgorGO]

или так

Sub v()
    Dim SUM, n, c
    c = 2 ' сюда напишите № столбца с Вашими данными
    For r = 1 To 20
        SUM = SUM + Cells(r, c)
        do while SUM >= 6000
            n = n+1
            SUM = SUM-6000
        loop
    Next
    MsgBox "Кол-во полных циклов:" & vbTab & n & vbNewLine & _
           "Оставшееся число:" & vbTab & vbTab & SUM
End Sub

[leones911]

Большое спасибо