Данные в разнобой после выгрузки из 1С

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#1 26.11.2009 14:05:32 Вот кусочек файла из 1С ААА, как автоматом посчитать только жёлтые ячейки? Прикрепленные файлы post_80028.xls (21.5 КБ)

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#2 26.11.2009 14:10:59 Сереж я думаю надо доп столбец создать посчитать построчно по цвету заливки есть формулы пользовательские а потом СУММЕСЛИ()

Z Гость	#3 26.11.2009 14:14:38 А ведь было! - "http://www.planetaexcel.ru/forum.php?thread_id=4266".

Микки

Пользователь

Сообщений: 3280 Регистрация: 24.12.2012

26.11.2009 14:16:03

Если у тебя нет то лови
'*******************************************************************
'Сумирование ячеек по цвету заливки (включая условное форматирование)
Function Summ_CellColor(Summ_Range, Cell_Color, Optional Criteria)
' Application.Volatile True
Dim cell As Range
'Определяем наличие условного форматирования в ячейке-образце
If Cell_Color.FormatConditions.Count <> 0 Then
CellIndex = Cell_Color.FormatConditions(1).Interior.colorindex
If IsNull(CellIndex) Then CellIndex = Cell_Color.Interior.colorindex
Else
CellIndex = Cell_Color.Interior.colorindex
End If

For Each cell In Summ_Range
'Определяем наличие условного форматирования в обрабатываемой ячейке
If cell.FormatConditions.Count <> 0 Then
CellColIndex = cell.FormatConditions(1).Interior.colorindex
If IsNull(CellColIndex) Then CellColIndex = cell.Interior.colorindex
Else
CellColIndex = cell.Interior.colorindex
End If
'Суммируем значения
If IsMissing(Criteria) Then
If cell.Value <> "" And CellIndex = CellColIndex And IsNumeric(cell.Value) _
Then Summ_CellColor = Summ_CellColor + cell.Value
Else
If cell.Value <> "" And CellIndex = CellColIndex _
And IsNumeric(cell.Value) And Cells(cell.Row, Criteria.Column) = Criteria _
Then Summ_CellColor = Summ_CellColor + cell.Value
End If
Next
End Function

VovaK Пользователь Сообщений: 1716 Регистрация: 01.01.1970	#5 26.11.2009 14:19:29 Продолжу: Можно ли пометить Исполнителей разными цветами? Сделаем универсальный инструмент.

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

26.11.2009 14:27:31

Ээээ, даж неудобно как-то...

Это я вручную раскрасил, сам, чтоб понятно было чего кому суммировать...
В оригинале конечно никаких цветов нет, выгрузка чёрно-белая, тока красоту в шапке навести можно, т.е. там где никому не надо...

VovaK

Пользователь

Сообщений: 1716 Регистрация: 01.01.1970

26.11.2009 14:34:25

{quote}{login=Serge 007}{date=26.11.2009 02:27}{thema=}{post}Ээээ, даж неудобно как-то...

Это я вручную раскрасил, сам, чтоб понятно было чего кому суммировать...
В оригинале конечно никаких цветов нет, выгрузка чёрно-белая, тока красоту в шапке навести можно, т.е. там где никому не надо...{/post}{/quote}

Так зачем такое задание заводить?

ytk5kyky Пользователь Сообщений: 2410 Регистрация: 01.01.1970	#8 26.11.2009 14:41:50 Serge 007, от только хотел сказать, что это вручную раскрашено. Я долго обедал :) Объясните зачем складывать "Количество работ" и "Сумма работ со скидкой (упр.)"? Ежа с ужом? Bite my shiny metal ass!

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

26.11.2009 14:45:00

А этот пост к слову о выгрузках из темы про Спец.вставку?
________________________________________________________
Частично да.

Какие критерии суммирования? Их нет нигде технически, надо полагать - они в голове сотрудника?
_________________________________________________________

Я думал из файла будет ясно...

Количество работ - суммирует всё, Сумма работ со скидкой (упр.) - суммирует все внутренние и гарантийные работы, Сумма товаров со скидкой (упр.) - только внутренние

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

#10

26.11.2009 14:48:50

{quote}{login=Лузер™}{date=26.11.2009 02:41}{thema=}{post}Serge 007, от только хотел сказать, что это вручную раскрашено.
Я долго обедал :)
Объясните зачем складывать "Количество работ" и "Сумма работ со скидкой (упр.)"?
Ежа с ужом?{/post}{/quote}

Это пример, в оригинале другие названия, мне главное принцип понять как это просуммировать.
Структура отчёта переданна точно.

Саша

Гость

#11

26.11.2009 15:35:55

g7=ЕСЛИ(B7<>"";B7;G6) и тянем вниз.
j7=СУММ(ЕСЛИ($G$7:$G$19=I7;$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("внутренний";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))
массив.
Можно без доп столбца, если часто обрабатывать новые файлы нужно.

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

#12

26.11.2009 15:44:39

{quote}{login=Саша}{date=26.11.2009 03:35}{thema=}{post}g7=ЕСЛИ(B7<>"";B7;G6) и тянем вниз.
j7=СУММ(ЕСЛИ($G$7:$G$19=I7;$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("внутренний";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))
массив.
Можно без доп столбца, если часто обрабатывать новые файлы нужно.{/post}{/quote}

Спасибо Саша, работает!
Но и вариант без доп столбца, если не трудно, тож выложи :)

Саша

Гость

#13

26.11.2009 15:50:07

j7=СУММ(ЕСЛИ(ПРОСМОТР(СТРОКА($B$7:$B$19);НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19)))))=ПОИСКПОЗ(I7;B:B;0);$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("внутренний";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))

Ивановы-петровы должны быть уникальными, т е не должно быть 5 строк инванова, потом 5 строк петрова, потом опять строки иванова. Иначе алгоритм поменять нужно.

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

#14

26.11.2009 15:58:26

{quote}{login=Саша}{date=26.11.2009 03:50}{thema=}{post}j7=СУММ(ЕСЛИ(ПРОСМОТР(СТРОКА($B$7:$B$19);НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19)))))=ПОИСКПОЗ(I7;B:B;0);$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("внутренний";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))

Ивановы-петровы должны быть уникальными, т е не должно быть 5 строк инванова, потом 5 строк петрова, потом опять строки иванова. Иначе алгоритм поменять нужно.{/post}{/quote}

И ещё одно большое сенкью!
Ивановы, Петровы, Сидоровы уникальны и появляются в отчёте по алфавиту, так что такая ситуация исключена.

Саша

Гость

#15

26.11.2009 16:14:27

Ок, оффтоп для людей, которые потом сюда могут зайти в поисках решения аналогичной проблемы:

В прошлой формуле сравнение идёт по номеру строки чтобы не было необходимости прибегать к летучим функциям. Если значения могут идти "вразнабой", то можно проводить сравнения со значениями, т е в просмотр добавить вектор результатов со значениями ячеек.
Формула написана "в лоб", алгоритм отнюдь не оптимальный, а следующий вообще летучий, в связи с чем использовать можно только если производительность не важна.
Получается вот такое чудовище:
=СУММ(ЕСЛИ(ПРОСМОТР(СТРОКА($B$7:$B$19);НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19))));Т(ДВССЫЛ("b"&НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19)))))))=I7;$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("внутренний";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))

Работать будет только в 2007 ввиду того, что требуется большое количество вложений. Т е править ссылки на столбцы не имеет смысла, не поможет.

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#16 01.12.2009 12:33:42 Как не пытался, так и не смог поменять формулу под себя... Прикрепленные файлы post_81103.xls (23.5 КБ)

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

#17

01.12.2009 13:02:42

{quote}{login=Лузер™}{date=26.11.2009 02:41}{thema=}{post}Serge 007, от только хотел сказать, что это вручную раскрашено.
Я долго обедал :)
Объясните зачем складывать "Количество работ" и "Сумма работ со скидкой (упр.)"?
Ежа с ужом?{/post}{/quote}

И тут Вы правы оказались, не надо было первый столбец суммировать с остальными...

Худшая моя тема, всем искреннее сори...

Саша

Гость

#18

01.12.2009 14:40:38

=СУММ(ЕСЛИ(ПРОСМОТР(СТРОКА($B$7:$B$19);НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19)))))=ПОИСКПОЗ(I7;B:B;0);$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("текущий";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19)))

Так вроде. Заменил в одном месте внутренний на текущий...
Мог не правильно понять условия, т к больше суток не спал.

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#19 01.12.2009 14:53:34 {quote}{login=Саша}{date=01.12.2009 02:40}{thema=}{post}=СУММ(ЕСЛИ(ПРОСМОТР(СТРОКА($B$7:$B$19);НАИМЕНЬШИЙ(ЕСЛИ($B$7:$B$19<>"";СТРОКА($B$7:$B$19));СТРОКА($A$1:ИНДЕКС(A:A;СЧЁТЗ($B$7:$B$19)))))=ПОИСКПОЗ(I7;B:B;0);$D$7:$D$19*($C$7:$C$19<>"")+ЕСЛИ(ЕЧИСЛО(ПОИСК("текущий";$C$7:$C$19));$E$7:$E$19+$F$7:$F$19)+ЕСЛИ(ЕЧИСЛО(ПОИСК("гарантийный";$C$7:$C$19));$E$7:$E$19))) Так вроде. Заменил в одном месте внутренний на текущий... Мог не правильно понять условия, т к больше суток не спал.{/post}{/quote} Я тогда попозже в личку, ок?

Читают тему