сводная таблица или транспонирование данных

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

сводная таблица или транспонирование данных (Макросы/Sub)

Мия

Дата: Вторник, 21.06.2016, 16:19 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!
Прошу помощи в таком вопросе:
Есть исходные данные, в которых каждый товар повторяется в n-количестве строк, соответствующим каждому продавцу. Мне приходится тратить кучу времени на проставление цены каждого продавца на один и тот же товар. В другом виде директор информацию видеть не хочет.
С волшебными макросами, сводными таблицами и прочими "вкусностями" экселя я на Вы и шепотом. отчего и трачу кучу времени на этот отчет.
Помогите пожалуйста. pray

Подробности в файле.

К сообщению приложен файл: Primer.xls (77.0 Kb)

Ответить

Manyasha

Дата: Вторник, 21.06.2016, 16:32 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Мия, так подойдет?
Для того, чтобы обновить таблицу, нужно щелкнуть правой кнопкой мышки по сводной - Обновить. Если такой вариант подойдет, можно макросом автоматическое обновление сделать.
[p.s.]Расширение файла поменяла, чтобы по весу влезть.[/p.s.]

К сообщению приложен файл: Primer-1.xlsb (19.9 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Мия

Дата: Среда, 22.06.2016, 07:09 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Manyasha, спасибо Вам огромное. Это то, что надо. Все работает. Вы не представляете как Вы облегчили мою работу. От макросов не отказываюсь, очень интересно посмотреть как это будет работать. Еще раз СПАСИБО girl_curtsey

Ответить

китин

Дата: Среда, 22.06.2016, 07:47 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7040

Репутация: 1080 ±

Замечаний: 0% ±

Excel 2007;2010;2016

на формулах

Код

=СУММПРОИЗВ($D$3:$D$115*($C$3:$C$115=L$3)*($B$3:$B$115=$K4)*($A$3:$A$115=$J4))

К сообщению приложен файл: 123.xlsb (16.0 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Среда, 22.06.2016, 09:05 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

На СУММЕСЛИМН побыстрее должно быть

Код

=СУММЕСЛИМН($D$3:$D$115;$A$3:$A$115;$J4;$B$3:$B$115;$K4;$C$3:$C$115;L$3)

К сообщению приложен файл: Primer-5-1.xlsb (15.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Manyasha

Дата: Среда, 22.06.2016, 12:04 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Мия, вот вариант автоматического обновления таблицы:
[vba]

Код

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Dim lr&
    With ActiveSheet.PivotTables(1)
        .PivotCache.Refresh
        lr = Sheets("Исходные данные").Cells(Rows.Count, 1).End(xlUp).Row
        .SourceData = "Исходные данные!R2C1:R" & lr & "C4"
        .DataBodyRange.EntireColumn.ColumnWidth = 9
        .DataBodyRange.Resize(1).Offset(-1).Orientation = 90
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: Primer-1-1.xlsb (27.1 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Мия

Дата: Четверг, 23.06.2016, 14:24 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Igor, Boroda, спасибо вам огромное. Все работает. Формулы интересные, постараюсь все таки в них разобраться. Спасибо еще раз. girl_curtsey

Ответить

сводная таблица или транспонирование данных (Макросы/Sub)

Страница 1 из 1
1