Есть задача, из общего реестра счетов на оплату по нескольким юр.лицам нужно сделать несколько листов с перечнем счетов в оплату, которые еще не опллатили, каждый лист на каждое юр.лицо, и в этих листах неоплаченные заявки только по указанным юр.лицам..какие формулы надо прописать чтобы все неоплаченные заявки автоматически подтягивались в разбивку? Хоть стреляй - не могу родить....
Есть задача, из общего реестра счетов на оплату по нескольким юр.лицам нужно сделать несколько листов с перечнем счетов в оплату, которые еще не опллатили, каждый лист на каждое юр.лицо, и в этих листах неоплаченные заявки только по указанным юр.лицам..какие формулы надо прописать чтобы все неоплаченные заявки автоматически подтягивались в разбивку? Хоть стреляй - не могу родить....AliceLis
AliceLis, а если число юр.лиц разрастется до 255, что делать будете? ИМХО, проще в самой базе фильтровать нужные данные, либо на отдельном листе формировать сводную таблицу и просто выбирать нужного плательщика.
AliceLis, а если число юр.лиц разрастется до 255, что делать будете? ИМХО, проще в самой базе фильтровать нужные данные, либо на отдельном листе формировать сводную таблицу и просто выбирать нужного плательщика.Russel
а как вы внеся данные в "названия строк" сделали так, что они разложились горизонтально...я пыталась повторить фокус, но у меня вниз разбивается все в одном столбике
а как вы внеся данные в "названия строк" сделали так, что они разложились горизонтально...я пыталась повторить фокус, но у меня вниз разбивается все в одном столбикеAliceLis
Сообщение отредактировал AliceLis - Среда, 12.11.2014, 16:11
Большое СПАСИБО!!!!! И за массив и за сводную!!!!! Огромное!!! Хотела как раз массив, но в использовании проще буде сводная, доба зайца убиты!
Большое СПАСИБО!!!!! И за массив и за сводную!!!!! Огромное!!! Хотела как раз массив, но в использовании проще буде сводная, доба зайца убиты! 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]
Продолжается мое приключение с реестром...необходимо настроить сводную таблицу так, чтобы суммы были в числом формате с разделением, или в денежном. и записать форматирование одного из столбиков, чтобы значение, равное (пусто) было белого цвета (чтобы не печаталось)...искала в инете, нашла решение с помощью макроса, с ними вообще не дружу.....скидываю на всякий случай, вдруг кому поможет....Помогите, пожалуйста решить проблему, так хочется красивый реестрик! Скопировало все от первой до последней строчки: 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