NamedRange.Group, méthode
Lorsque le contrôle NamedRange représente une cellule unique dans la plage de données d'un champ PivotTable, la méthode Group exécute un regroupement par nombre ou par date dans ce champ.
Espace de noms : Microsoft.Office.Tools.Excel
Assembly : Microsoft.Office.Tools.Excel (dans Microsoft.Office.Tools.Excel.dll)
Syntaxe
'Déclaration
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
)
Paramètres
- Start
Type : System.Object
Première valeur à regrouper.Si cet argument est omis ou true, la première valeur du champ est utilisée.
- End
Type : System.Object
Dernière valeur à regrouper.Si cet argument est omis ou true, la dernière valeur du champ est utilisée.
- By
Type : System.Object
S'il s'agit d'un champ numérique, cet argument spécifie la taille de chaque groupe.Si le champ est une date, cet argument spécifie le nombre de jours dans chaque groupe si l'élément 4 du tableau Periods a la valeur true et tous les autres éléments la valeur false.Sinon, cet argument est ignoré.Si cet argument est omis, Microsoft Office Excel choisit automatiquement une taille de groupe par défaut.
- Periods
Type : System.Object
Tableau de sept valeurs booléennes qui spécifient la période pour le groupe, comme illustré ci-dessous :
1 - secondes
2 - minutes
3 - heures
4 - jours
5 - mois
6 - trimestres
7 - années
Si un élément du tableau a la valeur true, un groupe est créé pour l'élément de temps correspondant ; si l'élément est false, aucun groupe n'est créé.S'il ne s'agit pas d'un champ de date, cet argument est ignoré.
Valeur de retour
Type : System.Object
Notes
Le contrôle NamedRange doit être une cellule unique dans la plage de données du champ PivotTable. Si vous essayez d'appliquer cette méthode à plusieurs cellules, elle échoue (sans afficher de message d'erreur).
Paramètres optionnels
Pour plus d'informations sur les paramètres optionnels, consultez Paramètres optionnels dans les solutions Office.
Exemples
L'exemple de code suivant crée un rapport PivotTable et un NamedRange à l'intérieur de la zone du rapport PivotTable. Il utilise ensuite les propriétés PivotTable, LocationInTable, PivotCell, PivotItem et PivotField pour afficher des informations relatives au positionnement de NamedRange dans le rapport PivotTable. Cet exemple utilise également la méthode Group pour effectuer le regroupement des nombres en fonction de la première valeur contenue dans le champ.
Cet exemple illustre une personnalisation au niveau du document.
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);
}
Sécurité .NET Framework
- Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.