Colección de citas famosas - Slogan de motivación - Tabla dinámica EXCEL VBA Cómo restablecer la fuente de datos para un objeto de tabla dinámica

Tabla dinámica EXCEL VBA Cómo restablecer la fuente de datos para un objeto de tabla dinámica

Establezca el rango de antemano. Las columnas y filas de este rango se juzgan mediante parámetros

Set DataRng = Range("A1:D" & zuidazhi)

Establecer ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=DataRng)

Sheets.Add

Sheets("Sheet1").Select

Establecer pt = ptcache.CreatePivotTable(tabledestination:=Sheets("Sheet1").Range("b1"), TableName:="pivottable1")

Con ActiveSheet.PivotTables("pivottable1"). PivotFields( "tiempo de muestreo")

.Orientation = xlRowField

.Position = 1

Terminar con