特定日期的数据答案

【问题标题】：Data for a Specific Date特定日期的数据
【发布时间】：2015-12-15 06:18:13
【问题描述】：

目标：当我在特定 cel ("G1") 中选择日期时，表格应仅过滤给定日期的数据。

到目前为止我做了什么：

Dim Topic As String
Dim finalrow As Integer
Dim i As Integer        'row counter
Dim C As Range, rng
Dim Test1 As String     'give the output by combining all the article topics

将选择日期暗淡为日期

Sheets("Raw").Range("H2:I23").ClearContents

设置 selectdate = Sheets("Sheets1").Range("G1")

Set rng = Sheets("Sheet1").Range("A2:E50")

'filtering data as per today's date

Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(2, "12/16/2015")


For Each C In rng
Test1 = Test1 & C.Value
Next C
Range("H2") = Test1

但这只是过滤掉了具体的日期。而不是我在“selectdate”中提到的日期。我在这里遗漏了一些东西，但不确定是什么。

另外，请看下面我想要实现的截图：

【问题讨论】：

标签： excel vba

【解决方案1】：

是这个吗？

ActiveSheet.Range("$A$1:$E$23").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(2, SelectDate)

【讨论】：

使用Dim SelectDate as String。和SelectDate = Sheets("Sheets1").Range("G1")。
我明白了 - 错误是参考表名称。谢谢你帮助KS Sheon。它工作得很好。