Поделиться через

NamedRange.FindPrevious Метод (2007 System)

  • Статья

Обновлен: Ноябрь 2007

Продолжает поиск, начатый при помощи метода Find.

Пространство имен:  Microsoft.Office.Tools.Excel
Сборка:  Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Function FindPrevious ( _
    After As Object _
) As Range
'Применение
Dim instance As NamedRange
Dim After As Object
Dim returnValue As Range

returnValue = instance.FindPrevious(After)

public Range FindPrevious(
    Object After
)

Параметры

  • After
    Тип: System.Object
    Ячейка, перед которой следует начать поиск. Это соответствует положению активной ячейки при выполнении поиска из пользовательского интерфейса. Следует отметить, что After должна быть единственной ячейкой в элементе управления NamedRange. Помните, что поиск начинается перед этой ячейкой; поиск указанной ячейки не осуществляется до тех пор, пока метод не вернется к этой ячейке. Если этот аргумент не указывается, поиск начинается перед ячейкой в верхнем левом углу элемента управления NamedRange.

Возвращаемое значение

Тип: Microsoft.Office.Interop.Excel.Range
Объект Microsoft.Office.Interop.Excel.Range, представляющий ячейку, содержащую указанные данные.

Заметки

Находит предыдущую ячейку, соответствующую условиям, указанным для метода Find.

Этот метод не влияет на выделенный фрагмент или активную ячейку.

Когда достигается начало заданного диапазона поиска, поиск начинается с конца этого диапазона. Чтобы остановить поиск при возникновении такого циклического возврата, сохраните адрес первой найденной ячейки, а затем протестируйте адрес каждой успешно найденной ячейки относительно этого сохраненного адреса.

Необязательные параметры

Сведения о необязательных параметрах см. в разделе Общие сведения о необязательных параметрах в решениях Office.

Примеры

В следующем примере кода с помощью метода Find выполняется поиск первой ячейки со значением Seashell в элементе управления NamedRange. После этого в примере с помощью методов FindNext и FindPrevious выполняется поиск следующей ячейки со значением Seashell, а затем производится возврат к исходной ячейке. В завершение в этом примере вызывается метод Cut для вырезания содержимого первой ячейки, содержащей значение Seashell, и вставки его в ячейку 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


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

Разрешения

См. также

Ссылки

NamedRange Класс

NamedRange - члены

Microsoft.Office.Tools.Excel - пространство имен