EXCEL VBA - 带超链接或数据透视表的表格?

时间:2017-03-09 16:45:21

标签: excel excel-vba 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是2/1/17上销售的商品数量。它必须打开sheet1并仅显示那些日期的数据并添加他的评论。或者,它可以打开包含属于该日期的数据的新工作表,并允许他添加评论。但在这种情况下,他添加的评论也必须反映在sheet1上。

我来这里的最佳选择是什么?

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

超链接是我唯一的选择吗?

请分享您的想法。它将帮助我自动化它们。

1 个答案:

答案 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)”只是为了确保只有一个值提交给过滤器。

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