задать букву (по англ. алфавиту) в столбце 'Station' по критериям.

[jungo]

Прощу помощи 2
Упрощение прошлой задачки

(http://www.programmersforum.ru/showthread.php?t=19517)
В примере, напротив 'Name' у которых есть значение 'time work' нужно задать букву (по англ. алфавиту) в столбце 'Station' по критериям:
Снизу вверх в каждой букве, в сумме максимум 40 'time work'.

Не проходите мимо!

* Sorry... Спасибо за поправку Названия ТЕМЫ.

[SAS888]

Не знаю, на сколько правильно я Вас понял.
Помня о том, что по каким-то причинам, у Вас не всегда нормально читаются вложения, представляю код макроса. Вставьте его в файл и запустите.

Sub Simv()

    Dim NSimv As Integer, i As Long, Sum As Long
    
    Columns("C").ClearContents
    NSimv = 65: Sum = 0
    
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
        If Cells(i, "B") <> "" Then
            Sum = Sum + Cells(i, "B")
            If Sum > 40 Then
                NSimv = NSimv + 1
                Cells(i, "C") = Chr(NSimv)
                Sum = Cells(i, "B")
            Else
                Cells(i, "C") = Chr(NSimv)
            End If
        End If
    Next

End Sub

[IgorGO]

цитата "я человек военный, поэтому мне необходимо все говорить медленно и повторять ДВА раза!"

я не военный, но понял что требуется в задаче только сейчас)))... потому что это повтор задачи и читал я все медленно.

[jungo]

Сообщение от SAS888

Не знаю, на сколько правильно я Вас понял.
Помня о том, что по каким-то причинам, у Вас не всегда нормально читаются вложения, представляю код макроса. Вставьте его в файл и запустите.

Sub Simv()

    Dim NSimv As Integer, i As Long, Sum As Long
    
    Columns("C").ClearContents
    NSimv = 65: Sum = 0
    
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
        If Cells(i, "B") <> "" Then
            Sum = Sum + Cells(i, "B")
            If Sum > 40 Then
                NSimv = NSimv + 1
                Cells(i, "C") = Chr(NSimv)
                Sum = Cells(i, "B")
            Else
                Cells(i, "C") = Chr(NSimv)
            End If
        End If
    Next

End Sub

Всё супер!!!
Зло берёт! Я бился три дня, ночью заснуть не мог а вы так ОП! и всё готово!!!
И очень прошу, если можно обьяснить мне этот макрос.

[SAS888]

1) Очищаем столбец "C".
2) Присваиваем значения переменным: NSimv = 65 - код символа "A" по таблице ASCI, Sum=0 - начальное значение промежуточной суммы.
3) Организуем цикл от последней заполненной строки в столбце "B" до строки 2 с шагом -1 (снизу вверх).
4) Если очередная ячейка пуста - пропускаем.
5) К текущей сумме прибавляем значение текущей ячейки.
6) Если сумма превышает 40 - увеличиваем код символа на 1 и в ту же строку столбца "C" помещаем символ, соответствующий этому коду (т.е. следующий), и присваиваем сумме значение текущей ячейки (начинаем сложение заново). Иначе - в строку столбца "C" помещаем символ, соответствующий текущему коду.
Вот и все.

[jungo]

Сообщение от SAS888

1) Очищаем столбец "C".
2) Присваиваем значения переменным: NSimv = 65 - код символа "A" по таблице ASCI, Sum=0 - начальное значение промежуточной суммы.
3) Организуем цикл от последней заполненной строки в столбце "B" до строки 2 с шагом -1 (снизу вверх).
4) Если очередная ячейка пуста - пропускаем.
5) К текущей сумме прибавляем значение текущей ячейки.
6) Если сумма превышает 40 - увеличиваем код символа на 1 и в ту же строку столбца "C" помещаем символ, соответствующий этому коду (т.е. следующий), и присваиваем сумме значение текущей ячейки (начинаем сложение заново). Иначе - в строку столбца "C" помещаем символ, соответствующий текущему коду.
Вот и все.

Всё гинеальное простынь...
Огромное спасибо!

[IgorGO]

Во вложении есть формула, расставляющая буквы...

[jungo]

Сообщение от IgorGO

Во вложении есть формула, расставляющая буквы...

Немогу открыть ЕКСЕЛЬ из за кирилицы, можно формулу в пост?

[IgorGO]

=ЕСЛИ(RC[-1]="";;СИМВОЛ(КОДСИМВ(СМЕЩ(RC;МИН(ЕСЛИ(R[1]C:R46C=0;10000;СТРОКА(R[1]C:R46C)-СТРОКА()));))+ ЕСЛИ(СУММ(RC[-1]:R46C[-1])-СУММПРОИЗВ(R[1]C[-1]:R46C[-1]*(R[1]C:R46C<СМЕЩ(RC;МИН(ЕСЛИ(R[1]C:R46C=0;10000;СТРОКА(R[1]C:R46C)-СТРОКА()));)))<=40;;1)))

это формула массива. в 46 строку в 3-й колонке надо поместить латинскую А (после таблицы)

[jungo]

Сообщение от IgorGO

=ЕСЛИ(RC[-1]="";;СИМВОЛ(КОДСИМВ(СМЕЩ(RC;МИН(ЕСЛИ(R[1]C:R46C=0;10000;СТРОКА(R[1]C:R46C)-СТРОКА()));))+ ЕСЛИ(СУММ(RC[-1]:R46C[-1])-СУММПРОИЗВ(R[1]C[-1]:R46C[-1]*(R[1]C:R46C<СМЕЩ(RC;МИН(ЕСЛИ(R[1]C:R46C=0;10000;СТРОКА(R[1]C:R46C)-СТРОКА()));)))<=40;;1)))

это формула массива. в 46 строку в 3-й колонке надо поместить латинскую А (после таблицы)

Формула на русском языке у меня не берёт, 'A' ставить в столбец 4(D)?