按顺序移动日期范围

时间:2015-05-29 13:29:19

标签: excel vba sorting date

所以我有点陷入困境。我想使用SQL获取一堆数据并将其列在Excel图表上。但是,我需要按日期列出它,如下所示:

   Date    |    Data
2015-05-19 |     62
2015-05-20 |     30
2015-05-21 |     78

获取数据非常简单,但我需要浏览日期范围(例如2015-05-19至2015-05-21),列出我拥有的每个日期并根据这些日期对数据进行排序。因此,如果我有上述日期范围,我需要按顺序遍历该范围内的每个日期,并在Excel工作表上列出当前值。

任何人都知道如何做这样的事情?对不起,如果没有得到很好的解释,我没有轻松的时间缠绕它。

2 个答案:

答案 0 :(得分:1)

这是使用ADODB和Access数据库,因此您可能需要更改以满足您的需求。它完全在Sheet1模块中。

jdsfhnhjsdf.

答案 1 :(得分:0)

我实际上找到了答案。事实证明,如果你在Date类型值中添加一个数字,它将被添加为一天,允许我使用一个简单的for循环遍历我的日期范围:

For DateIndex = 0 To daterange
    'Add this date to the sheet
    ActiveSheet.Cells(DateIndex + 2, 1).Value = Format(CDate(CateringForm.DateCB.Value) + DateIndex, "mmmm, dd yyyy")
    For IDindex = 0 To IDNumber - 1
        tempdate = CDate(CateringForm.DateCB.Value) + DateIndex
        If (IDArray(IDindex, 3) = tempdate) Then
            'MsgBox "Match"
        End If
    Next
Next

这就是我想出来的,而且它运作良好。