Как раскидать таблицу на несколько листов? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как раскидать таблицу на несколько листов? - Мир MS Excel

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как раскидать таблицу на несколько листов? (Формулы/Formulas)

Как раскидать таблицу на несколько листов?

Дата: Среда, 12.11.2014, 12:35 | Сообщение № 1

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

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

Сообщений: 8

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

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

Excel 2010

Есть задача, из общего реестра счетов на оплату по нескольким юр.лицам нужно сделать несколько листов с перечнем счетов в оплату, которые еще не опллатили, каждый лист на каждое юр.лицо, и в этих листах неоплаченные заявки только по указанным юр.лицам..какие формулы надо прописать чтобы все неоплаченные заявки автоматически подтягивались в разбивку? Хоть стреляй - не могу родить....

Ответить

Дата: Среда, 12.11.2014, 12:37 | Сообщение № 2

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

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

Сообщений: 8

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

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

Excel 2010

Прикрепляю примерные условия...

К сообщению приложен файл: ___.xlsx (13.6 Kb)

Ответить

Дата: Среда, 12.11.2014, 13:23 | Сообщение № 3

Группа: Друзья

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

Сообщений: 1394

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

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

Excel 2010

AliceLis, а если число юр.лиц разрастется до 255, что делать будете?
ИМХО, проще в самой базе фильтровать нужные данные, либо на отдельном листе формировать сводную таблицу и просто выбирать нужного плательщика.

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

QIWI 9173973973

Ответить

Дата: Среда, 12.11.2014, 13:29 | Сообщение № 4

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

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

Сообщений: 8

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

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

Excel 2010

настолько не разрастется) максимум до 10))

Ответить

Дата: Среда, 12.11.2014, 13:49 | Сообщение № 5

Группа: Друзья

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

Сообщений: 1394

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

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

Excel 2010

Цитата AliceLis, 12.11.2014 в 13:29, в сообщении № 4

настолько не разрастется) максимум до 10))

Тогда скопируйте лист Реестр нужно кол-во раз и выберете на каждом свою организацию.

QIWI 9173973973

Ответить

Дата: Среда, 12.11.2014, 16:05 | Сообщение № 6

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

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

Сообщений: 8

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

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

Excel 2010

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

Сообщение отредактировал AliceLis - Среда, 12.11.2014, 16:11

Ответить

Дата: Среда, 12.11.2014, 16:36 | Сообщение № 7

Группа: Друзья

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

Сообщений: 8761

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

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

Excel 2010

формула массива, для прикола (посему бы и нет)
хотя, я бы не стал разводить кучу листов - вып.список, доп.столбцы, ВПР

К сообщению приложен файл: 15-41.xlsx (20.5 Kb)

ЮMoney 41001841029809

Ответить

Дата: Среда, 12.11.2014, 16:39 | Сообщение № 8

Группа: Друзья

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

Сообщений: 1394

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

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

Excel 2010

Цитата AliceLis, 12.11.2014 в 16:05, в сообщении № 6

что они разложились горизонтально

В сводной таблице? Конструктор / Макет отчета / Показать в табличной форме

QIWI 9173973973

Ответить

Дата: Среда, 19.11.2014, 12:22 | Сообщение № 9

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

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

Сообщений: 8

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

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

Excel 2010

Большое СПАСИБО!!!!! И за массив и за сводную!!!!! Огромное!!! hands

hands

hands

Хотела как раз массив, но в использовании проще буде сводная, доба зайца убиты! yahoo

yahoo

specool

Ответить

Дата: Пятница, 21.11.2014, 17:32 | Сообщение № 10

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

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

Сообщений: 8

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

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

Excel 2010

Продолжается мое приключение с реестром...необходимо настроить сводную таблицу так, чтобы суммы были в числом формате с разделением, или в денежном. и записать форматирование одного из столбиков, чтобы значение, равное (пусто) было белого цвета (чтобы не печаталось)...искала в инете, нашла решение с помощью макроса, с ними вообще не дружу.....скидываю на всякий случай, вдруг кому поможет....Помогите, пожалуйста решить проблему, так хочется красивый реестрик! Скопировало все от первой до последней строчки:
Sub AdoptSourceFormatting()
'Mike Alexander
'www.datapigtechnologies'
'Перед запуском макроса удостоверьтесь, что активная ячейка внутри сводной.
Dim oPivotTable As PivotTable
Dim oPivotFields As PivotField
Dim oSourceRange As Range
Dim strLabel As String
Dim strFormat As String
Dim i as Integer
On Error GoTo MyErr
'Определяем источник данных текущей сводной таблицы
Set oPivotTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
Set oSourceRange = Range(Application.ConvertFormula(oPivotTable.SourceData, xlR1C1, xlA1))
'Обновляем сводную таблицу
oPivotTable.PivotCache.Refresh
'Начинаем цикл прохода по всем столбцам исходного диапазона
For i = 1 To oSourceRange.Columns.Count

'Определяем заголовок столбца и числовой формат для первой ячейки в столбце
strLabel = oSourceRange.Cells(1, i).Value
strFormat = oSourceRange.Cells(2, i).NumberFormat

'Проходим в цикле по полям сводной таблицы
For Each oPivotFields In oPivotTable.DataFields

'Применяем числовой формат исходных данных к полю в сводной таблице
If oPivotFields.SourceName = strLabel Then
oPivotFields.NumberFormat = strFormat

'Бонус: меняем имя поля на заголовок столбца исходных данных
oPivotFields.Caption = strLabel & " "
End If

Next oPivotFields
Next i
Exit Sub
'Обработка ошибок
MyErr:
If Err.Number = 1004 Then
MsgBox "Сначала установите активную ячейку в сводную таблицу."
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If
End Sub
[moder]Совсем другой вопрос для другой темы и другого раздела форума. Читаем Правила. Эта тема закрыта[/moder]

Продолжается мое приключение с реестром...необходимо настроить сводную таблицу так, чтобы суммы были в числом формате с разделением, или в денежном. и записать форматирование одного из столбиков, чтобы значение, равное (пусто) было белого цвета (чтобы не печаталось)...искала в инете, нашла решение с помощью макроса, с ними вообще не дружу.....скидываю на всякий случай, вдруг кому поможет....Помогите, пожалуйста решить проблему, так хочется красивый реестрик! Скопировало все от первой до последней строчки:
Sub AdoptSourceFormatting()
'Mike Alexander
'www.datapigtechnologies'
'Перед запуском макроса удостоверьтесь, что активная ячейка внутри сводной.
Dim oPivotTable As PivotTable
Dim oPivotFields As PivotField
Dim oSourceRange As Range
Dim strLabel As String
Dim strFormat As String
Dim i as Integer
On Error GoTo MyErr
'Определяем источник данных текущей сводной таблицы
Set oPivotTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
Set oSourceRange = Range(Application.ConvertFormula(oPivotTable.SourceData, xlR1C1, xlA1))
'Обновляем сводную таблицу
oPivotTable.PivotCache.Refresh
'Начинаем цикл прохода по всем столбцам исходного диапазона
For i = 1 To oSourceRange.Columns.Count

'Определяем заголовок столбца и числовой формат для первой ячейки в столбце
strLabel = oSourceRange.Cells(1, i).Value
strFormat = oSourceRange.Cells(2, i).NumberFormat

'Проходим в цикле по полям сводной таблицы
For Each oPivotFields In oPivotTable.DataFields

'Применяем числовой формат исходных данных к полю в сводной таблице
If oPivotFields.SourceName = strLabel Then
oPivotFields.NumberFormat = strFormat

'Бонус: меняем имя поля на заголовок столбца исходных данных
oPivotFields.Caption = strLabel & " "
End If

Next oPivotFields
Next i
Exit Sub
'Обработка ошибок
MyErr:
If Err.Number = 1004 Then
MsgBox "Сначала установите активную ячейку в сводную таблицу."
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If
End Sub
[moder]Совсем другой вопрос для другой темы и другого раздела форума. Читаем Правила. Эта тема закрыта[/moder]AliceLis

Ответить

СообщениеПродолжается мое приключение с реестром...необходимо настроить сводную таблицу так, чтобы суммы были в числом формате с разделением, или в денежном. и записать форматирование одного из столбиков, чтобы значение, равное (пусто) было белого цвета (чтобы не печаталось)...искала в инете, нашла решение с помощью макроса, с ними вообще не дружу.....скидываю на всякий случай, вдруг кому поможет....Помогите, пожалуйста решить проблему, так хочется красивый реестрик! Скопировало все от первой до последней строчки:
Sub AdoptSourceFormatting()
'Mike Alexander
'www.datapigtechnologies'
'Перед запуском макроса удостоверьтесь, что активная ячейка внутри сводной.
Dim oPivotTable As PivotTable
Dim oPivotFields As PivotField
Dim oSourceRange As Range
Dim strLabel As String
Dim strFormat As String
Dim i as Integer
On Error GoTo MyErr
'Определяем источник данных текущей сводной таблицы
Set oPivotTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
Set oSourceRange = Range(Application.ConvertFormula(oPivotTable.SourceData, xlR1C1, xlA1))
'Обновляем сводную таблицу
oPivotTable.PivotCache.Refresh
'Начинаем цикл прохода по всем столбцам исходного диапазона
For i = 1 To oSourceRange.Columns.Count

'Определяем заголовок столбца и числовой формат для первой ячейки в столбце
strLabel = oSourceRange.Cells(1, i).Value
strFormat = oSourceRange.Cells(2, i).NumberFormat

'Проходим в цикле по полям сводной таблицы
For Each oPivotFields In oPivotTable.DataFields

'Применяем числовой формат исходных данных к полю в сводной таблице
If oPivotFields.SourceName = strLabel Then
oPivotFields.NumberFormat = strFormat

'Бонус: меняем имя поля на заголовок столбца исходных данных
oPivotFields.Caption = strLabel & " "
End If

Next oPivotFields
Next i
Exit Sub
'Обработка ошибок
MyErr:
If Err.Number = 1004 Then
MsgBox "Сначала установите активную ячейку в сводную таблицу."
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If
End Sub
[moder]Совсем другой вопрос для другой темы и другого раздела форума. Читаем Правила. Эта тема закрыта[/moder]

Автор - AliceLis
Дата добавления - 21.11.2014 в 17:32

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как раскидать таблицу на несколько листов? (Формулы/Formulas)

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

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