NamedRange.AdvancedFilter(XlFilterAction, Object, Object, Object) Método

Definición

Espacio de nombres:

Microsoft.Office.Tools.Excel

Ensamblado:

Microsoft.Office.Tools.Excel.dll

Filtra o copia los datos de una lista basada en un rango de criterios.

public object AdvancedFilter (Microsoft.Office.Interop.Excel.XlFilterAction Action, object CriteriaRange, object CopyToRange, object Unique);

abstract member AdvancedFilter : Microsoft.Office.Interop.Excel.XlFilterAction * obj * obj * obj -> obj

Public Function AdvancedFilter (Action As XlFilterAction, Optional CriteriaRange As Object, Optional CopyToRange As Object, Optional Unique As Object) As Object

Parámetros

Action

XlFilterAction

Puede ser uno de los siguientes XlFilterAction valores: xlFilterCopyxlFilterInPlace

CriteriaRange

Object

Rango de criterios. Si se omite este argumento, no hay ningún criterio.

CopyToRange

Object

Intervalo de destino de las filas copiadas si Action es xlFilterCopy. De lo contrario, se omite.

Unique

Object

Es true para filtrar solamente registros únicos; es false para filtrar todos los registros que cumplan los criterios. El valor predeterminado es false.

Devoluciones

Object

Ejemplos

En el ejemplo de código siguiente se establecen valores enteros en el rango de celdas de A1 a A5 y, a continuación, se usa el AdvancedFilter método para filtrar y copiar los valores en el rango de celdas a partir de B1.

Este ejemplo es para una personalización de nivel de documento.

private void ActivateAdvancedFilter()
{
    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A5"],
        "namedRange1");

    this.Range["A1"].Value2 = 10;
    this.Range["A2"].Value2 = 10;
    this.Range["A3"].Value2 = 20;
    this.Range["A4"].Value2 = 10;
    this.Range["A5"].Value2 = 30;

    namedRange1.AdvancedFilter(Excel.XlFilterAction.xlFilterCopy,
         this.Range["B1"], true);
}

Private Sub ActivateAdvancedFilter()
    Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
        = Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
        "namedRange1")

    Me.Range("A1").Value2 = 10
    Me.Range("A2").Value2 = 10
    Me.Range("A3").Value2 = 20
    Me.Range("A4").Value2 = 10
    Me.Range("A5").Value2 = 30

    namedRange1.AdvancedFilter(Excel.XlFilterAction.xlFilterCopy, , _
        Me.Range("B1"), True)
End Sub

Comentarios

Si la selección inicial es una sola celda, se usa la región actual de esa celda.

Parámetros opcionales

Para obtener información sobre los parámetros opcionales, vea Parámetros opcionales en soluciones de Office.