NamedRange.FindPrevious-Methode

Artikel
08/10/2011

Setzt die mit der Find-Methode begonnene Suche fort.

Namespace: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)

Syntax

'Declaration
Function FindPrevious ( _
    After As Object _
) As Range

Range FindPrevious(
    Object After
)

Parameter

After
Typ: System.Object
Die Zelle vor der Zelle, die Sie suchen möchten.Dies entspricht der Position der aktiven Zelle, wenn eine Suche über die Benutzeroberfläche durchgeführt wird.Beachten Sie, dass After eine einzelne Zelle im NamedRange-Steuerelement sein muss.Beachten Sie auch, dass die Suche vor dieser Zelle beginnt, wobei die angegebene Zelle erst dann durchsucht wird, wenn die Methode erneut diese Zelle erreicht hat.Wenn dieses Argument nicht angegeben wird, beginnt die Suche vor der linken oberen Zelle im NamedRange-Steuerelement.

Rückgabewert

Typ: Microsoft.Office.Interop.Excel.Range
Ein Microsoft.Office.Interop.Excel.Range-Objekt, das eine Zelle darstellt, die die angegebenen Informationen enthält.

Hinweise

Sucht die vorherige Zelle, die dieselben Kriterien wie die Find-Methode erfüllt.

Diese Methode hat keine Auswirkungen auf die Auswahl oder die aktive Zelle.

Wenn die Suche den Anfang des angegebenen Suchbereichs erreicht, erfolgt ein Umbruch zum Ende des Bereichs. Um die Suche bei einem Umbruch zu beenden, speichern Sie die Adresse der ersten gefundenen Zelle. Prüfen Sie dann jede nachfolgend gefundene Zelladresse gegen diese gespeicherte Adresse.

Optionale Parameter

Informationen zu optionalen Parametern finden Sie unter Optionale Parameter in Office-Lösungen.

Beispiele

Im folgenden Codebeispiel wird mithilfe der Find-Methode nach der ersten Zelle in einem NamedRange-Steuerelement gesucht, die den Wert Seashell enthält. Im Beispiel werden die FindNext-Methode und die FindPrevious-Methode verwendet, um die nächste Zelle mit dem Wert Seashell zu finden und anschließend zur ursprünglichen Zelle zurückzukehren. Abschließend wird im Beispiel die Cut-Methode verwendet, um den Inhalt der ersten Zelle mit dem Wert Seashell auszuschneiden und in die Zelle B1 einzufügen.

Dieses Beispiel bezieht sich auf eine Anpassung auf Dokumentebene.

    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

private void FindValue()
{
    this.Range["A1", missing].Value2 = "Barnacle";
    this.Range["A2", missing].Value2 = "Seashell";
    this.Range["A3", missing].Value2 = "Star Fish";
    this.Range["A4", missing].Value2 = "Seashell";
    this.Range["A5", missing].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", missing, missing,
        Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns,
        Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext,
        false, false, missing);

    // 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", missing]);
}

.NET Framework-Sicherheit

Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.

Siehe auch

Referenz

NamedRange Schnittstelle

Microsoft.Office.Tools.Excel-Namespace

Share via