EXCEL VBA-具有超链接或透视表的表?

EXCEL VBA-具有超链接或透视表的表?,excel,hyperlink,pivot-table,vba,Excel,Hyperlink,Pivot Table,Vba,我有一个要求,其中,我需要根据日期和对日期的审查从数据构建报告。这是我掌握的数据 表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,这是2017年2月1日售出的商品数量。它必须打开表单1,只显示这些日期的数据,并添加他的评论。或者,它可以打开一个

我有一个要求,其中,我需要根据日期和对日期的审查从数据构建报告。这是我掌握的数据

表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,这是2017年2月1日售出的商品数量。它必须打开表单1,只显示这些日期的数据,并添加他的评论。或者,它可以打开一个新的工作表,其中包含属于该日期的数据,并允许他添加评论。但在这种情况下,他补充的评论也必须反映在表单1上

我这里有什么最好的选择

我知道Pivot表不允许我将信息保存回Sheet1

超链接是我唯一的选择吗

请分享你的想法。这将帮助我实现自动化。

我会选择一张桌子。 真的开始爱他们了

无论如何,我有一段代码用于我正在处理的表的过滤器: COLS.ListObjects(“架构”).Range.AutoFilter字段:=1,Criteria1:=Range(“表格”).Value

我称之为表模式。 我使用过滤器。 我指定列,然后根据另一个范围设置条件

在您的示例中,我可能会:

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,因为我认为您提到有人在Sheet1中单击会触发Sheet2上的过滤器

COLS是表所在工作表的代码名

我使用“cells(1,1)”只是为了确保只向过滤器提交一个值


无论如何,一个非常粗略的解决方案。。。我需要了解更多以更好地提供帮助。

您说如果用户在您的
id
列中单击
2
,您想显示
2/1/17
上出售的商品。。。为什么不是2017年3月1日?你怎么知道该看哪一天?