我有一个要求,其中,我需要根据日期和评论来建立数据报告。这是我的数据,
第1页
Date id Productsold Reviews
2/1/17 1 A
2/1/17 2 B
3/1/17 3 C
3/1/17 2 B
在表2中,我必须根据该日期销售的产品的日期和数量自动构建一个表(数据透视表或普通表)。当最终用户点击其中一个号码时,请说2是2/1/17上销售的商品数量。它必须打开sheet1并仅显示那些日期的数据并添加他的评论。或者,它可以打开包含属于该日期的数据的新工作表,并允许他添加评论。但在这种情况下,他添加的评论也必须反映在sheet1上。
我来这里的最佳选择是什么?
我知道Pivot表不允许我将信息保存回Sheet1。
超链接是我唯一的选择吗?
请分享您的想法。它将帮助我自动化它们。
答案 0 :(得分:0)
无论如何,我有一段代码片段用于我正在使用的表的过滤器: COLS.ListObjects(“schema”)。Range.AutoFilter Field:= 1,Criteria1:= Range(“TABLE”)。Value
我打电话给SCHEMA表。 我应用了一个过滤器。 我指定列,然后根据另一个范围设置标准。
在你的例子中有点工作,我可能会拍摄:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSect As Range
Set iSect = Application.Intersect(Sheets("sheet1").Range("B2:B4"), Target)
If Not iSect Is Nothing Then
COLS.ListObjects("schema").Range.AutoFilter Field:=1, Criteria1:=Target.Cells(1, 1).Value
End If
End Sub
此代码进入Sheet1,因为我认为你提到有人点击表1会触发Sheet2上的过滤器。
COLS是TABLE所在的工作表的代号
我使用“cells(1,1)”只是为了确保只有一个值提交给过滤器。
无论如何,这是一个非常粗略的解决方案......我需要了解更多以便更好地提供帮助。