NamedRange.FindPrevious Yöntem

Makale
08/01/2011

İle başlamıştı bir arama devam eder Find yöntemi.

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

Sözdizimi

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

Range FindPrevious(
    Object After
)

Parametreler

After
Tür: System.Object
Önce aramak istediğiniz hücre.Kullanıcı arabiriminden bir arama yapıldığında bu etkin hücrenin konumuna karşılık gelir.Dikkat After tek bir hücreye olmalıdır NamedRange Denetim.Arama bu hücre önce başlayacağını unutmayın; Belirtilen hücre yöntemi bu hücreye geri etrafında kaydırılana dek aranmaz.Bu bağımsız değişken belirtilmezse, sol üst hücrede önce aramayı başlatır NamedRange Denetim.

Dönüş Değeri

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

Açıklamalar

Önceki hücre bulur eşleşen aynı koşullarda Find yöntemi.

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

Arama belirtilen arama aralığının başlangıcını ulaştığında, bunu çevresindeki aralığın sonuna kadar sarılır. Bu wraparound ortaya çıktığında bir aramayı durdurmak için ilk bulunan hücrenin adresini kaydedin ve birbirini izleyen her bulunan hücre adresi kaydedilen bu adresi karşı test etmek.

İ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ği Find yöntemi değeri ile ilk hücreyi bulmak için Deniz Kabuğu , bir NamedRange Denetim. Sonra bu örnek kullanır FindNext ve FindPrevious değerine sahip bir sonraki hücreyi bulma yöntemleri Deniz Kabuğu ve özgün hücreye dönmek. Son olarak, bu örnek kullanır Cut değerine sahip ilk hücre içeriğini kesmek yöntem Deniz Kabuğu ve B1 hücresine yapıştırabilirsiniz.

Bu örnek, bir belge düzeyinde özelleştirme için bulunur.

    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 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üvenilir kod tarafından Kitaplıklar kullanma.

Ayrıca bkz.

Başvuru

NamedRange Arabirim

Microsoft.Office.Tools.Excel Ad Alanı

Aracılığıyla paylaş