CreatePivotTable secondario ()
lastRow fioco come lungamente
Oscurare la i come lungamente
Strati (“grezzo„). Attivare
Gamma (“A1„). Valore = “simbolo„
Gamma (“B1„). Valore = “codice di cliente„
Gamma (“C1„). Valore = “quantità„
Gamma (“D1„). Valore = “riservato„
lastRow = strati (“grezzo„). Gamma (“A„ & Rows.Count). Estremità (xlUp). Fila
Per i = 2 a lastRow
Se cellule (i, 2).Value = “4001„ o andato (cellule (i, 2).Value, 1) = “T„ o andato (cellule (i, 2).Value, 1) = “m.„ allora
Cellule (i, 2).Value = “riservato„
Altrimenti
Concluder se
Dopo i
ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: = _
“Grezzo! R1C1: R„ & lastRow & “C4„) .CreatePivotTable TableDestination: = "", TableName: = _
“PivotTable1„, DefaultVersion: =xlPivotTableVersion10
ActiveSheet.PivotTables (“PivotTable1„) .AddFields RowFields: = " simbolo„, _
ColumnFields: = " codice di cliente "
ActiveSheet.PivotTables (“PivotTable1„) .PivotFields (“quantità„). Orientamento = _
xlDataField
Sommergibile dell'estremità
|