ZamoK
Дата: Четверг, 18.02.2016, 14:33 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация:
4
±
Замечаний:
0% ±
Excel 2003-2016
Как простую таблицу перевести в сводную понял, а вот такую нет. Может подскажет кто как сделать чтоб выбор значений был типа вываливающегося списка, поочерёдно группы за группой. подобных таблиц порядка 10 штук, книгу уже истёр до дыр, пора в excel - 21 век!
Как простую таблицу перевести в сводную понял, а вот такую нет. Может подскажет кто как сделать чтоб выбор значений был типа вываливающегося списка, поочерёдно группы за группой. подобных таблиц порядка 10 штук, книгу уже истёр до дыр, пора в excel - 21 век! ZamoK
Я не Гуру, но стремлюсь!
Ответить
Сообщение Как простую таблицу перевести в сводную понял, а вот такую нет. Может подскажет кто как сделать чтоб выбор значений был типа вываливающегося списка, поочерёдно группы за группой. подобных таблиц порядка 10 штук, книгу уже истёр до дыр, пора в excel - 21 век! Автор - ZamoK Дата добавления - 18.02.2016 в 14:33
TimSha
Дата: Четверг, 18.02.2016, 15:31 |
Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация:
94
±
Замечаний:
0% ±
Excel 2013 Pro +
Приведите эту таблицу в нормальный вид (шапка, объединенные), а затем можно попытаться через редизайнер ее подготовить для сводной. Как вариант...
Приведите эту таблицу в нормальный вид (шапка, объединенные), а затем можно попытаться через редизайнер ее подготовить для сводной. Как вариант... TimSha
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
Ответить
Сообщение Приведите эту таблицу в нормальный вид (шапка, объединенные), а затем можно попытаться через редизайнер ее подготовить для сводной. Как вариант... Автор - TimSha Дата добавления - 18.02.2016 в 15:31
ZamoK
Дата: Четверг, 18.02.2016, 15:51 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация:
4
±
Замечаний:
0% ±
Excel 2003-2016
TimSha , Спасибо, я уже нашёл тему аналогичную вот только там пример с датами, у меня их нет тут наверно сложность какая-то есть голову ломаю. , а есть какойто инструмент?
TimSha , Спасибо, я уже нашёл тему аналогичную вот только там пример с датами, у меня их нет тут наверно сложность какая-то есть голову ломаю. , а есть какойто инструмент?ZamoK
Я не Гуру, но стремлюсь!
Ответить
Сообщение TimSha , Спасибо, я уже нашёл тему аналогичную вот только там пример с датами, у меня их нет тут наверно сложность какая-то есть голову ломаю. , а есть какойто инструмент?Автор - ZamoK Дата добавления - 18.02.2016 в 15:51
ZamoK
Дата: Четверг, 18.02.2016, 15:55 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация:
4
±
Замечаний:
0% ±
Excel 2003-2016
надо же даже макрос есть!
[vba]
Код
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.ScreenUpdating = False i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) To inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 To hc ns.Cells(i, j) = inpdata.Cells(r, j) Next j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Next k ns.Cells(i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub
[/vba]
надо же даже макрос есть!
[vba]
Код
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.ScreenUpdating = False i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) To inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 To hc ns.Cells(i, j) = inpdata.Cells(r, j) Next j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Next k ns.Cells(i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub
[/vba]
ZamoK
Я не Гуру, но стремлюсь!
Ответить
Сообщение надо же даже макрос есть!
[vba]
Код
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.ScreenUpdating = False i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) To inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 To hc ns.Cells(i, j) = inpdata.Cells(r, j) Next j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Next k ns.Cells(i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub
[/vba]
Автор - ZamoK Дата добавления - 18.02.2016 в 15:55