挑战，如何筛选出指定日期后面第几行的数据不胜感激

anymole

2000年以来最大跌幅200次.zip (1.06 MB, 下载次数: 9)

2018-6-21 20:28 上传

点击文件名下载附件

各位大神，这个任务有点难，我自已无法完成，先谢过各位朋友的帮助。

maditate

实际上可以用笨办法。逐行往下读日期，读到规定的日期后再加上几行就是你要的结果了。

anymole

行数太多了，人工对不过来。

lsc900707

关键是这个指定日期如何指定？

不知道为什么

anymole 发表于 2018-6-21 20:37
行数太多了，人工对不过来。

没觉得是有什么难度，就是觉得你的需求不清晰

獨一無2

    Dim my_row As Long, n As Long
    Dim a()
   
    n = 5
    my_row = Sheet12.Range("A:A").Find(what:=Sheet1.Cells(125, "A").Value, LookAt:=xlWhole).row
    a = Sheet12.Range("A" & (my_row + n) & ":N" & (my_row + n)).Value
n可以通过inputbox实现输入，Sheet1.Cells(125, "A") 可通过循环方式获取。

anymole

lsc900707 发表于 2018-6-21 20:49
关键是这个指定日期如何指定？

对话框可否通过弹窗指定呢

魂断蓝桥

日期不重复吧,日期是升序排列。

用sql比较容易。

比如 SELECT TOP 50 FROM (select * from [上证历史$A1:N] WHERE 时间>#2008-6-18#)

这个50是可以自定义的。

獨一無2

附件中做了个简单的例子，把宏改成了button响应。

anymole

獨一無2 发表于 2018-6-22 22:02
附件中做了个简单的例子，把宏改成了button响应。

没有任可反应啊。