Metodo NamedRange.Group
Quando il controllo NamedRange rappresenta una singola cella in un intervallo di dati di un campo di tabella pivot, il metodo Group esegue un raggruppamento numerico o basato sulle date in tale campo.
Spazio dei nomi: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)
Sintassi
'Dichiarazione
Function Group ( _
Start As Object, _
End As Object, _
By As Object, _
Periods As Object _
) As Object
Object Group(
Object Start,
Object End,
Object By,
Object Periods
)
Parametri
- Start
Tipo: System.Object
Primo valore da raggruppare.Se questo argomento viene omesso o è true, verrà utilizzato il primo valore nel campo.
- End
Tipo: System.Object
Ultimo valore da raggruppare.Se questo argomento viene omesso o è true, verrà utilizzato l'ultimo valore nel campo.
- By
Tipo: System.Object
Se il campo è numerico, questo argomento specifica la dimensione di ciascun gruppo.Se il campo è di tipo data, questo argomento specifica il numero di giorni in ciascun gruppo se l'elemento 4 nella matrice Periods è impostato su true e tutti gli altri elementi sono impostati su false.In caso contrario, l'argomento verrà ignorato.Se si omette questo argomento, verrà automaticamente scelta la dimensione di gruppo predefinita.
- Periods
Tipo: System.Object
Matrice di sette valori booleani che specificano il periodo temporale per il gruppo, come indicato di seguito:
1 - Secondi
2 - Minuti
3 - Ore
4 - Giorni
5 - Mesi
6 - Trimestri
7 - Anni
Se un elemento nella matrice è impostato su true, verrà creato un gruppo per il tempo corrispondente; se l'elemento è impostato su false, non verrà creato alcun gruppo.Se il campo non è di tipo data, questo argomento verrà ignorato.
Valore restituito
Tipo: System.Object
Note
Il controllo NamedRange deve essere una singola cella nell'intervallo di dati di un campo di tabella pivot. Se si tenta di applicare questo metodo a più di una cella, il metodo non verrà eseguito correttamente e non verrà visualizzato alcun messaggio di errore.
Parametri facoltativi
Per informazioni sui parametri facoltativi, vedere Parametri facoltativi nelle soluzioni Office.
Esempi
Nell'esempio di codice riportato di seguito viene creato un rapporto di tabella pivot e al suo interno un controllo NamedRange. Vengono quindi utilizzate le proprietà PivotTable, LocationInTable, PivotCell, PivotItem e PivotField per visualizzare le informazioni sul posizionamento del controllo NamedRange all'interno del rapporto di tabella pivot. Viene inoltre utilizzato il metodo Group per eseguire il raggruppamento numerico basato sul primo valore nel campo.
Questo esempio è valido per una personalizzazione a livello di documento.
Private Sub DisplayPivotTableInformation()
' Specify values for the PivotTable.
Me.Range("A1").Value2 = "Date"
Me.Range("A2").Value2 = "March 1"
Me.Range("A3").Value2 = "March 8"
Me.Range("A4").Value2 = "March 15"
Me.Range("B1").Value2 = "Customer"
Me.Range("B2").Value2 = "Smith"
Me.Range("B3").Value2 = "Jones"
Me.Range("B4").Value2 = "James"
Me.Range("C1").Value2 = "Sales"
Me.Range("C2").Value2 = "23"
Me.Range("C3").Value2 = "17"
Me.Range("C4").Value2 = "39"
' Create and populate the PivotTable.
Dim table1 As Excel.PivotTable = _
Me.PivotTableWizard( _
Excel.XlPivotTableSourceType.xlDatabase, _
Me.Range("A1", "C4"), Me.Range("A10"), "Sales Table", _
False, False, True, False, , , False, False, _
Excel.XlOrder.xlDownThenOver, , , )
Dim customerField As Excel.PivotField = _
CType(table1.PivotFields("Customer"), Excel.PivotField)
customerField.Orientation = _
Excel.XlPivotFieldOrientation.xlRowField
customerField.Position = 1
Dim dateField As Excel.PivotField = _
CType(table1.PivotFields("Date"), Excel.PivotField)
dateField.Orientation = _
Excel.XlPivotFieldOrientation.xlColumnField
dateField.Position = 1
table1.AddDataField(table1.PivotFields("Sales"), _
"Sales Summary", Excel.XlConsolidationFunction.xlSum)
' Create a NamedRange in the PivotTable and display the
' location.
Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
= Me.Controls.AddNamedRange(Me.Range("B11"), _
"namedRange1")
namedRange1.Select()
MessageBox.Show("The NamedRange is in the PivotTable report '" & _
namedRange1.PivotTable.Name & "' at the location '" & _
namedRange1.LocationInTable.ToString() & "'.")
MessageBox.Show("The NamedRange has a PivotCell type of: " & _
namedRange1.PivotCell.PivotCellType.ToString())
MessageBox.Show("The NamedRange is in the PivotTable field: " & _
namedRange1.PivotField.Name)
MessageBox.Show("The NamedRange is in the PivotTable item: " & _
namedRange1.PivotItem.Name)
namedRange1.Group(True, , , )
End Sub
private void DisplayPivotTableInformation()
{
// Specify values for the PivotTable.
this.Range["A1", missing].Value2 = "Date";
this.Range["A2", missing].Value2 = "March 1";
this.Range["A3", missing].Value2 = "March 8";
this.Range["A4", missing].Value2 = "March 15";
this.Range["B1", missing].Value2 = "Customer";
this.Range["B2", missing].Value2 = "Smith";
this.Range["B3", missing].Value2 = "Jones";
this.Range["B4", missing].Value2 = "James";
this.Range["C1", missing].Value2 = "Sales";
this.Range["C2", missing].Value2 = "23";
this.Range["C3", missing].Value2 = "17";
this.Range["C4", missing].Value2 = "39";
// Create and populate the PivotTable.
Excel.PivotTable table1 = this.PivotTableWizard(
Excel.XlPivotTableSourceType.xlDatabase,
this.Range["A1", "C4"],
this.Range["A10", missing], "Sales Table", false,
false, true, false, missing, missing, false, false,
Excel.XlOrder.xlDownThenOver, missing, missing, missing);
Excel.PivotField customerField =
(Excel.PivotField)table1.PivotFields("Customer");
customerField.Orientation =
Excel.XlPivotFieldOrientation.xlRowField;
customerField.Position = 1;
Excel.PivotField dateField =
(Excel.PivotField)table1.PivotFields("Date");
dateField.Orientation =
Excel.XlPivotFieldOrientation.xlColumnField;
dateField.Position = 1;
table1.AddDataField(table1.PivotFields("Sales"),
"Sales Summary", Excel.XlConsolidationFunction.xlSum);
// Create a NamedRange in the PivotTable and display the
// location.
Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
this.Controls.AddNamedRange(
this.Range["B11", missing], "namedRange1");
namedRange1.Select();
MessageBox.Show("The NamedRange is in the PivotTable report '" +
namedRange1.PivotTable.Name + "' at the location '" +
namedRange1.LocationInTable.ToString() + "'.");
MessageBox.Show("The NamedRange has a PivotCell type of: " +
namedRange1.PivotCell.PivotCellType.ToString());
MessageBox.Show("The NamedRange is in the PivotTable field: " +
namedRange1.PivotField.Name);
MessageBox.Show("The NamedRange is in the PivotTable item: " +
namedRange1.PivotItem.Name);
namedRange1.Group(true, missing, missing, missing);
}
Sicurezza di .NET Framework
- Attendibilità totale per il chiamante immediato. Impossibile utilizzare questo membro in codice parzialmente attendibile. Per ulteriori informazioni, vedere Utilizzo di librerie da codice parzialmente attendibile.