Запись макроса: Создание сводной таблицы

[888_Yana]

Создаю я вот что
А макрос делает вот что во вложении()

[888_Yana]

Sub Ìàêðîñ5()
'
' Ìàêðîñ5 Ìàêðîñ
'

'
ActiveWorkbook.PivotCaches.Create(S ourceType:=xlDatabase, SourceData:= _
"Ëèñò1!R1C1:R1048576C3", Version:=xlPivotTableVersion12).Cre atePivotTable _
TableDestination:="Ëèñò1!R1C6", TableName:="ÑâîäíàÿÒàáëèöà4", _
DefaultVersion:=xlPivotTableVersion 12
Sheets("Ëèñò1").Select
Cells(1, 6).Select
With ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("íàèìåíîâàí èå")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("Ñòàòóñ")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("íàêëàäíàÿ" )
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").AddDataField ActiveSheet.PivotTables _
("ÑâîäíàÿÒàáëèöà4").PivotFields("íà èìåíîâàíèå"), _
"Êîëè÷åñòâî ïî ïîëþ íàèìåíîâàíèå", xlCount
Columns("G:K").Select
Selection.ColumnWidth = 3
Range("G13").Select
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").HasAutoFormat = False
Range("G13").Select
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("íàêëàäíàÿ").Au toSort _
xlDescending, "Êîëè÷åñòâî ïî ïîëþ íàèìåíîâàíèå", ActiveSheet.PivotTables( _
"ÑâîäíàÿÒàáëèöà4").PivotRowAxis.Piv otLines(11), 1
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("íàèìåíîâàíèå") . _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("íàêëàäíàÿ").Su btotals _
= Array(False, False, False, False, False, False, False, False, False, False, False, False _
)
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").PivotFields("Ñòàòóñ").Subto tals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("ÑâîäíàÿÒàá ëèöà4").RowAxisLayout xlTabularRow
Range("F16").Select
End Sub

[888_Yana]

Ответьте кто-нибудь?

[alexander13]

Макрос в нормальном виде покажите.

[kalbasiatka]

При копировании макроса проследите за раскладкой клавиатуры, должна быть одинаковая и в excel и в браузере, а ещё лучше файл приложить.

[888_Yana]

Вот сам файл и макрос