Range の Previous メソッド (Excel)Range.FindPrevious method (Excel)

Find メソッドによって開始された検索を続行します。Continues a search that was begun with the Find method. 前回の検索条件に一致するセルを、上方向 (行のときは右から左、列のときは下から上) に検索し、見つかったセル ( Range オブジェクト) を返します。Finds the previous cell that matches those same conditions and returns a Range object that represents that cell. 選択範囲またはアクティブセルには影響しません。Doesn't affect the selection or the active cell.


Findprevious()expression.FindPrevious (Before)

expressionRange オブジェクトを表す変数です。expression A variable that represents a Range object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
BeforeBefore オプションOptional VariantVariant 指定したセルの上方 (行のときは左、列のときは上) のセルから検索を開始します。The cell before which you want to search. ワークシート上で検索を行う場合のアクティブ セルに相当します。This corresponds to the position of the active cell when a search is done from the user interface. 引数_Before_には、範囲内の1つのセルを指定する必要があります。Note that Before must be a single cell in the range.

このセルの前から検索が開始されることに注意してください。指定したセルは、メソッドがこのセルに折り返して表示されるまで検索されません。Remember that the search begins before this cell; the specified cell isn't searched until the method wraps back around to this cell. この引数を指定しない場合は、範囲内の左上隅のセルの前から検索が開始されます。If this argument isn't specified, the search starts before the upper-left cell in the range.

戻り値Return value



検索は指定された範囲の最後に達すると、範囲の最初に戻って検索を繰り返します。When the search reaches the beginning of the specified search range, it wraps around to the end of the range. 最初に戻ったときに検索を停止するには、最初に見つかったセルの位置を保存しておき、セルが見つかるたびに、その位置と保存しておいた位置を比較します。To stop a search when this wraparound occurs, save the address of the first found cell, and then test each successive found-cell address against this saved address.


この例では、 findメソッドと**FindNext** メソッドでfindpreviousメソッドを使用する方法を示します。This example shows how the FindPrevious method is used with the Find and FindNext methods. この使用例を実行する前に、シート1の列 B に、少なくとも2つの語句が含まれていることを確認してください。Before running this example, make sure that Sheet1 contains at least two occurrences of the word Phoenix in column B.

Sub FindTest() 
 Dim fc As Range 
 Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix") 
 MsgBox "The first occurrence is in cell " & fc.Address 
 Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc) 
 MsgBox "The next occurrence is in cell " & fc.Address 
 Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc) 
 MsgBox "The previous occurrence is in cell " & fc.Address 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.