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

Вход

Регистрация

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

 

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

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

Excel 2010
Уважаемые форумчане!
Помогите решить задачу. Требуется разбить годовой план по работе с материалами на месячные планы. Необходимо, чтобы в книге из основной таблицы автоматически создалось 12 страниц с месяцами. И соответственно произошла выборка соответствующих сток, где в плане месяца запланированна какая-либо работа. С сортировкой по виду работ. Таблица огромная, вручную это делать неделю. И возможна корректировка. Тогда придется все заново выбирать.
Заранее огромное спасибо за любую подсказку и помощь.
К сообщению приложен файл: __.xls (29.0 Kb)
 
Ответить
СообщениеУважаемые форумчане!
Помогите решить задачу. Требуется разбить годовой план по работе с материалами на месячные планы. Необходимо, чтобы в книге из основной таблицы автоматически создалось 12 страниц с месяцами. И соответственно произошла выборка соответствующих сток, где в плане месяца запланированна какая-либо работа. С сортировкой по виду работ. Таблица огромная, вручную это делать неделю. И возможна корректировка. Тогда придется все заново выбирать.
Заранее огромное спасибо за любую подсказку и помощь.
Автор - Max1505
Дата добавления - 04.01.2014 в 19:45
KuklP Дата: Суббота, 04.01.2014, 21:54 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Как-то так… :D
[offtop]Очень сильно напрягает фраза: «Ну, как-то так…», — произнесённая за спиной в тату-салоне.[/offtop]
[vba]
Код
Public Sub www()
           Dim sh As Worksheet, i&
           Application.DisplayAlerts = 0
           Application.ScreenUpdating = 0
           For Each sh In ThisWorkbook.Worksheets
               If sh.Name <> "Сводный план" Then sh.Delete
           Next
           Set sh = Sheets("Сводный план")
           For i = 6 To 17
               sh.[a3].CurrentRegion.AutoFilter i, "<>"
               sh.Range("F:q").EntireColumn.Hidden = -1
               sh.Columns(i).Hidden = 0
               sh.[a3].CurrentRegion.SpecialCells(12).Copy _
                       Worksheets.Add.[a3]
               ActiveSheet.Name = sh.Cells(3, i)
               ActiveSheet.Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                sh.AutoFilterMode = 0
           Next
           sh.Range("F:q").EntireColumn.Hidden = 0
           Application.DisplayAlerts = -1
           Application.ScreenUpdating = -1
End Sub
[/vba]
[p.s.]на более осмысленное название файла фантазии не хватило?
К сообщению приложен файл: Forum_1.xls (45.5 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 04.01.2014, 22:02
 
Ответить
СообщениеКак-то так… :D
[offtop]Очень сильно напрягает фраза: «Ну, как-то так…», — произнесённая за спиной в тату-салоне.[/offtop]
[vba]
Код
Public Sub www()
           Dim sh As Worksheet, i&
           Application.DisplayAlerts = 0
           Application.ScreenUpdating = 0
           For Each sh In ThisWorkbook.Worksheets
               If sh.Name <> "Сводный план" Then sh.Delete
           Next
           Set sh = Sheets("Сводный план")
           For i = 6 To 17
               sh.[a3].CurrentRegion.AutoFilter i, "<>"
               sh.Range("F:q").EntireColumn.Hidden = -1
               sh.Columns(i).Hidden = 0
               sh.[a3].CurrentRegion.SpecialCells(12).Copy _
                       Worksheets.Add.[a3]
               ActiveSheet.Name = sh.Cells(3, i)
               ActiveSheet.Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                sh.AutoFilterMode = 0
           Next
           sh.Range("F:q").EntireColumn.Hidden = 0
           Application.DisplayAlerts = -1
           Application.ScreenUpdating = -1
End Sub
[/vba]
[p.s.]на более осмысленное название файла фантазии не хватило?
Автор - KuklP
Дата добавления - 04.01.2014 в 21:54
Serge_007 Дата: Суббота, 04.01.2014, 21:55 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Формулами
К сообщению приложен файл: Max1505.xls (79.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеФормулами
Автор - Serge_007
Дата добавления - 04.01.2014 в 21:55
Max1505 Дата: Суббота, 04.01.2014, 22:58 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата Сергей_Изотов, 04.01.2014 в 21:55, в сообщении № 3
Сергей_Изотов

Уважаемый Сергей_Изотов!
Подскажите пожалуйста, как придобавлении в основную таблицу дополнительных строк добиться правильного отображения результата. Спасибо.
К сообщению приложен файл: Max1505_.xls (74.5 Kb)
 
Ответить
Сообщение
Цитата Сергей_Изотов, 04.01.2014 в 21:55, в сообщении № 3
Сергей_Изотов

Уважаемый Сергей_Изотов!
Подскажите пожалуйста, как придобавлении в основную таблицу дополнительных строк добиться правильного отображения результата. Спасибо.
Автор - Max1505
Дата добавления - 04.01.2014 в 22:58
Serge_007 Дата: Суббота, 04.01.2014, 23:06 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Увеличьте диапазоны в формуле на нужные и почитайте в интернете про формулы массива

[p.s.]Крайне рекомендую Вам реорганизовать исходные данные в нормальный вид (в плоский список), тогда задача решается вообще без формул или макросов, сводной таблицей за пару секунд[/p.s.]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеУвеличьте диапазоны в формуле на нужные и почитайте в интернете про формулы массива

[p.s.]Крайне рекомендую Вам реорганизовать исходные данные в нормальный вид (в плоский список), тогда задача решается вообще без формул или макросов, сводной таблицей за пару секунд[/p.s.]
Автор - Serge_007
Дата добавления - 04.01.2014 в 23:06
KuklP Дата: Суббота, 04.01.2014, 23:13 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я тоже советую прислушаться к совету Сергея. Это сильно облегчит Вам жизнь.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЯ тоже советую прислушаться к совету Сергея. Это сильно облегчит Вам жизнь.
Автор - KuklP
Дата добавления - 04.01.2014 в 23:13
Max1505 Дата: Воскресенье, 05.01.2014, 20:28 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Огромное спасибо всем за помощь и советы. Обязательно займусь своим ликбезом. Отдельное спасибо Админу! Не ожидал, если честно, что так оперативно и дружелюбно откликнутся форумчане на клик о помощи. Всех с наступившим Новым годом и наступающим Рождеством!


Сообщение отредактировал Max1505 - Воскресенье, 05.01.2014, 20:28
 
Ответить
СообщениеОгромное спасибо всем за помощь и советы. Обязательно займусь своим ликбезом. Отдельное спасибо Админу! Не ожидал, если честно, что так оперативно и дружелюбно откликнутся форумчане на клик о помощи. Всех с наступившим Новым годом и наступающим Рождеством!
Автор - Max1505
Дата добавления - 05.01.2014 в 20:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание страниц и заполнение их данными из таблицы (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

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