WorksheetBase.AutoFilterMode – vlastnost

Článek
08/11/2011

Získá nebo nastaví hodnotu, která označuje, zda filtrování aktuálně povolena v list (zda zobrazené rozevírací šipky filtru).

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

Syntaxe

'Deklarace
Public Property AutoFilterMode As Boolean
    Get
    Set

public bool AutoFilterMode { get; set; }

Hodnota vlastnosti

Typ: System.Boolean
true Filtrování je-li povolena na list. jinak false.

Výjimky

Výjimka	Podmínka
COMException	Tato vlastnost nastavena na true.

Poznámky

Tuto vlastnost lze nastavit false Zakázat filtrování (tedy odebrat filtr rozevírací šipky), ale nelze nastavit na true. Povolit filtrování a vytvořit filtrovaný seznam, použijte AutoFilter metoda Range objektnebo použití AutoFilter metoda NamedRange objekt.

Tato vlastnost označuje pouze, zda je povoleno filtrování; neoznačuje, zda všechna data filtrován. Chcete-li zjistit, zda listu aktivně filtrování dat, použijte FilterMode vlastnost.

Příklady

Následující příklad kódu vytváří filtrovaného seznamu ovoce v Rangea použije AutoFilter vlastnost zobrazit kritéria filtru pro seznam. Příklad poté vyzve uživatel pomocí vypnout filtr AutoFilterMode vlastnosta nakonec se používá FilterMode vlastnost zobrazit, zda má list filtrovaného seznamu.

Tento příklad je přizpůsobení úrovni dokumentu.

Private Sub ActivateAutoFilter()
    Me.Range("A1").Value2 = "Fruits"
    Me.Range("A2").Value2 = "Banana"
    Me.Range("A3").Value2 = "Apple"
    Me.Range("A4").Value2 = "Banana"
    Me.Range("A5").Value2 = "Orange"
    Me.Range("A6").Value2 = "Apple"
    Me.Range("A7").Value2 = "Orange"

    Dim NamedRange1 As Microsoft.Office.Tools.Excel.NamedRange = _
        Me.Controls.AddNamedRange(Me.Range("A1", "A7"), "NamedRange1")

    NamedRange1.AutoFilter(1, "Apple", Excel.XlAutoFilterOperator.xlAnd, _
        VisibleDropDown:=True)

    MsgBox("The current criteria for the AutoFilter is: " & _
        Me.AutoFilter.Filters(1).Criteria1.ToString())

    If Me.AutoFilterMode Then
        If DialogResult.Yes = MessageBox.Show("Would you like to " & _
            "turn off the filter?", "Example", MessageBoxButtons.YesNo) Then
            Me.AutoFilterMode = False
        End If
    End If

    If Me.FilterMode Then
        MsgBox("The worksheet has a filtered list.")
    Else
        MsgBox("The worksheet does not have a filtered list")
    End If
End Sub

private void ActivateAutoFilter()
{
    this.Range["A1", missing].Value2 = "Fruits";
    this.Range["A2", missing].Value2 = "Banana";
    this.Range["A3", missing].Value2 = "Apple";
    this.Range["A4", missing].Value2 = "Banana";
    this.Range["A5", missing].Value2 = "Orange";
    this.Range["A6", missing].Value2 = "Apple";
    this.Range["A7", missing].Value2 = "Orange";

    Microsoft.Office.Tools.Excel.NamedRange NamedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A7"],
        "NamedRange1");

    NamedRange1.AutoFilter(1, "Apple",
       Excel.XlAutoFilterOperator.xlAnd, missing, true);

    MessageBox.Show("The current criteria for the AutoFilter is: " +
        this.AutoFilter.Filters[1].Criteria1.ToString());

    if (this.AutoFilterMode)
    {
        if (DialogResult.Yes == MessageBox.Show("Would you like to " +
            "turn off the filter?", "Example", MessageBoxButtons.YesNo))
        {
            this.AutoFilterMode = false;
        }
    }

    if (this.FilterMode)
    {
        MessageBox.Show("The worksheet has a filtered list.");
    }
    else
    {
        MessageBox.Show("The worksheet does not have a filtered list");
    }
}

Zabezpečení rozhraní .NET Framework

Plná důvěra přímému volajícímu. Částečně zabezpečený kód nemůže tento člen použít. Další informace naleznete v tématu Používání knihoven z částečně důvěryhodného kódu.

Viz také

Odkaz

WorksheetBase Třída

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

Sdílet prostřednictvím