Sdílet prostřednictvím


NamedRange.Group – metoda

Když NamedRange ovládací prvek představuje jedinou buňku v oblasti dat kontingenční tabulky pole, Group metoda provádí seskupení číselných nebo datum v tomto poli.

Obor názvů:  Microsoft.Office.Tools.Excel
Sestavení:  Microsoft.Office.Tools.Excel (v Microsoft.Office.Tools.Excel.dll)

Syntaxe

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

Parametry

  • Start
    Typ: System.Object
    První hodnota byly seskupeny.Pokud je tento argument vynechán nebo true, je použit první hodnota v poli.
  • End
    Typ: System.Object
    Udává poslední hodnotu, chcete-li seskupit.Pokud je tento argument vynechán nebo true, je použit poslední hodnotu v poli.
  • By
    Typ: System.Object
    Pokud je číselná pole, tento argument určuje velikost každé skupiny.Pokud je pole datum, tento argument určuje počet dnů v každé skupině, pokud prvek 4 Periods pole je true a všechny ostatní prvky jsou false.V opačném případě se tento argument ignorován.Pokud tento argument vynecháte, aplikace Microsoft Office Excel automaticky zvolí výchozí velikost skupiny.
  • Periods
    Typ: System.Object
    Matice sedm logické hodnoty, které určují období pro skupiny, jak je uvedeno:
    1 - Sekund
    2 - Minut
    3 - Hodiny
    4 - Dny
    5 - Měsíce
    6 - Čtvrtletí
    7 - Let
    Pokud je prvek v poli true, skupina je vytvořena odpovídající dobu; Pokud je prvek false, je vytvořena žádná skupina.Pokud pole není pole datum, bude tento argument ignorován.

Vrácená hodnota

Typ: System.Object

Poznámky

NamedRange Ovládacího prvku musí být jedinou buňku v oblasti dat kontingenční tabulky pole.Pokud se pokusíte použít tuto metodu pro více než jednu buňku, se nezdaří (bez zobrazení chybové zprávy).

Volitelné parametry

Informace o volitelných parametrů naleznete v tématu Volitelné parametry v Office Solutions.

Příklady

Následující příklad kódu vytvoří sestavu kontingenční tabulky a NamedRange v oblasti sestavy kontingenční tabulky.Poté použije PivotTable, LocationInTable, PivotCell, PivotItem, a PivotField vlastnosti, chcete-li zobrazit informace o umístění NamedRange do sestavy kontingenční tabulky.V příkladu se používá také Group metodu je třeba použít číselný seskupení založené na první hodnotu v poli.

V tomto příkladu je úroveň dokument přizpůsobení.

    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);
}

Zabezpečení rozhraní .NET Framework

Viz také

Referenční dokumentace

NamedRange Rozhraní

Microsoft.Office.Tools.Excel – obor názvů