Скрытый текст |
---|
Sub pivot_2() Dim wsTarget As Worksheet Dim rngSource As Range Dim pc As PivotCache Dim pt As PivotTable Dim field As PivotField 'Sheets("analysis").Cells.Clear Set rngSource = Sheets("data").Range("A1").CurrentRegion Set wsTarget = Sheets("analysis") wsTarget.Select For Each pt In wsTarget.PivotTables pt.TableRange2.Clear Next pt Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, rngSource, xlPivotTableVersion14) Set pt = pc.CreatePivotTable(wsTarget.Range("E20"), "PivotTable1", , xlPivotTableVersion14) pt.ClearAllFilters Set field = wsTarget.PivotTables("PivotTable1").PivotFields("client") field.Orientation = xlPageField field.EnableMultiplePageItems = True field.PivotItems("repeated").Visible = Sheets("analysis").CheckBox3.Value field.PivotItems("zero").Visible = Sheets("analysis").CheckBox2.Value field.PivotItems("new").Visible = Sheets("analysis").CheckBox1.Value ... |
Привет всем! Проблема с макросом, в windows все работает отлично, а на маке ошибка №13 Type mismatch на строчке
Код |
---|
Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, rngSource, xlPivotTableVersion14) |
Подскажите, пожалуйста, как лечить?