日付が入っているCSVファイルで、月の検索が出来ない

Question

日付が以下のようなCSVファイルの書式で入っています。
このCSVファイルをWorkbooks.Openで開きます。
2016/1/1,,,,
(～省略～)
2016/1/31,,,,
2016/2/1,,,,
2016/2/2,,,,

その後、"2016/2"を文字列として2月が始まる月のセルをRange型の変数 r に代入したく、以下のように書きましたがうまく検索に引っかかりません。
Set r = ActiveSheet.Range("A1:A1024").Find(What:=DateValue("2016/2"), LookIn:=xlFormulas)

当方、VBAは初心者なため何が悪いのか良く分かりませんでした。
どこが悪いのでしょうか？

Answer 1

LookIn いりません。LookIn:=xlFormulas とすると数式を検索しますが、数式は入っていないはずです。

Answer 2

DateValueをやめたらうまくいきませんか？

Set r = ActiveSheet.Range("A1:A1024").Find(What:="2016/2", LookIn:=xlFormulas) 

DateValueで返される値は【ユーザーがシステムに対して指定した短い日付形式】と解説されています。

例えば

msgbox DateValue("2016/2")

としてみると、私の場合[2016/02/01]と表示されます。

この値が期待しているもの（2016/2）とは異なるため、Findで見つからなかったと思います。

また、セルの値を検索するのであればLookInにはxlValuesを指定した方がよいでしょう。

Answer 3

CSVを開くと日付型でなく文字列型になっていると思います。
DateValueを外せば、とりあえず検索に引っかかるようになるはずです。

それだと、ユーザーが操作してExcelが勝手に日付型に変換してしまった場合に
また検索に引っかからなくなるので、効率悪いですが文字列型と日付型の2回掛けする形で
サンプルコードを置いておきます。ご参考までに。

Dim str As String
Dim r, rng As Range

Set rng = ActiveSheet.Range("A1:A1024")
str = "2016/2"

Set r = rng.Find(What:=str, LookIn:=xlFormulas)
If r Is Nothing Then
    Set r = rng.Find(What:=DateValue(str), LookIn:=xlFormulas)
End If

Comments

[7_rate]

回答ありがとうございます。
こちら実行してみましたが MsgBox (r) としたところで、下記のようなエラーが出てしまいます。
--エラー-------------------------------
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。
----------------------------------------

--コード------------------------------
Set ran = ActiveSheet.Range("A1:A1024")
str = "2016/5"

Set r = ran.Find(What:="2016/5")

If r Is Nothing Then
Set r = ran.Find(What:=DateValue(str))
End If

MsgBox (r.Value)
----------------------------------------

プログラム実行中で、アクティブなシートとかブックとかのイメージがつかめていません。
その辺のエラーなのでしょうか？

[clickmaker]

2016/5/OOのデータが無い場合は検索結果が見つからず r は空のままなので、上記のエラーが発生するのは一応は想定内です。If r Is Nothing Thenで判断できるので結果の有り無しの分岐を入れてエラーハンドリングしてみてください。

[clickmaker]

2016/5/OOのデータがある場合は、ブレークポイントやウォッチ式を入れて、どこの処理でどの変数がどうなっているかを教えてもらえると助かります。参考：http://www.excel-excel.com/vbachair/step1-7.html

[7_rate]

質問の内容だと2016/2/2までしかないように見えましたね...すみません。
2016/5/XXなデータはあります。

教えていただいた変数のウォッチで r をウォッチした結果、しっかりとFindメソッドで 2016/5/1 なデータを探し、 r に代入できていることが分りました。
しかし、やはりMsgBoxのところで先ほどと同じエラーが出てしまいます。

[7_rate]

勘違いだったようです。。。
MsgBoxで2016/5/1と表示されました。

[clickmaker]

解決したようでよかったです。ベストアンサーありがとうございます(^ ^