NamedRange.FindNext – metoda

Článek
08/11/2011

Pokračuje v hledání, které bylo zahájeno s Find metody.

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

Syntaxe

'Deklarace
Function FindNext ( _
    After As Object _
) As Range

Range FindNext(
    Object After
)

Parametry

After
Typ: System.Object
Buňka, po které chcete hledat.To odpovídá umístění aktivní buňky při vyhledávání se provádí z uživatel rozhraní.Všimněte si, že After musí být v jedné buňce NamedRange řízení.Nezapomeňte, že hledání začne po této buňky; zadané buňky je prohledána, dokud metoda neobteče zpět do této buňky.Pokud tento argument není zadán, hledání začíná po buňce v levém horním rohu NamedRange řízení.

Vrácená hodnota

Typ: Microsoft.Office.Interop.Excel.Range
A Microsoft.Office.Interop.Excel.Range objekt představující buňku obsahující zadané informace.

Poznámky

Najde další buňku, která odpovídá za stejných podmínek jako Find metoda.

Tato metoda nemá vliv na výběr nebo aktivní buňky.

Konec rozsahu hledání dosáhne hledání bude obtékat okolo začátek rozsahu. Ukončíte hledání při výskytu tohoto wraparound uložte adresu na první nalezený buňky a test každé následné adresu najít buňky proti této adresy uložené.

Volitelné parametry

Informace o volitelných parametrů, viz The Variable missing and Optional Parameters in Office Solutions.

Příklady

Následující kód například používá Find metoda najít první buňky s hodnotou Seashell v NamedRange řízení. V příkladu se pak používá FindNext a FindPrevious metody najít další buňky s hodnotou Seashell a vrátit se do původní buňky. Nakonec příkladu Cut metoda vyjmout obsah první buňky s hodnotou Seashell a vložit jej do buňky B1.

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

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

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

NamedRange Rozhraní

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

Sdílet prostřednictvím