NamedRange.FindNext Yöntem

Makale
10/29/2012

İle başlamış bir arama devam Find yöntem.

Ad alanı: Microsoft.Office.Tools.Excel
Derleme: Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll içinde)

Sözdizimi

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

Range FindNext(
    Object After
)

Parametreler

After
Tür: System.Object
Sonra aramak istediğiniz hücre.Kullanıcı arabirimini kullanarak bir arama yapıldığında bu etkin hücrenin konumuna karşılık gelir.Dikkat edin After tek bir hücreye olmalıdır NamedRange denetim.Arama sonra bu hücre başlar unutmayın; Belirtilen hücre yöntemi bu hücre etrafında geri sarar kadar aranmaz.Bu bağımsız değişken belirtilmezse, arama sol üst köşesindeki hücreye başladığından, NamedRange denetim.

Dönüş Değeri

Tür: Microsoft.Office.Interop.Excel.Range
A Microsoft.Office.Interop.Excel.Range belirtilen bilgileri içeren bir hücreyi temsil eden nesne.

Notlar

Olarak aynı koşullara uyan bir sonraki hücreyi bulur Find yöntem.

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

Aramayı belirli bir arama aralığın sonuna ulaştığında, onu etrafında aralığın başlangıcını sarar.Bu wraparound ortaya çıktığında bir aramayı durdurmak için ilk bulunan hücrenin adresini kaydedin ve her ardışık bulunan hücre adresi karşı kaydedilen bu adresi sınayın.

İsteğe bağlı parametreler

İsteğe bağlı parametreler hakkında daha fazla bilgi için bkz: Office Çözümlerinde İsteğe Bağlı Parametreler.

Örnekler

Aşağıdaki kod örneğinde Find değerine sahip ilk hücre bulma yöntemi Deniz Kabuğu , bir NamedRange denetim.Örnek daha sonra kullanır FindNext ve FindPrevious değeri olan sonraki hücre bulma yöntemleri Deniz Kabuğu ve özgün hücreden dönün.Son olarak, örnek kullanan Cut değerine sahip ilk hücre içeriğini kesmek için yöntem Deniz Kabuğu ve B1 hücresine yapıştırabilirsiniz.

Bu örnek için belge düzeyi özelleştirmesinde içindir.

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

.NET Framework Güvenliği

Anında arayanlar için tam güven. Bu üye kısmen güvenilen kodla kullanılamaz. Daha fazla bilgi için bkz. Kısmen güvenilen kod kitaplıklarını kullanma.

Ayrıca bkz.

Başvuru

NamedRange Arabirim

Microsoft.Office.Tools.Excel Ad Alanı

Aracılığıyla paylaş