Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/сводная таблица или транспонирование данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сводная таблица или транспонирование данных (Макросы/Sub)
сводная таблица или транспонирование данных
Мия Дата: Вторник, 21.06.2016, 16:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Прошу помощи в таком вопросе:
Есть исходные данные, в которых каждый товар повторяется в n-количестве строк, соответствующим каждому продавцу. Мне приходится тратить кучу времени на проставление цены каждого продавца на один и тот же товар. В другом виде директор информацию видеть не хочет.
С волшебными макросами, сводными таблицами и прочими "вкусностями" экселя я на Вы и шепотом. отчего и трачу кучу времени на этот отчет.
Помогите пожалуйста. pray pray pray
Подробности в файле.
К сообщению приложен файл: Primer.xls (77.0 Kb)
 
Ответить
СообщениеЗдравствуйте!
Прошу помощи в таком вопросе:
Есть исходные данные, в которых каждый товар повторяется в n-количестве строк, соответствующим каждому продавцу. Мне приходится тратить кучу времени на проставление цены каждого продавца на один и тот же товар. В другом виде директор информацию видеть не хочет.
С волшебными макросами, сводными таблицами и прочими "вкусностями" экселя я на Вы и шепотом. отчего и трачу кучу времени на этот отчет.
Помогите пожалуйста. pray pray pray
Подробности в файле.
Автор - Мия
Дата добавления - 21.06.2016 в 16:19
Manyasha Дата: Вторник, 21.06.2016, 16:32 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Мия, так подойдет?
Для того, чтобы обновить таблицу, нужно щелкнуть правой кнопкой мышки по сводной - Обновить. Если такой вариант подойдет, можно макросом автоматическое обновление сделать.
[p.s.]Расширение файла поменяла, чтобы по весу влезть.[/p.s.]
К сообщению приложен файл: Primer-1.xlsb (19.9 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеМия, так подойдет?
Для того, чтобы обновить таблицу, нужно щелкнуть правой кнопкой мышки по сводной - Обновить. Если такой вариант подойдет, можно макросом автоматическое обновление сделать.
[p.s.]Расширение файла поменяла, чтобы по весу влезть.[/p.s.]
Автор - Manyasha
Дата добавления - 21.06.2016 в 16:32
Мия Дата: Среда, 22.06.2016, 07:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, спасибо Вам огромное. Это то, что надо. Все работает. Вы не представляете как Вы облегчили мою работу. От макросов не отказываюсь, очень интересно посмотреть как это будет работать. Еще раз СПАСИБО girl_curtsey girl_curtsey girl_curtsey respect respect respect
 
Ответить
СообщениеManyasha, спасибо Вам огромное. Это то, что надо. Все работает. Вы не представляете как Вы облегчили мою работу. От макросов не отказываюсь, очень интересно посмотреть как это будет работать. Еще раз СПАСИБО girl_curtsey girl_curtsey girl_curtsey respect respect respect
Автор - Мия
Дата добавления - 22.06.2016 в 07:09
китин Дата: Среда, 22.06.2016, 07:47 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 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
 
Ответить
Сообщениена формулах
Код
=СУММПРОИЗВ($D$3:$D$115*($C$3:$C$115=L$3)*($B$3:$B$115=$K4)*($A$3:$A$115=$J4))
Автор - китин
Дата добавления - 22.06.2016 в 07:47
_Boroda_ Дата: Среда, 22.06.2016, 09:05 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеНа СУММЕСЛИМН побыстрее должно быть
Код
=СУММЕСЛИМН($D$3:$D$115;$A$3:$A$115;$J4;$B$3:$B$115;$K4;$C$3:$C$115;L$3)
Автор - _Boroda_
Дата добавления - 22.06.2016 в 09:05
Manyasha Дата: Среда, 22.06.2016, 12:04 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 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
 
Ответить
СообщениеМия, вот вариант автоматического обновления таблицы:
[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]
Автор - Manyasha
Дата добавления - 22.06.2016 в 12:04
Мия Дата: Четверг, 23.06.2016, 14:24 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Igor, Boroda, спасибо вам огромное. Все работает. Формулы интересные, постараюсь все таки в них разобраться. Спасибо еще раз. girl_curtsey girl_curtsey girl_curtsey respect respect respect
 
Ответить
СообщениеIgor, Boroda, спасибо вам огромное. Все работает. Формулы интересные, постараюсь все таки в них разобраться. Спасибо еще раз. girl_curtsey girl_curtsey girl_curtsey respect respect respect
Автор - Мия
Дата добавления - 23.06.2016 в 14:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сводная таблица или транспонирование данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!