Freigeben über


NamedRange.Group-Methode

Wenn das NamedRange-Steuerelement eine einzelne Zelle im Datenbereich eines PivotTable-Felds darstellt, führt die Group-Methode eine numerische oder eine datenbasierte Gruppierung in diesem Feld aus.

Namespace:  Microsoft.Office.Tools.Excel
Assembly:  Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)

Syntax

'Declaration
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
)

Parameter

  • Start
    Typ: System.Object
    Der erste Wert, der gruppiert werden soll.Wenn dieses Argument weggelassen wird oder true ist, wird der erste Wert im Feld verwendet.
  • End
    Typ: System.Object
    Der letzte Wert, der gruppiert werden soll.Wenn dieses Argument weggelassen wird oder true ist, wird der letzte Wert im Feld verwendet.
  • By
    Typ: System.Object
    Wenn das Feld numerisch ist, gibt dieses Argument die Größe jeder Gruppe an.Wenn das Feld eine Datumsangabe ist, gibt dieses Argument die Anzahl der Tage in jeder Gruppe an, wenn das Element 4 im Periods-Array true ist und alle anderen Elemente false sind.Andernfalls wird dieses Argument ignoriert.Wenn dieses Argument weggelassen wird, wählt Microsoft Office Excel automatisch eine Standardgruppengröße aus.
  • Periods
    Typ: System.Object
    Ein Array von sieben booleschen Werten, die den Zeitraum für die Gruppe folgendermaßen angeben:
    1 - Sekunden
    2 - Minuten
    3 - Stunden
    4 - Tage
    5 - Monate
    6 - Quartale
    7 - Jahre
    Wenn ein Element im Array true ist, wird eine Gruppe für die entsprechende Zeit erstellt. Wenn das Element false ist, wird keine Grupppe erstellt.Wenn das Feld kein Datumsfeld ist, wird dieses Argument ignoriert.

Rückgabewert

Typ: System.Object

Hinweise

Das NamedRange-Steuerelement muss eine einzelne Zelle im Datenbereich des PivotTable-Felds sein.Wenn Sie versuchen, diese Methode auf mehr als eine Zelle anzuwenden, schlägt die Methode fehl, ohne eine Fehlermeldung anzuzeigen.

Optionale Parameter

Informationen zu optionalen Parametern finden Sie unter Optionale Parameter in Office-Lösungen.

Beispiele

Im folgenden Codebeispiel werden ein PivotTable-Bericht und ein NamedRange innerhalb des Bereichs des PivotTable-Berichts erstellt.Anschließend werden mithilfe der Eigenschaften PivotTable, LocationInTable, PivotCell, PivotItem und PivotField Informationen zur Platzierung von NamedRange innerhalb des PivotTable-Berichts angezeigt.Im Beispiel wird außerdem die Group-Methode verwendet, um eine numerische Gruppierung auszuführen, die auf dem ersten Wert in dem Feld basiert.

Dieses Beispiel bezieht sich auf eine Anpassung auf Dokumentebene.

    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"].Value2 = "Date";
    this.Range["A2"].Value2 = "March 1";
    this.Range["A3"].Value2 = "March 8";
    this.Range["A4"].Value2 = "March 15";

    this.Range["B1"].Value2 = "Customer";
    this.Range["B2"].Value2 = "Smith";
    this.Range["B3"].Value2 = "Jones";
    this.Range["B4"].Value2 = "James";

    this.Range["C1"].Value2 = "Sales";
    this.Range["C2"].Value2 = "23";
    this.Range["C3"].Value2 = "17";
    this.Range["C4"].Value2 = "39";

    // Create and populate the PivotTable.
    Excel.PivotTable table1 = this.PivotTableWizard(
        Excel.XlPivotTableSourceType.xlDatabase,
        this.Range["A1", "C4"],
        this.Range["A10"], "Sales Table", false,
        false, true, false, false, false,
        Excel.XlOrder.xlDownThenOver);

    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"], "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);
}

.NET Framework-Sicherheit

Siehe auch

Referenz

NamedRange Schnittstelle

Microsoft.Office.Tools.Excel-Namespace