Compartir a través de


NamedRange.FindPrevious(Object) Método

Definición

public Microsoft.Office.Interop.Excel.Range FindPrevious (object After);
abstract member FindPrevious : obj -> Microsoft.Office.Interop.Excel.Range
Public Function FindPrevious (Optional After As Object) As Range

Parámetros

After
Object

Celda antes de la que desea buscar. Corresponde a la posición de la celda activa cuando se realiza una búsqueda desde la interfaz de usuario. Tenga en cuenta que After debe ser una sola celda en el NamedRange control . Recuerde que la búsqueda comienza delante de esta celda; no se busca en la celda especificada hasta que el método vuelve a esta posición. Si no se especifica este argumento, la búsqueda se inicia delante de la celda superior izquierda del control NamedRange.

Devoluciones

Objeto Range que representa una celda que contiene la información especificada.

Ejemplos

En el ejemplo de código siguiente se usa el Find método para buscar la primera celda con el valor Seashell de un NamedRange control . A continuación, en el ejemplo se usan los FindNext métodos y FindPrevious para buscar la celda siguiente con el valor Seashell y, a continuación, volver a la celda original. Por último, en el ejemplo se usa el Cut método para cortar el contenido de la primera celda con el valor Seashell y pegarlo en la celda B1.

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

private void FindValue()
{
    this.Range["A1"].Value2 = "Barnacle";
    this.Range["A2"].Value2 = "Seashell";
    this.Range["A3"].Value2 = "Star Fish";
    this.Range["A4"].Value2 = "Seashell";
    this.Range["A5"].Value2 = "Clam Shell";

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

    // Find the first occurrence of "Seashell".
    Excel.Range Range1 = namedRange1.Find("Seashell",
        Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns,
        Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext,
        false);

    // Find the next occurrence of "Seashell".
    Range1 = namedRange1.FindNext(Range1);

    // Return to the first occurrence of "Seashell".
    Range1 = namedRange1.FindPrevious(Range1);

    // Cut the range with the first "Seashell" and copy it to cell B1.
    Microsoft.Office.Tools.Excel.NamedRange namedRange2 =
        this.Controls.AddNamedRange(Range1, "namedRange2");
    namedRange2.Cut(this.Range["B1"]);
}
Private Sub FindValue()
    Me.Range("A1").Value2 = "Barnacle"
    Me.Range("A2").Value2 = "Seashell"
    Me.Range("A3").Value2 = "Star Fish"
    Me.Range("A4").Value2 = "Seashell"
    Me.Range("A5").Value2 = "Clam Shell"

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

    ' Find the first occurrence of "Seashell".
    Dim Range1 As Excel.Range = namedRange1.Find("Seashell", , , _
        Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns, _
        Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext, _
        False, False, )

    ' Find the next occurrence of "Seashell".
    Range1 = namedRange1.FindNext(Range1)

    ' Return to the first occurrence of "Seashell".
    Range1 = namedRange1.FindPrevious(Range1)

    ' Cut the range with the first "Seashell" and copy it to cell B1.
    Dim namedRange2 As Microsoft.Office.Tools.Excel.NamedRange _
        = Me.Controls.AddNamedRange(Range1, "namedRange2")
    namedRange2.Cut(Me.Range("B1"))
End Sub

Comentarios

Busca la celda anterior que coincide con las mismas condiciones que el Find método .

Este método no afecta a la selección ni a la celda activa.

Cuando la búsqueda llega al principio del intervalo de búsqueda especificado, se ajusta al final del intervalo. Para detener una búsqueda cuando se produzca este ajuste, guarde la dirección de la primera celda encontrada y, a continuación, pruebe cada dirección de celda encontrada sucesiva en esta dirección guardada.

Parámetros opcionales

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

Se aplica a