文書番号: 282151 - 最終更新日: 2003年5月30日 - リビジョン: 1.0

[XL2002] 特定の書式設定を検索するために FindNext を使用すると間違ったセルが検索される

対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
この記事は、以前は次の ID で公開されていました: JP282151
すべて展開する | すべて折りたたむ

現象

Microsoft Visual Basic for Applications を使用して特定の書式のセルを検索すると、マクロが指定した書式設定と一致しないセルを検索することがあります。
先頭へ戻る

原因

FindNext または FindPrevious メソッドは、その前に実行された Find メソッドで使用されていた書式設定を無視するため、この問題が発生します。

注 : マクロの記録中に [次を検索] をクリックすると、FindNext メソッドが使用されます。
先頭へ戻る

回避策

この問題を回避するには、すべての FindNext および FindPrevious の行を Find に置き換えます。2 番目以降の Find コマンドではオプションの After および SerchFormat 引数が必要です。 

Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
たとえば、上記のようなコードが記録されている場合、Cells.FindNext(After:=ActiveCell) を置き換えます。以下のように Find メソッドを使用してアクティブにします。
Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=True).Activate
先頭へ戻る

状況

この現象は弊社にて Excel 2002 の問題として確認しています。
先頭へ戻る

関連情報

この資料は米国 Microsoft Corporation から提供されている Knowledge Base の Article ID 282151? (http://support.microsoft.com/kb/282151/EN-US/ ) (最終更新日 2001-03-26) をもとに作成したものです。
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Excel 2002 Standard Edition
先頭へ戻る
キーワード:?
kbbug kbdta kbpending vba xl10 xl2002 書式 検索 KB282151
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"