次の方法で共有

NamedRange.FindNext メソッド

  • [アーティクル]

Find メソッドで開始された検索を続行します。

名前空間:  Microsoft.Office.Tools.Excel
アセンブリ:  Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll 内)

構文

'宣言
Function FindNext ( _
    After As Object _
) As Range

Range FindNext(
    Object After
)

パラメーター

  • After
    型 : System.Object
    検索位置を示すセルです。このセルの次から検索されます。これは、ユーザー インターフェイスから検索を行う場合のアクティブ セルの位置に相当します。 After は NamedRange コントロール内の単一のセルである必要があります。検索はこのセルの次から開始されることに注意してください。指定したセル自体が検索されるのは、メソッドがラップしてそのセルに戻ってきたときです。この引数を指定しなかった場合、検索は NamedRange コントロールの左上隅のセルの後から開始されます。

戻り値

型 : Microsoft.Office.Interop.Excel.Range
指定した情報が含まれているセルを表す Microsoft.Office.Interop.Excel.Range オブジェクトを返します。

解説

Find メソッドと同じ条件に一致する次のセルを検索します。

このメソッドは、選択またはアクティブ セルに影響を与えません。

指定した検索範囲の末尾に達すると、検索範囲の先頭にラップします。このようなラップが発生したときに検索を停止するには、最初に見つかったセルのアドレスを保存しておき、それ以降に見つかった各セルのアドレスを、保存しておいたアドレスと比較します。

省略可能なパラメーター

省略可能なパラメーターについては、「Office ソリューションの省略可能なパラメーター」を参照してください。

例

次のコード例は、Find メソッドを使用して、NamedRange コントロール内で値 Seashell を持つ 1 番目のセルを検索します。次に、FindNext メソッドと FindPrevious メソッドを使用して値 Seashell を持つ次のセルを検索し、元のセルに戻ります。最後に、Cut メソッドを使用して値 Seashell を持つ 1 番目のセルの内容を切り取り、セル 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"].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 セキュリティ

  • 直前の呼び出し元に対する完全な信頼。このメンバーは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。

参照

関連項目

NamedRange インターフェイス

Microsoft.Office.Tools.Excel 名前空間