[求助]不能用find查找日期所在位置

yf_992258

ZZQ84DAr.rar (4.06 KB, 下载次数: 100)

2008-5-8 14:51 上传

点击文件名下载附件
[求助]不能用find查找日期所在位置

如附件a列一串日期,用下面的代码查找不到,例如输入"5-5",哪里有问题,应该怎么写?

   msg = InputBox("请输入筛选日期", "筛选日期")
   lr = [a65535].End(xlUp).Row + 1
   Set c = Range("a1:a" & lr).Find(Format(msg, "yyyy-m-d"), lookat:=xlWhole)
   If Not c Is Nothing Then
    firstaddress = c.Row
    Do
     MsgBox c.Row
     Set c = Range("a1:a" & lr).FindNext(c)
    Loop While firstaddress <> c.Row
   End If

用Application.WorksheetFunction.CountIf(Range("a1:A" & lr), Format(msg, "yyyy-m-d"))能得到结果为2

TGB

查日期要选公式


 msg = InputBox("请输入筛选日期", "筛选日期", "2008-4-17")
   lr = [a65535].End(xlUp).Row + 1
   Set c = Range("a1:a" & lr).Find(DateValue(msg), LookIn:=xlFormulas, lookat:=xlWhole)
   If Not c Is Nothing Then
    firstaddress = c.Row
    Do
     MsgBox c.Row
     Set c = Range("a1:a" & lr).FindNext(c)
    Loop While firstaddress <> c.Row
   End If

yf_992258

哦,谢谢,好长时间不来了,坛里还是高手多,好人多,呵呵!~~

collection

我试验过了，好像还是不行啊。代码如下：

    Range("B17").Select
    Dim daycount As Integer
    Dim n As Integer
    Dim day As String
    Dim daylist(30) As String
    Dim C As Range
   
   
    daycount = Worksheets("Setting").Cells(14, 2).value
    For n = 1 To daycount     
           
      daylist(n - 1) = Worksheets("Setting").Cells(14 + n, 2).value          
      Set C = Worksheets("Schedule").Range("A17:A" & CStr(dcount)).Find(DateTime.DateValue(daylist(n - 1)), LookIn:=xlValues)
      If Not C Is Nothing Then

      .... ....

      End If
     
    Next n

Worksheets("Schedule")表中，A17:A317中，A17为2009-3-11，A18=A17+1（显示为2009-3-12），A19=A18+1（显示为2009-3-13），... ...

Worksheets("Setting")表中，B15:B17，分别为2009-5-1，2009-5-2，2009-5-3。

格式都是日期格式。但是收索的结果集C 始终为nothing。请教怎么解决这个问题？谢谢。

   

nbqmdzlcdint

学习了，谢谢奉献

alooge

谢谢分享!楼主辛苦了!

老朽洗发用飘柔

我打酱油的。{:soso_e120:}