Подскажите, пожалуйста, можно ли в сводной таблице Excel создать столбец, в котором бы автоматически нумеровались строки сводной таблицы? Т.е. в зависимости от изменения количества строк сводной таблицы изменялась бы и нумерация строк в ней с учетом подгруп?
Подскажите, пожалуйста, можно ли в сводной таблице Excel создать столбец, в котором бы автоматически нумеровались строки сводной таблицы? Т.е. в зависимости от изменения количества строк сводной таблицы изменялась бы и нумерация строк в ней с учетом подгруп?Kanev75
может быть можно с помощью макроса сделать. если согласны использовать макрос,то выложите файл-пример. не гарантирую,что буду делать ваше задание -но могу попробовать
может быть можно с помощью макроса сделать. если согласны использовать макрос,то выложите файл-пример. не гарантирую,что буду делать ваше задание -но могу попробоватьKarataev
Просто нормальные люди "крясивые атчётики" прямо в Excel'e не рисуют. Ну или хотя бы способны понимать, что вполне возможно проделывать несколько промежуточных действий с данными, постепенно получая нужные на выходе... а не пытаться в эйфории заставлять процессор сделать из Г К одним движением, причём в режиме автопересчёта Причём заставлять делать, скажем, ежемесячный отчёт при каждом телодвижении на листе, - за это программисты убивают, а сисадмины - закапывают.
Просто нормальные люди "крясивые атчётики" прямо в Excel'e не рисуют. Ну или хотя бы способны понимать, что вполне возможно проделывать несколько промежуточных действий с данными, постепенно получая нужные на выходе... а не пытаться в эйфории заставлять процессор сделать из Г К одним движением, причём в режиме автопересчёта Причём заставлять делать, скажем, ежемесячный отчёт при каждом телодвижении на листе, - за это программисты убивают, а сисадмины - закапывают.AndreTM
Добрый день. Столкнулся с таким же вопросом. Написал макрос. может кому-то понадобится
[vba]
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Dim Lr As String ' последняя строчка Dim Sr As String ' первая строчка Dim i As Integer Dim D As Integer Application.ScreenUpdating = False Range("A10", "A1000").Clear Lr = Range("F65535").End(xlUp).Row Sr = 10 For i = Sr To Lr If IsEmpty(Cells(i, 2)) = False Then D = D + 1 Cells(i, 1).Value = D End If With Cells(i, 1) .Borders.LineStyle = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next i Application.ScreenUpdating = True End Sub
[/vba]
Добрый день. Столкнулся с таким же вопросом. Написал макрос. может кому-то понадобится
[vba]
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Dim Lr As String ' последняя строчка Dim Sr As String ' первая строчка Dim i As Integer Dim D As Integer Application.ScreenUpdating = False Range("A10", "A1000").Clear Lr = Range("F65535").End(xlUp).Row Sr = 10 For i = Sr To Lr If IsEmpty(Cells(i, 2)) = False Then D = D + 1 Cells(i, 1).Value = D End If With Cells(i, 1) .Borders.LineStyle = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next i Application.ScreenUpdating = True End Sub