文書番号: 416317 - 最終更新日: 2004年5月18日 - リビジョン: 3.0

[XL2000]Findメソッドで日付と時刻形式のデータを検索できない

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

目次

すべて展開する | すべて折りたたむ

概要

この資料は、Find メソッドを使用して、日付および時刻形式で表示されたデータを検索 できない現象について説明しています。
先頭へ戻る

詳細

この現象は、以下の条件を満たした場合に発生します。
  • Microsoft Visual Basic Programming System Applications (以下 VBA) の Find メソッドを使用している 
      かつ
  • 検索するデータが日付および時刻の形式である (例： 2000/1/1 0:00) 
      かつ
  • 時刻部分のデータが 0:00:00 である
先頭へ戻る

再現手順

この文書では、特定の機能の説明を目的としたプログラミングの例を提供しています。 本例は、特定の状況や目的を満たすために作成されていますが、マイクロソフトでは市 場や特定の目的で使用することを制限してはおらず、また明示的、暗示的にも保証して はおりません。この文書は、例示されているプログラミング言語やプロシージャの作成、 デバッグに使用されるツールの使用方法を十分に理解している方を対象としています。 マイクロソフト サポート窓口では、特定のプロシージャの機能説明に関するご質問に対 して支援いたしますが、本例を特定の目的を満たすために機能を追加したり、プロシー ジャを構築することは行いません。プログラミング言語や各プログラミング ツールに関 する詳細な情報はオンラインヘルプをご覧ください。
  1. Excel 2000 を起動し、新規ワークブックを作成します。
  2. 以下のデータを入力します。 
         A1: 2000/1/1 0:00
     A2: 2000/1/2 0:00
     A3: 2000/1/3 0:00
  3. Visual Basic Editor を起動します。
  4. 標準モジュールを挿入し、以下のコードを記述します。 
         Sub Sample()
        Dim x As Date
        x = Application.WorksheetFunction.Min(Worksheets(1).Range("A1:A3"))
        Set y = Worksheets(1).Range("A1:A3").Find(What:=x, LookAt:=xlWhole)
        If y Is Nothing Then
            MsgBox "該当するデータはありません"
        Else
            MsgBox y.Address
        End If
     End Sub
  5. Sample プロシージャを実行します。
先頭へ戻る

結果

"該当するデータはありません" とメッセージ ボックスが表示されます。 本来ならばセル A1 のデータが該当するため、メッセージボックスに $A$1 とセル番地 が表示されます。
先頭へ戻る

状況

この現象は Excel の仕様による動作になります。
先頭へ戻る

回避策

以下のいずれかの方法を使用し検索をおこないます。
先頭へ戻る

For Each ... Next ステートメントを使用する方法

  Sub Sample01()
    Dim x As Date
    x = Application.WorksheetFunction.Min(Worksheets(1).Range("A1:A3"))
    For Each i In Range("A1:A3")
      If i.Value = x Then
        MsgBox i.Address
      End If
    Next
  End Sub
先頭へ戻る

Text プロパティを使用して Find メソッドで値として検索する方法

  Sub Sample02()
     Dim x As Date, z As String
     x = Application.WorksheetFunction.Min(Worksheets(1).Range("A1:A3"))
     z = Application.Text(x, Worksheets(1).Range("A1").NumberFormat)
     Set y = Worksheets(1).Range("A1:A3").Find(What:=z, LookAt:=xlWhole, _
        LookIn:=xlValues)
     If y Is Nothing Then
        MsgBox "該当するデータはありません"
     Else
        MsgBox y.Address
     End If
  End Sub
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
先頭へ戻る
キーワード:?
9.0 date find kbinfo time vba xl97 仕様 日付 時間 検索 KB416317
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"