Worksheet.AutoFilter Свойство (2007 System)

Статья
11/16/2008

Обновлен: Ноябрь 2007

Получает значение Microsoft.Office.Interop.Excel.AutoFilter, если фильтрация включена. Получает значение nullссылка null (Nothing в Visual Basic), если фильтрация выключена.

Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
<BrowsableAttribute(False)> _
Public ReadOnly Property AutoFilter As AutoFilter
'Применение
Dim instance As Worksheet
Dim value As AutoFilter

value = instance.AutoFilter

[BrowsableAttribute(false)]
public AutoFilter AutoFilter { get; }

Значение свойства

Тип: Microsoft.Office.Interop.Excel.AutoFilter
Имеет значение Microsoft.Office.Interop.Excel.AutoFilter, если фильтрация включена; в противном случае имеет значение nullссылка null (Nothing в Visual Basic).

Заметки

Чтобы создать объект Microsoft.Office.Interop.Excel.AutoFilter для рабочей таблицы, необходимо включить автоматическую фильтрацию для диапазона на рабочей таблице вручную или с помощью метода AutoFilter объекта Range.

Примеры

В следующем примере кода в диапазоне ячеек Range создается отфильтрованный список фруктов, после чего с использованием свойства AutoFilter определяется и отображается условие фильтрации списка. После этого в примере выдается запрос пользователю на отключение фильтра с помощью свойства AutoFilterMode, а в конце производится обращение к свойству FilterMode для вывода сведений о том, имеется ли на листе отфильтрованный список.

В этом примере демонстрируется настройка уровня документа.

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

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

Worksheet Класс

Worksheet - члены

Microsoft.Office.Tools.Excel - пространство имен

Поделиться через