NamedRange.FindNext(Object) Yöntem

Tanım

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

Parametreler

After
Object

Arama yapmak istediğiniz hücre. Bu, kullanıcı arabiriminden bir arama yapıldığında etkin hücrenin konumuna karşılık gelir. Denetimde AfterNamedRange tek bir hücre olması gerektiğini unutmayın. Aramanın bu hücreden sonra başlayacağını unutmayın. Yöntem, bu hücreye geri sarana kadar belirtilen hücre aranmaz. Bu bağımsız değişken belirtilmezse, arama denetimin sol üst köşesindeki hücreden NamedRange sonra başlar.

Döndürülenler

Range Belirtilen bilgileri içeren bir hücreyi temsil eden nesne.

Örnekler

Aşağıdaki kod örneği, bir denetimdeki FindNamedRange değere Seashell sahip ilk hücreyi bulmak için yöntemini kullanır. Örnek daha sonra değeri Seashell içeren FindNext bir sonraki hücreyi bulmak ve ardından özgün hücreye dönmek için ve FindPrevious yöntemlerini kullanır. Son olarak, örnek, ilk hücrenin içeriğini değerle Seashell kesmek ve B1 hücresine yapıştırmak için yöntemini kullanırCut.

Bu örnek, belge düzeyinde özelleştirme içindir

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

Açıklamalar

Yöntemiyle aynı koşullarla eşleşen bir sonraki hücreyi Find bulur.

Bu yöntem, seçimi veya etkin hücreyi etkilemez.

Arama belirtilen arama aralığının sonuna ulaştığında, aralığın başına doğru kaydırılır. Bu metin çevresinde kaydırma işlemi oluştuğunda aramayı durdurmak için, ilk bulunan hücrenin adresini kaydedin ve bulunan her ardışık hücre adresini kaydedilen bu adresle sınayın.

İsteğe Bağlı Parametreler

İsteğe bağlı parametreler hakkında bilgi için bkz. Office Çözümleri'nde İsteğe Bağlı Parametreler.

Şunlara uygulanır