特定日期的数据

目标：当我在特定单元格（“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

昏暗selectdate截止日期

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

设置selectdate =表（ “Sheets1”）范围（“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”中提到的日期。我在这里错过了一些东西，但不知道是什么。

另外，请参见下面的什么，我试图实现屏幕截图：

来源

2015-12-15 DeeK

是它呢？

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

来源

2015-12-15 06:27:20 Rosetta

我试过，但它不接受。 – DeeK

使用'Dim SelectDate as String'。和'SelectDate = Sheets（“Sheets1”）。Range（“G1”）'。 – Rosetta

我明白了 - 错误是参考表名称。谢谢你帮助KS Sheon。它工作得很好。 – DeeK

特定日期的数据

回答

相关问题