NamedRange.FindNext(Object) 方法

定义

命名空间:

Microsoft.Office.Tools.Excel

程序集:

Microsoft.Office.Tools.Excel.dll

继续执行用 Find(Object, Object, Object, Object, Object, XlSearchDirection, Object, Object, Object) 方法开始的搜索。

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

参数

After

Object

要在其之后搜索的单元格。 此单元格就是从用户界面执行的搜索完成后处于活动状态的单元格。 请注意， After 必须是 控件中的 NamedRange 单个单元格。 请记住，搜索将从该单元格之后开始；只有方法绕回到指定的单元格之后，才会搜索该单元格。 如果未指定此参数，则从 NamedRange 控件左上角中的单元格之后开始搜索。

返回

Range

一个 Range 对象，表示包含指定信息的单元格。

示例

下面的代码示例使用 Find 方法查找控件中具有 值 Seashell 的第一个 NamedRange 单元格。 然后，该示例使用 FindNext 和 FindPrevious 方法查找具有 值的 Seashell 下一个单元格，然后返回到原始单元格。 最后，该示例使用 Cut 方法使用 值 Seashell 剪切第一个单元格的内容，并将其粘贴到单元格 B1 中。

此示例适用于文档级自定义项。

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

注解

查找与 方法相同的条件 Find 匹配的下一个单元格。

此方法不会影响所选内容或活动单元格。

当搜索到达指定搜索范围的末尾时，它将环绕到范围的开头。 若要在发生此环绕时停止搜索，请保存第一个找到的单元格的地址，然后针对此保存的地址测试每个连续找到的单元格地址。

可选参数

有关可选参数的信息，请参阅 Office 解决方案中的可选参数。